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DIVISION  1 


GENERAL  NARRATIVE  AND  RATIONALE  ' 


1.0  INTRODUCTION 

The  technological  advances  that  seem  to  create  a new  break- 
through in  high  speed  computer  development  each  passing  day 
unquestionably  excite  the  scientists  whose  investigations  demand 
seemingly  limitless  amounts  of  computational  power.  Until 
recent  developments  in  reliable  production  of  high  performance 
Large  Scale  Integration  (LSI)  and  automated  computer  design 
methodology,  such  insatiable  computational  requirements  had  to 
be  met,  mainly,  by  manufacturers  of  'standard  product' 
computers.  The  goals  of  such  standard  product  machines  were 
necessarily  linked  to  the  business  objectives  of  the  producing 
manufacturer.  These  objectives,  of  necessity,  have  been  the 
result  of  compromises  made  between  many  complex  factors  — cost, 
performance,  compatibility,  software  support,  product  line 
integration,  and  the  realities  of  design,  schedule,  and 
manufacturability.  On  the  surface,  at  least,  the  production  of 
a 'special  purpose'  computer  could  avoid  these  numerous 
compromises,  and  thus  achieve  performance  levels  for  a narrow 
range  o‘f  problem  charcter ist ics  substantially  in  excess  of  what 
the  standard  product  machines  could  yield.  This  premise  is 
based  on  the  assumption  that  the  special  purpose  machine  and  the 
standard  product  machine  would  be  built  from  similar  if  not 
identical  technologies,  and.  with  similar  if  not  identical  design 
techniques . 

The  reason  such  an  approach  has  not  been  truly  practical  for  a 
manufacturer  until  recent  innovations  in  design  and  silicon 
technology  have  occurred  is  simply  the  high  degree  of  risk 
involved  in  such  a project.  The  risks  are  considerable  --  cost 
overrun,  schedule  delays,  reliability,  maintainability,  software 
development  lead  time,  attaining  performance  objectives  being 
just  a few  that  haunt  any  prospective  vendor  of  a massive 
central  computer  system.  The  risks  to  the  consumer  are  equally 
great;  however,  a clever  consumer  can  at  least  make  the 
manufacturer  assume  the  burden  of  financial  risk  for  the 
hardware  itself  with  judicious  use  of  contract  clau'ses.  Despite 
the  incredible  risks,  the  potential  for  solving  a heretofore 
unsolvable  class  of  problems  on  such  a computing  ensemble  may 
justify  the  challenge,  particularly  if  the  special  purpose 
computing  facility  is  successful,  resulting  in  a clear-cut 
savings  in  time  and  dollars. 

A particular  class  of  problems  has  been  identified  as  offering 
the  potential  for  great  gains  in  cost  and  time  if  the 
appropriate  computing  system  can  be  found  to  house  them.  This 
set  of  problems  is  the  simulation  of  fluid  flow  around 
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thr ee-demensional  bodies,  both  in  wind  tunnel  environments  and 
in  free  space.  The  application  of  numerical  simulations  to  this 
field  of  endeavor  promises  to  yield  economies  in  aircraft  design 
due  to  reductions  in  tunnel  tests,  model  designs  and 
construction,  and  various  flight  conditions.  In  addition, 
particularly  in  transonic  flow  analysis,  numerical  simulation 
may  produce  results  that  would  be  obscured  in  physical  tunnel 
tests.  This  class  of  problems  also  exhibits  other  computational- 
characteristics  such  as  massive • quantities  of  data  required  for 
three-dimensional  meshes  and  extremely  heavy  arithmetic  load  for 
each  solution.  A large  central  processing  system  capable  of 
crunching  the  Navier-Stokes  solution  seems  to  be  called  for  in 
this  case.  Such  a system  must  be  capable  of  holding  the  data 
associated  with  these  very  large  problems,  achieving  a problem 
solution  in  a reasonable  amount  of  time  (say  about  10  minutes), 
and  then  ordering  the  results  in  a form  that  can  be  easily 
understood . 

The  question  then  arises,  “Can  a specially  designed  computer 
system  be  built  which  will  provide  the  necessary  power  for  this 
specific  set  of  problems?”.  A corollary  question  is  "Will  a 
specially  designed  computer  system  for  flow  modeling  yield 
performance  substantially  greater  (a  factor  of  at  least  10 
times)  than  a high-performance  standard  product  available  in  the 
same  time  frame?". 

It  is  this  set  of  questions  that  has  been  raised  by  NASA,  and 
submitted  to  those  manufacturers  who  profess  an  interest  in 
extremely  high  performance  computer  development.  To  answer 
these  basic  questions  and  those  questions  which  derive  from 
them,  such  as  "What  are  the  risks  and  costs  of  such  a project?" 
NASA  had  engaged  Control  Data  Corporation  to  pursue  a two  year 
study  into  the  feasibility  of  construction  of  a centralized 
Numerical  Aerodynamic  Simulation  Facility  (NASF)  in  the  time 
frame  of  1980-1984.  This  study  has  been  segmented  into  three 
parts  — documented  in  references  1 and  2,  and  in  this  report  — 
each  of  which  address  in  increasing  detail  the  characteristics 
and  feasibility  of  a full  scale  NASF. 


1 .-1  OBJECTIVES 

As  understood  by  Control  Data,  the  ultimate  goal  of  NASA  is  to 
create  a facility  for  flow  simulations  that  can  cope  with  the 
volume  of  data  needed  for  three-dimensional  models  and  with 
complex  computations  necessary  for  a continually  maturing 
mathematical  solution  to  the  flow  equations.  This  goal  is 
achievable  to  the  extent  that  sufficient  computer  power  is 
available  to  provide  system  throughput,  which  can  suffice  for 
effective  aircraft  design  as  well  as  meaningful  flow  research. 
NASA-Ames  researchers  have  determined  that  a maximum  allowable 
compute  time  for  the  efficient  conduct  of  aerodynamic  design  is 
on  the  order  of  ten  minutes  per  full  solution.  In  addition,  the 
production  models  have  been  determined  to  need  meshes  on  the. 
order  of  100x100x100  data  points.  These  two  qualities 
immediately  circumscribe  the  memory  and  arithmetic  performance 
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requirements  for  the  computational  portion  of  the  NASF.  The 
computer  industry's  best  projections  for  the  period  1980-1984  do 
not  reveal  any  potential  standard  products  that  can  achieve 
sustained  performance  of  even  1/10  of  the  requisite 
caleulational  performance^of  the  NASF,  let  alone  the  memory 
capacity.  The  overall  objective  of  the  NASF  studies  has  been 
then  to  determine  if  and  how  a specialized  computer  system  might 
be  built  in  .this  time  frame  to  meet  NASA  flow  modeling  goals.  A 
somewhat  invisible  objective  of  these  three  study  efforts  has 
been  to  -test  the  corporate  willingness  of  candidate 
manufacturers  to" engage  in  this  high  risk  activity.  Throughout 
the  remainder  of  this  report,  this  last  "hidden”  objective  must 
be  kept  in  mind,  since  despite  the  best  affirmations  of 
feasibility  and  success  for  the  NASF,  the  absence  of  vendor 
interest  or  support  will  guarantee  that  the  -endeavor  will  never 
be  launched. 

Given  the  overall  objectives,  the  first  study  period  was 
commenced  with  the  following  objectives: 

a)  Assessment  of  architectural  and  technology  alternatives 
to  creation  of  the  main  computational  component  of  the 
NASF,  the  Flow  Model  Processor  (FMP). 

b)  Instructing  NASA  personnel  in  the  implications  of  a) 
above. 

c)  Identifying  computational  characteristics  of  simulation 
codes . 

d)  Establishing  at  least  one  hardware  model,  using 
realistic  technology  that  could  achieve  the  goals  of 
the  NASF. 

e)  Preliminary  risk  analysis  for  the  conduct  of  such  a 
project. 

f)  Identifying  the  key  software  development  considerations 
for  such  a large  scale  system. 

At  the  conclusion  of  the  first  study  it  was  determined  that  a 
computer  system  could  be  designed  around  the  characteristics  of 
the  Navier-Stokes  solutions  employed  by  NASA-Ames  researchers. 

To  a minimal  extent  a machine  structure  was  arrived  at  that 
could  conceivably  be  constructed  with  technologies  that  should 
be  available  in  the  1980-1984  period.  An  extension  was  then 
launched  to  the  first  study,  intended  to  further  refine  the  FMP 
architecture  and  to  develop  additional  information  for-  NASA 
planners  who  were  then  deeply  involved  in  making  the  NASF  a 
reality.  The  objectives  of  this  study,  were  thus  -similar  in 
nature  to  those  of  the  first  period,  with  the  exception  that 
certain  aspects  were  to  be  scrutinized  *in  much  greater  detail: 

a)  Review  of  technological  developments  as  they  might  apply 
to  the  construction  of  the  FMP. 

b)  Detailed  modeling  of  the  FMP  to  provide  structural 
simulation  of  candidate  code  sequences. 
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c)  Analysis  of  the  three-dimensional  flow  models  as  they 
would  perform  on  the  proposed  FMP  structure. 

d)  Development  of  detailed  reliability  data  from  more 
refined  knowledge  of  the  FMP  design. 

e)  Specification  of  the  general  functional  capabilities 
needed  for  the  software  systems  for  the  FMP  and  their 
relationship  to  the  NA-SF-  i-n  which-  it  is  imbedded. 

This  second  study  concluded  again  that  a machine  of  the 
essential  power  was  buildable  and  could  be  made  to  meet 
acceptable  standards  of  reliability,  availability,  and 
maintainability  (RAM).  Before  such  a large  scale  effort  could 
be  launched  however,  additional  material  needed  to  be  developed. 
■Hence  the  institution  of  the  final  "study"  effort  of  the  NASF 
project.  The  overall  objective  of  this  effort  was  to  provide 
additional  detail  and  additional  answers  to  NASA  scientists  and 
planners  so  that  they  might  begin  the  lengthy  and  arduous 
procurement  process  for  such  a system.  The  objectives  of  this 
final  study  in  order  of  original  importance  were: 

a)  Derivation  of  detailed  and  reliable  cost  data  for  every 
segment  of  the  project. 

b)  Validation  of  the  FMP  design  for  functionality  and 
performance  a.t  a design  level  more  detailed  than  the 
previous  structural  model. 

c)  Simulation  and  analysis  of  the  data  flow  among  the  major 
FMP  components. 

d)  Development  of  total  NASF  system  load  analytical 
techniques  to  provide  for  configuration  evaluation. 

e)  Detailed  specification  of  programming  languages  and 
operating  system  structure  for  the  FMP. 

f)  Examination  of  two  computational  models  with  dissimilar 
characteristics  to  the  aerodynamic  codes,  specifically 
a spectral  weather  code  and  a finite-difference  weather 
code,  to  determine  their  performance  on  the  special 
purpose  flow  model  processor. 

g)  Simulation  of  the  final  FMP  design  in  execution  of  the 
four  identified  performance  metrics:  the  3-D  implicit 
and  3-D  explicit  Navier-Stokes  solutions  developed  by 
Ames  and  the  spectral  and  finite-difference  weather 
models  developed  by  other  NASA- agenc ies . 

h)  Development  of  probable  system  loads  created  by 
potential  users  of  the  NASF  when  it  becomes  fully 
operational . 
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i)  Final  update  on  technological  alternatives  in  the 
1980-1984  period  for  construction  of  an  FMP. 


1.2  INTERRELATIONSHIPS  OF  THE  VARIOUS  STUDIES 

All  study  efforts  under  this  NASF  project  since  its  inception 
have  been  cooperative  and  interactive  in  form  and  style  as 
regards  the  relationship  between  NASA  investigators  and  Control 
Data  engineers.  It  is  also  impossible  to  discuss  any  reasonable 
conclusions  in  this  final  report  without  taking  into  account  the 
other  side  of  this  study  "triangle",  the  efforts  of  the 
alternate  contractor,  Burroughs  Corporation,  as  they  pursued  the 
same  objectives  on  behalf  of  NASA.  The  three-way  interaction  of 
these  parties,  Ames,  Control  Data,  and  Burroughs,  has  not  only 
served  NASA’s  aims  well  but,  at  Control  Data  it  is  believed  that 
the  final  FMP  and  NASF  structures  of  both  vendors  have  benefited 
by  the  competitive  emphasis  that  two  parallel  approaches  has 
provided.  Thus,  once  the  first  study  was  completed’  and 
published,  the  heavy  reliability  emphasis  placed  by  Control  Data 
was  adopted  in  part  by  Burroughs'  designers.  In  a similar  way, 
Burroughs'  continuing  concentration  on  the  problems  of  data  flow 
and  accessing  in  the  Navier-Stokes  codes  were  brought  to  Control 
Data's  attention  and  affected  many  redesign  decisions  for  the 
FMP. 

It  can  then  be  seen  that  each  study  to  date  owes  not  only  its 
objectives  to  the  groundwork  laid  by  the  previous  studies,  but 
even  more  importantly,  each  subsequent  study  derives  much 
material  from  the  evaluation  of  the  competitive  report  for  the 
previous  effort  as  well  as  from  extensive  critique  of  each  study 
by  NASA-Ames  personnel.  The  result  of  this  is  that  in  many 
instances  major  structural  changes  have  been  made  and  remade  as 
each  study  progressed.  In  addition,  conclusions  have  been  drawn 
and  redrawn  in  several  areas  due  the  interaction  mentioned 
before  and  the  changing  perspective  that  comes  with  the  passage 
of  time.  For  example,  the  original  choice  for  a bulk,  random 
access  memory  (RAM)  for  the  Control  Data  version  of  the  FMP  was 
designated  as  "bubble  memory",  with  Charge  Coupled  Devices  (CCD) 
being  given  second  place  in  consideration.  In  the  intervening 
two  years  of  these  studies,  actual  hardware  has  been 
constructed,  certain  componentry  has  come  into  production  and 
newer  components  have  reached  unexpected  cost  levels.  The 
result  is  that  the  intermediate  storage  for  the  Control  Data  FMP 
is  now  conceived  as  consisting  of  large  scale  RAM  chips  of 
moderate  performance,  in  place  of  the  CCD  or  bubble  memory 
originally  chosen. 

This  report  cannot  completely  supplant. the  material  developed  in 
the  previous  study  periods.  Instead  its  contents  may  be  said  to 
selectively  replace  or  update  previously  reported  data  or 
conclusions  in  addition  to  providing  new  material  In  those  areas 
not  covered  in  prior  studies.  Thus  this  report,  combined  with 
references  1 and  2 constitute  all  the  material  developed  by  this 
contr.ac.tor  to  assist  and  support  the  procurement  of  an 
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NASF,  as  well  as  providing  guiding  information  to  aid  NASA  in 
its  decision  processes  about  the  entire  project.  Given  the 
dynamic  nature  of  the  technological  evolution,  and  more 
importantly  the  state  of  the  economic  climate  that  directs  major 
manufacturing  decisions,  many  of  the  approaches  and  conclusions 
reached  herein  can  be  said  to  remain  valid  for  a period  of  no 
more  than  a year.  This  does  not  mean  that  the  recommendations 
and  predictions  given  for,  say  year  1983  will  not  prove  to  be 
correct.  What  it  does  mean  is  that  if  there  is  as  much  as  a one 
year  delay  in  initiating  any  of  the  next  steps  in  the  NASF  . 
procurement,  design  and  construction,  the  choices  for 
technology,  architecture,  and  support  processor  systems  might  be 
radically  altered  to  achieve  better  cost,  performance,  and 
reliability  levels. 


1.3  THIS  REPORT  AND  THE  OVERALL  PROJECT 

To  provide  as  much  quantitative  assurance  as  possible  that  the 
proposed  NASF  project  is  feasible,  it  has  been  necessary  to 
develop  almost  all  of  the  hardware  and  software  components  to  a 
relatively  high  degree  of  detail.  In  the  case  of  the  design 
chosen  by  Control  Data,  this  has  meant  selecting  a technology, 
which  is  in  existence  and  whose  manufacturability  and 
performance  have  already  been  proven.  Using  this  technology  a 
detailed  architecture  was  developed  and  from  that  a design 
carried  to  enough  detail  that  a reliable  simulation  could  be 
produced  for  it,  and  relatively  high-confidence  component  counts 
projected.  In  addition  the  support  processing  system  needed  to 
be  sized  and  costed.  What  is  represented  in  this  report  then  is 
a model  for  a NASF/FMP  ensemble  using  a possible  approach  to 
meeting  NASF  goals.  If  this  specimen  system  is  truly  feasible, 
then  it  follows  that  there  are  other  systems  equally  feasible, 
and  NASA's  concern  about  feasibility  is  satisfied.  The 
candidate  system  offered  in  this  report  represents  one  which,  at 
this  point  in  development,  Control  Data  considers  the  best 
possibility  in  terms  of  performance,  reliability,  and  true 
buildability  with  minimum  risk. 

In  no  way  should  this  candidate  architecture  and  design  become 
one  that  is  specified  for  the  final  NASF,  since  there  are  still 
alternatives  to  be  investigated.  It  should  be  emphasized  that 
the  structure  and  design  numbers  offered  in  this  report  are  to 
support  the  possibility  of  a successful  conclusion  to  NASA's 
search  for  an  effective  facility.  The  design  and  structure 
included  here  should  be  evaluated  only  in  light  of  determining 
feasibility  of  the  proposed  NASF,  and  should  not  necessarily  be 
considered  as  the  candidate  architecture  for  such  a project  to 
be  compared  with  other  competitive  schemes,  except  where  Control 
Data  has  called  attention  to  the  effects  of  architectural 
differences  on  some  problem  formulations. 
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1.4  DEPTH  OF  STUDY 


Since  this  study,  as  well  as  others,  is  to  form  the  basis  of  the 
procurement  of  the  complete  NASF  it  must  necessarily  provide  as 
much  detail  as  possible  to  support  the  many  activities  required 
of  NASA  and  the  NASF  manufacturer.  Given  the  broad  scope  of 
this  study  and  limitations  on  the  resources  available,  it'  was 
not  entirely  possible  to  pursue  all  aspects  of  the  study  to  the 
same  level  of  detail.  The  various  tasks  were  thus  met  in  a 
somewhat  dynamically  assigned  priority  order: 

a)  The  need  for  detailed  and  exhaustive  cost  data  by  NASA 
in  the  summer  of  1978  to  assist  the  preparation  of 
funding  requests  became  the  focal  point  of  most  of  the 
project's  technical  resources  during  the  early  period 
of  this  study.  Control  Data  attempted,  within  the 
tight  time  constraints,  to  conduct  a cost  analysis  for 
production  of  the  NASF  similar  to  those  analyses 
undertaken  for  its  own  product  families.  Though  it  was 
desired  that  a confidence  factor  of  10?  be  ascribed  to 
this  activi.ty,  the  brief  time  availaable  for  full  cost 
detailing  made  this  goal  almost  impossible  to  achieve. 
Instead  each  major  factor  was  given  a separate 
confidence  factor,  with  the  expectation  that  as  this 
study  progressed  some  of  the  costing . could  be 
reevaluated  and  confidence  improved.  In  fact,  the 
degree  to  which  some  of  the  unknowns  of  the  summer  of 
1978  were  understood  has  not  improved  substantially, 
and  probably  will  not  until  actual  software  design  has 
been  carried  to  completion.  This  is  due  to  the  fact 
that  the  major  cost  uncertainties  revolve  around  the 
software  implementation  and  maintenance  strategies.  A 
good  deal  of  detailed  hardware  design  had  to  be 
completed  to  provide  the  performance  and  cost  data  for 
this  study.  In  the  area  of  FMP  hardware  the  confidence 
in  the  cost  data  has  improved  to  where  it  is  thought  to 
be  within  the  variance  goal  of  10  percent,  for  the  most 
part . 

b)  Hardware  redesign  of  the  FMP  was  a continuing  operation 
during  this  study  period  in  response  to  criticisms  from 
Ames,  new  aspects  of  the  flow  codes  that  were  revealed, 
and  the  necessity  for  improving  the  performance  of  the 
FMP  on  the  weather  codes.  A greater  design  concern  was 
the  reduction  of  component  counts  to  improve  the  cost 
and  reliability  of  the  FMP.  This  led  to  the  reduction 
of  the  number  of  vector  pipelines  to  5 (4  active  and 
one  spare)  using  a technological  "trick"  to  double  the 
processing  bandwidth  of  the  resulting  pipelines.  __ 

c)  Development  of  the  FMP  simulator  as  a reliable  and 
useful  tool  for  measuring  code  execution,  was  a 
continuing  task  as  the  changing  characteristics  of  the 
machine  design  had  to  be  injected  into  the  simulator, 
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and  operational  use  of  the  simulator  revealed 
diagnostic  and  analytical  aids  that  needed  to  be 
added . 

d)  Development  of  the  NASF  system  model  simulator  began  in 
mid  1978  and,  as  more  has  become  known  about  the 
probable  environment  of  the  Ames  NASF,  this  simulator 
has  become  more  important  as  an  evaluative  tool  for 
both  CDC  and  NASA  reseachers. 

e)  Development  of  an  FMP  programming  lanugage  which  was 
acceptable  to  potential  NASF  users,  compiler  writers 
and  language  standards  specialists  became  an 
interactive  exercise  with  many  alternatives  weighed, 
rejected,  or  criticized.  The  final  outcome  of  this 
effort  is  given  in  the  section  on  language  analysis  and 
design. 

f)  Encoding  of  the  implicit  3-D  flow  model  in  this  language 
was  done  to  demonstrate  the  language  and  how  it  would 

be  mapped  into  machine  instructions  for  the  FMP. 

g)  Encoding  of  portions  of  the  explicit  code  was  done  to 
illustrate  the  operation  of  the  FMP  on  code  sequences 
not  necessarily  similar  in  computational 
characteristics  to  the  implicit  code. 

h)  Analysis  of  the  mathematical  and  computational 
characteristics  of  the  weather  codes  was  done  to 
determine  what  the  effect  of  the  FMP  architecture  would 
be  on  those  models. 

i)  Operating  system  software  for  the  FMP  and  the  full  NASF 
system  was  examined  and  functional  characteristics 
defined  for  those  components  not  already  available  in 
the  standard  software  that  will  be  available  on  the 
front-end  machines  (support  processing  systems). 

j) .  A study  of  the  reliability,  availability,  and 

maintainability  of  the  FMP  was  conducted  by  Control 
Data  Supercomputer  Operations  reliability  specialists. 

k)  A review  of  previous  technological  projections  and 
recommendations  was  conducted  to  provide  update 
information  on  what  is  realistically  available  to  NASF 
implementers  in  the  1980-1984  timeframe. 

l)  The  cost  data  provided  NASA  in  1978  was  reviewed  and 
updated  wherever  possible  with- more  recent 
projections . 
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A number  of  activities  were  not  carried  out  to  the  extent 
desired  at  the  outset  of  this  study  effort.  In  some  cases 
resource  and  time  limitations  dictated  this  deficiency,  in 
others  changing  priorities  or  interests  led  to  truncating  a 
particular  study  effort.  Some  examples  of  this  are: 

a)  A full-fledged  and  detailed  specification  of  the.  FMP 
operating  systems  was  not  produced.  The  vestigial 
.nature  of  this  operating  system  (described  in  reference 
2)  truly  eliminates  the  need  for  extensive  operating 
system  functions,  however  the  placement  of  some 
functions  (data  editing  and  analysis,  for  example)  has 
not  yet  been  decided  for  the  NASF,  and  thus  uncertainty 
remains  as  to  the  need  for  certain  functions  in  the 
-FMP. 

b)  A full  coding  and  simulation  of  the  weather  models  was 
not  done  by  Control  Data.  Some  portions  of  the 
spectral  model  were  coded  into  FMP  FORTRAN  and  results 
estimated.  In  addition,  some  investigation  of  the 
finite  difference  was  done.  Discussion  of  these 
activities,  is  presented  in  Division  4. 

c)  A full  coding  and  simulation  of  the  explicit  3-D  flow 
model  was  not  done.  Instead  portions  of  this  code 
which  had  characteristics  dissimilar  to  the  implict 
code  were  vectorized  in  the  most  straightforward  manner 
possible.  This  effort  was  conducted  to  resolve  two 
questions. 

1)  If  the  FMP  is  designed  primarily  to  be 
efficient  for  the  implicit  code,  what  is  the 
degradation  in  performance  to  be  expected  of 
codes  with  different  computational  behavior, 
.such  as  the  explicit  code? 

2)  What  level  of  performance  is  achievable  by  a 
"first  attempt"  at  utilizing  the  FMP  on  the 
part  of  new  FMP  programmers? 
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2.0  FMP  DESIGN 


2.1  HARDWARE 

The  FMP  that  is  described  here  is  the  result  of  an  evolution  in 
thinking  and  implementation  since  the  first  attempt  to  arrive  at 
a sufficient  machine  structure  for  the  flow  model  solutions'  in 
the  first  study  period  of  this  project.  It  is,  admittedly, 
based  on-  the  processing  concepts’  that  have  emerged  from  the 
Control  Data  STAR-100  and  CYBER  200  computer  systems.  To 
improve  the  project's  chances  for  success  it  has  been  alleged 
from  the  outset'  that  a good  deal  of  the  design,  implementation, 
and  software  development  must  be  grounded  on  existing  work,  or 
work  in  progress;  the  risk  of  beginning  literally  “from  scratch” 
on  an  effort  of  this  magnitude  is  too  great  to  tempt  rational 
developers  into  making  the  attempt.  The  basic  principles  for 
creation  of  the  Control  Data  Flow  Model  Processor  are  then: 

a)  A massive,  centralized  -memory  system  which  serves  as  the 
coordinating  medium  for  data  transfer  and  processng 
control  with  sufficient  porting  to  be  provided  in  this 
memory  for  a multiplicity  of  concurrent  processes  to  be 
carried  out. 

b)  The  maximization  of  functional  parallelism  which  employs 
concurrency  along  functional  lines  rather  than 
providing  a multitude  of  concurrent  but  identical 
functional  elements. 

c)  The  minimization  of  the  number  of  identical  parallel 
processing  elements  through  the  use  of  the  most 
aggressive-  technologies  available.  It  is  claimed  that 
two  processing  elements  operating  at  a clock  cycle  of 
two  nanoseconds -provides  superior  control, 
interconnection,  and  reliability  character istics ‘ to  an 
ensemble  of  forty  processors  operating  at  a 40 
nanosecond  clock  cycle,  although  on  the  surface  both 
would'  seem  to  yield  an  effective  processing  rate  of  one 
step  every  nanosecond.  (Appendix  A provides  additional 
information  on  clock  rates  as  a measure  of 
performance . ) 

d)  A high  bandwidth  and  multi-access  I/O  connection  to  all 
other  processors  and  storage  media  in  the  system,  to 
provide  multipathing  for  system  availability  as  well  as 
for  performance  reasons. 

e)  The  employment  of  a FMP-type  processor  as  a 
computational  engine  only,  leaving  all  tasks  other  than 
the  mathematical  solution  of  flow  equations  to  other, 
conventional  processors  attached  to  the  system. 
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Given  these  desirable  principles,  a hardware  design  for  the  FMP 
can  be  completed  within  the  constraints  of  technology 
availability,  reliability,  and  maintainablity  considerations, 
and  tradeoffs  involving  physical  dimensions,  power,  cooling,  and 
interconnection  limitations.  The  significance  of  these  tradeoff 
considerations  will  now  be  examined  for  each  major  component  of 
the  FMP  discussing  the  rationale  behind  the  design  presented  in 
detail  in  the  FMP  functional  and  instruction  specifications 
which  can  be  found  in  Volume  II  of  this  report. 


2.1.1  MEMORY  SYSTEM 

Far  and  away  the  most  important  part  of  the  FMP  is  the  memory 
system,  both  in  impact  on  the  entire  design  and  in  cost  for  the 
entire  machine.  Memory  capacity  is  dictated  by  the  requirements 
of  current  and  projected  production  problems,  and  by  the 
predicted  need.s  of  a class  of  research  problems  that  may  employ 
the  FMP.  If  the  nominal  production  problem  is  based  on  metric 
dimensions  of  100x100x100  elements,  then  the  implicit  code  in 
its  present  form  will  require  9 million  64-bit  words  to  retain 
just  the  flow  variables.  Another  5 million  words  are  needed  for 
temporary  results  generated  by  each  sweep  required  of  the 
11  independent  sweep  method”  of  flow  code  solution.  Another 
couple  of  million  words  will  be  needed  to  hold  locally  temporary 
vectors  throughout  the  various  subroutines  in  the  flow  codes. 

The  nominal  space  requirements  can  then  be  roughly  guaged  at  16 
million  words. 

To  make  the  FMP  work  most  efficiently  the  capability  is  needed 
to  "stage-in"  or  "roll-in"  one  job  whilst  another  is  in  process 
so  that  no  time  is  lost  while  transferring  all  the  data  to  be 
used  in  and  out  of  the  FMP.  A buffer  space  of  from  9 to  16 
million  words  seems  to  be  indicated  by  this  strategy. 

The  term  1 roll-in/roll-out 1 is  derived  from  the  Control  Data 
CYBER  70/170  scheme  for  memory  management  when  a multiplicity  of 
jobs  are  contending  for  the  CPU.  The  term  usually  referred  to 
the  act  of  moving  a job's  entire  CPU  memory  space  onto  disk  to 
make  room  for  aother  job.  It  was  usually  performed  by  hand  on 
the  CDC  6600,  and  invoked  only  when  the  job  in  memory  had  a 
probability  of  spending  a protracted  amount  of  time  in  an  idle 
state  (while  an  archived  tape  was  being  located  by  the  operator, 
for  example).  A small,  but  vital  set  of  data  about  the  job's 
status  was  retained  by  the  operating  system  so  that  it  could  be 
’rolled  in’  at  a later  time  and  restarted.  In  variants  of  this 
' roll— in/roll-out ’ scheme  the  job,  or  portions  of  it,  could  be 
moved  to  extended  memory,  rather  than  to  disk,  to  be  restored 
later.  In  the  FMP,  the  normal  mode  of. operation  for  batch  jobs 
will  consist  of  readying  a complete  image  of  the  job  on  disk, 
transferring  that  image  to  the  Backing  Store  (including  code, 
data  base,  and  supporting  parameters),  and  when  space  permits  in 
the  Intermediate  Memory,  rolling  in  the  job  from  Backing  Store 
to  Intermediate  Memory.  At  the  completion  of  a job,  its  entire 
image  is  rolled  out  to  backing  storage  and  thence  to  disk,  under 
some  circumstances  leaving  the  job  of  further  data  reduction 
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of  the  rolled-out  data  to  the  SPS,  or  perhaps  another  job 
executed  on  the  FMP  itself,  the  basic  ability  to  perform  a 
roll-in/roll-out  operation  opens  a pandora's  box  of 
possibilities  for  complicating  the  operating  system.  Performing 
checkpoint-restart  images,  for  recovery  in  the  event  of  a system 
failure,  is  one  possible  use  of  the  roll-in/roll-out  facility. 
Another  would  be  'interrupt  roll-out’  where,  under  special 
circumstances,  the  SPS  .(perhaps  at  the  request  of  the  user) 
interrupts  the  present  job  in  the  C.P.IL.  The  job-  cou-l-d  be 
rolled-out  to  backing  storage  or  disk  until  the  SPS  either 
performs  an  ABORT  or  CONTINUE  function.  Note  that  once  these 
facilities  are  in  place,  the  incentive  to  take  the  next 
potentially  fatal  step  into  time-sharing  could  become  too 
enticing.  It  is  at  this  point  that  the  systems  developers  must 
exert  some  degree  of  discipline  on  FMP  operating  system  design, 
so  that  the  FMP  doesn't  become  an  abused,  general-purpose, 
time-sharing  machine,  instead  of  a special-purpose, 
batch-oriented  computational  engine. 

Finally,  the  research  problems  that  are  contemplated  may  require 
basic  CPU-contained  data  bases  of  the  order  of  30  to  100  million 
elements  that  must  be  accessed  at  speeds  higher  than  can  be 
provided  by  existing  rotating  mass  storage  systems.  Thus  the 
apparent  resulting  requirement  is  for  a production  code  memory 
of  from  16  to  40  million  words  with  expandability  to  about  200 
million  words. 

Given  the  current  technological  predictions  on  componentry,  it 
is  not  possible  to  construct  a single,  homogenous  memory  out  of 
one  single  technology  that  would  provide  this  range  of  memory 
capacity,  and  still  meet  the  bandwidth  requirements  of  the 
concurrent  functional  elements  of  the  FMP. 

The  overall  block  diagram  (figure  1)  shows  the  FMP  to  possess  a 
three-level  hierarchy  of  memory.  Each  level  is  designed  with  a 
particular  set  of  bandwidth,  access  time,  cost,  and  component 
counts  commensurate  with  the  volume  of  data  contained.  That  is, 
in  short,,  the  larger  the  capacity  the  slower  will  be  the  access 
time  and  the  lower  the  bandwidth,  in  exchange  for  a significant 
reduction  in  cost  and  failure  rate  on  a per-bit  basis.  A fourth 
"invisible"  level  of  memory  exists  which  consists  of  extremely 
high  performance  components  (effective  access  times  on  the  order 
of  3-8  nanoseconds)  which  are  used  as  register  files  and  high 
speed  buffers  in  the  internal  design  of  all  functional  units  of 
the  FMP. 
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Figure  1.  Basic  FMP  Configuration 


2. 1.1.1  LEVEL  1 MEMORY 


The  first,  and  most  crucial  memory  is  that  called  Main  Memory 
(or  LEVEL  1 memory).  It  is  this  memory  that  provides  the 
effective  bandwidth  to  supply  operands  to  all  parallel 
functional  units.  Not  only  is  bandwidth  a consideration  but 
single-element  access  time  must  be  minimized  in  this  level  of 
memory  so  that  those  processes  which  are  necessarily  "purely" 
scalar  can  be  carried,  out  at  the. maximum  rate,  and  essential 
"transpose"  operations  on  single  elements  can  be  accomplished  in 
minimum  tme.  This  level  of  memory  then  contains  the  most 
powerful  and  dense  memory  technology  available.  At  this  time 
the  practical  limits  prescribe  the  use  of  a high  speed  bipolar 
Random  Access  Memory  (RAM)  part  which  is  organized  as  a 4096  by 
1-bit  storage  device  with  an  access  time  of  16-20  nanoseconds. 

The  sheer  cost  and  number  of  such  devices  needed  to  build  a 
basic  million-word  unit  of  high  performance  memory  make  it 
impossible  to  use  this  technology  uniformly  throughout  the 
machine.  A reasonable  limit,  based  on  parts  count  reliability, 
power  and  cooling  requirements,  and  the  physical  geometry  for 
such  a memory  which  affects  access  time,  is  the  construction  of 
8 million  64-bit  words  employing  this  technology.  If  problems 
can  be  done  in  32-bit  mode,  this  memory  could  house  16  million 
32-bit  elements.  The  speed  of  this  memory  part  makes  it 
possible  to  organize  the  memory  into  four  sets  of  eight  banks 
which,  when  strobed  in  a systematic  way,  can  deliver  data  (or 
accept  data  for  storage)  at  rates  up  to  1024  bits  per  set  every 
CPU  clock  cycle. 

This  memory  is  organized  in  modules  and  ports  with  a 32-bit 
half-word  as  the  smallest  writable  segment.  Thus  the  single 
error  correction,-  double  error  detection  system  (SECDED)  is 
organized  in  a similar  manner  providing  7 bits  of  error 
correction/detection  for  every  32  bits  of  data  stored  in 
memory . 

The  minimum  configuration  of  this  Main  Memory  is  2 million 
words,  a size  necessary  to  preserve  the  banking  relationships 
which  support  the  large  bandwidth  of  this  memory  system.  Address 
trunks  and  other  controls  are  provided  for  possible  later 
technological  extensions  to  memory  chips  of  up  to  65K  bits.  In 
this  case  the  maximum  memory  available  for  LEVEL  1 could  be  128 
million  words.  It  must  be  pointed  out  that  such  a component  is 
not  forseen  (at  the  requisite  performance  levels)  for  at  least 
five  or  six  years  (well  beyond  the  target  time  frame) . 
Additionally,  such  parts  will  be  more  expensive  than  the  current 
componentry,  and  thus  might  motivate  a search  for  a more  dense, 
and  much  less  expensive  part  for  the  other  memory  hierarchies. 


2. 1.1. 2.  LEVEL  2 MEMORY 

Since  the  maximum  practical  size  of  the  high  performance  memory 
has  been  limited  by  engineering  fiat  to  8 million  words,  some 
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means  must  be  sought  for  holding  the  bulk  of  the  nominal  flow 
model  data.  There  exists  at  present  one  memory  .system  composed 
of  medium  performance  ‘32K  by  1-bit  semiconductor  devices  (two 
1 6K  by  1-bit  chips  per  package)  which  can  provide  a reasonably 
high  bandwidth  and  single-element  access  times  of  approximately 
125  nanoseconds.  The  projection  by  technological  experts  that  a 
1 3 IK  by  1-bit  device  (two  64K  by  1-bit  chips  per  package),  for 
this  system  will  be  available  in  the  timeframe  of  FMP 
construction  has  been  established  with  high  confidence.  A 
medium  performance  system  can  thus  be  configured  for  data 
storage  of  from  8 to  32  million  64-bit  words  (16  to  64  million 
32-bit  words)  with  peak  bandwidths  on  the  order  of  20  billion 
bits  per  second.  This  memory  would  be  organized  on  a 64-bit 
basis  with  8 bits  of  SECDED  for  every  64-bit  word. 

Note  that  such  a memory  trades  off  an  access  speed  4 times 
slower  than  the  Main  Memory  and  a bandwidth  12  times  slower  for 
a parts  count  reduction  of  8 times  for  the  same  volume  of 
memory,  and  probable  cost  ratio  in  favor  of  the  LEVEL  2 memory 
of  4-6  to  one. 

The  very  nature  of  Intermediate  Memory  (LEVEL  2)  implies  that 
the  time  required  is  greater  to  deliver  data  to  other  functional 
elements  (Vector  or  Scalar  Units,  for  example),  thus  some 
electronic  delays  are  permissible  in  transmission  lines  between 
the  Intermediate  Memory  and  the  other  memory  systems.  This 
means  that  the  LEVEL  2 memory  can  be  engineered  into  a 
stand-alone  unit  which  eases  expandability  (for  the  range  of 
memory  configurations)  and  improves  accessibility  for 
maintenance  actions. 

It  is  in  LEVEL  2 memory  that  the  bulk  of  all  flow  model  data 
will  reside  for  the  large  production  problems.  Smaller  problems 
may,  in  fact,  be  totally  contained  in  the  8 million-word  Main 
Memory.  The  remainder  of  the  .LEVEL  2 memory  will  be  used  to 
stage  other  jobs  in  and  out  while  the  current  job  is  in 
progress. 


2.1. .1.3  LEVEL  3 MEMORY 

To  simplify  hardware  scheduling  of  input  and  output  and  to 
provide  a moderate  performance  memory  for  the  large  research 
problems,  a third  level  of  memory  is  shown  on  the  block  diagram 
(figure  1).  This  memory  would  be  limited  to  block  transfers  only 
of  32K  elements  each.  By  establishing,  this  limitation  several 
high  density,  low  cost,  slow  access  technologies  can  be 
employed.  This  block  transfer  characteristic  is  paticularly 
useful  when  considering  the  employment  of  charge  coupled  device 
(CCD)  technology.  Although  the  beginning  of  a particular  block 
may  take  several  milliseconds  to  reach  the  output  port  of  the 
CCD  shift  register,  this  wait  can  be  avoided  by  starting  data 
transfer  at  any  point  in  the  block  with  the  limitation  to  always 
transfer  an  entire  block.  At  the  cost  of  some  counters  in  the 
CCD  memory  system  and  the  .Swap  Unit  to  which  i.t  is  attached,  the 
access  time  to  select  a given  block  can  be  reduced  to  near 
zero . 
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The  LEVEL  3 memory  supplies  or  accepts  data  at  an  effective  rate 
32  bits  every  clock  cycle  at  its  single  data  port.  This  data 
moves  to/from  Intermediate  Memory  (LEVEL  2)  via  the  Swap  Unit. 

If  a 9 million-word  job  has  been  set  up  and  held  in  this  memory 
awaiting  execution,  it  can  be  rolled  in  to  Intermediate  Memory 
in  18  million  clock  cycles  which  is  approximately  288 
milliseconds,  assuming  no  major  conflicts  in  access  to  either 
the  LEVEL  2 or  LEVEL  3 memory.  Since  the  expected  length  of 
.execution  for  the-  nominal  job  is  on  the  order  of  5 to  10 
minutes,  there  is  obviously  a large  window  in  which  the  288 
milliseconds  can  be  expended. 

The  LEVEL  3 memory  can  be  absent  from  the  FMP  configuration  if 
initial  installation  requirements  cannot  justify  its  purchase; 
in  this  case  however,  there  will  be  some  degradation  in 
performance  where  "explicit"  input  and  output  are  required  by 
the  executing  code.  The  transfers  to  disk  cannot  be  scheduled 
by  the  hardware,  since  a ready-resume  LEVEL  3 memory  is  the 
normal  I/O  mechanism  for  the  FMP.  Therefore  I/O  transfers 
directly  to  rotating  mass  storage  may  involve  many  "lost 
revolutions"  due  to  the  priorities  given  the  Map  and  Vector 
Units  for  memory  access. 

A better  alternative  to  initially  configuring  the  LEVEL  3 memory 
would  be  to  install  a minimum  CCD  memory,,  system  of  8 million 
words,  even  though  this  is  a smaller  capacity  than  the  necessary 
32  million  words  in  LEVEL  2 memory  (word  = 64  bits  plus  SECDED) . 

Software  and  hardware  would  thus  operate  exactly  as  it  would  in 
the  final  configuration.  The-  LEVEL  3 memory  is  designed  for  a 
maximum  of  256  million  words,  while  current  parts  projections 
offer  a practical  limit- of  128  million  words  for  the  1980-1984 
construction  period. 


2. 1.1. 4 -MEMORY  TO  MEMORY  DATA  FLOW 

Further  knowledge  of  the  memory  hierarchy  might  be  gained  by 
following  the  movement  of  data  through  the  FMP  as  it  might  occur 
for  a large  production  problem.  The  initial  flow  field  and  mesh- 
coordinates  will  have  been  stored  on  rotating  mass  storage  (RMS) 
prior  to  initiating  data  transfer  for  a particular  job. 

1)  While  other  jobs  are  in  progress  on  the  FMP,  the 

incoming  job's-  data  is  moved  from  RMS  to  the  Backing 
Store  through  a buffer  in  Intermediate  Memory.  The  I/O 
channel  connections  to  the  serial  data  trunk  can 
provide  50  megabits  of  data  at  peak  rate,  however,  the 
disk  transfer  rate  is  38  megabits  per  second.  With 
four  channels  transferring  in- parallel  the  rate  is  4 x 
38  = 152  megabits  per  second,  but,  on  the  average.,  half 
the  time  of  each  is  spent  reading  and  half  is 
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spent  writing.  Also,  latency  and  gaps  on  disk  reduce 
the  effective  rate  approximately  by  2.  Therefore,  the 
nominal  9,000,000  word  data  base  (576,000,000  bits  of 
data)  can  be  moved  in  576 , 000, 000/C (38 , 000, 000  x 
4/2)/2)  s 15.16  seconds,  if  no  other  memory  conflicts 
or  trunk  conflicts  exist.  In  reality  the  time  required 
will  be  somewhat  greater  than  this,  as  other  demands 
for  Intermediate  Memory  and  Backing  Store  take  priority 
over  the  1/0  transfer.  Sufficient  bandwidth  is 
provided  to  make  this  factor  negligible.  Intermediate 
Memory  bandwidth  is  21.3  gigabits  per  second  of  which 
about  one-fourth  (or  5.3  gigabits  per  second)  is 
available  to  I/O  transfer. 

2)  Once  the  data  is  completely  stored  in  the  Backing  Store 
(LEVEL  3 memory)  the  job  is  ready  for  staging  into. 
Intermediate  Memory  for  execution.  As  stated 
previously,  this  staging  process  requires  about  288 
milliseconds  for  the  entire  data  base. 

3)  During  job  execution  the  flow  model  program  moves  slabs 
of  data  from  Intermediate  Memory  to  Main  Memory  using 
the  Map  Unit.  When  processing  is  completed  these  slabs 
are  moved  back  to  Intermediate  Memory.  At  the 
conclusion  of  the  job,  the  resulting  data  base  is 
swapped  back  to  the  Backing  Store  (or  rolled  out  of 
Intermediate  Memory).  While  the  job  is  in  execution, 
the  program  may  call  for  the  dumping  of  all  or  portions 
of  the  flow  variables  for  output  to  the  user.  These  1/0 
operations  are  normally  staged  to  the  Backing  Store  and 
then  scheduled  for  transfer  to  RMS  in  block  transfers 
at  the  convenience  of  the  hardware  system. 

4)  The  final  solution  variables  and  intermediate  ones 
dumped  during  execution  are  transferred  back  to  RMS  for 
further  editing  and  evaluation  by  the  support 
processing  system. 

Note  that  the  Backing  Store  is  not  necessary  for  execution  of 
the  nominal  job  streams,  but  in  the  event  that  it  is  absent,  the 
FMF  may  not  be  fully  utilized.  For  example,  some  codes  may 
require  a high  utilization  of  Intermediate  Memory  for  data, 
leaving  a small  portion  of  memory  available  for  staging 
operations.  If  one-third  of  the  Intermediate  Memory  is  reserved 
as  a staging  buffer  for  the  next  job,  a minimum  of  2 times  15.16 
seconds  will  then  be  required  to  accomplish  the  transfer  out  of 
Intermediate  Memory  of  a previous  job's  data  and  transfer  into 
Intermediate  Memory  of  the  next  job's  data.  This  is  a 
theoretical  minimum  of  30.32  seconds.  It  is  possible  that  some 
jobs  executing  in  the  FMP  will  finish  before  the  nominal  data 
transfer  can  be  completed  and  thus  the  FMP  will  become  idle. 

For  larger  research  problems  where  the  data  base  cannot  be 
completely  held  within  the' Intermediate  Memory,  a segment,  or 
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perhaps  all,  of  the  data  would  be  held  in  the  Backing  Store,  and 
transferred  in  "slices” , "slabs",  or  "pencils"  to  the 
Intermediate  Memory  and  thence  dismembered  by  appropriate  map 
operations.  For  such  cases  a Backing  Store  memory  is  required. 


2.1.2  FUNCTIONAL  PARALLELISM 

One  of  the  significant  outcomes  of  the  initial  studies  for  the 
NASF  was  the  unanimous  conclusion  that  the  computational  power 
of  the  FMP  would  have  to  come  from  parallel  processing 
techniques  as  well  as  from  aggressive  use  of  state-of-the-art 
technology.  A major  difficulty  in  the  effective  employment  of 
parallel  processes  lies  in  the  means  of  hardware  and  software 
control  of  such  assemblies. 

While  good  progress  has  been  made  in  programming  and  management 
of  parallel  jobs  and,  in  many  cases,  parallel  tasks  in  large 
systems,  the  focusing  of  a multitude  of  identical  processors  on 
a single  task  has  not  yet  reached  practical  utility  in  the  field 
of  general  problem  solving,  particularly  of  the  type  seen  in  the 
NASA  flow  models.  One  current  solution  to  the  programming  and 
control  problem  has  been  the  evolution  of  "vector  processing" 
which  can  perform  arithmetic  on  a data  stream  (vector)  at  rates 
dependent  on  how  many  vector  operands  can  be  processed  in  a 
given  clock  cycle.  This  rate  is  a function  of  the  bandwidth  of 
the  "vector  unit"  and  the  data  ports  that  feed  it.  It  is  a 
reasonably  simple  design  problem  to  provide  a range  of  vector 
unit  bandwidths,  either  by  using  extremely  fast  technology  in 
the  vector  hardware,  pipelining  the  data  through  the  units,  or 
by  providing  several  identical  arithmetic  elements  in  a pipeline 
all  of  which  operate  in  "lock-step".  The  designer  may  also 
choose  any  combination  or  all  of  the  above  options  to  derive 
arithmetic  performance.  The  key  feature  of  this  approach  is 
that  the  programmer  thinks  and  codes  in  terras  of  vectors  without 
attempting  to  provide  separate  control  to  the  system  for  each 
one  of  the  vector  processing  elements.  If  this  programming 
approach  is  carefully  controlled,  the  user  can  be  made  ignorant 
of  the  actual  number  of  parallel  arithmetic  elements  actually 
enagaged  at  any  one  moment.  The  hardware  control  becomes  one  of 
identical  operation  of  such  parallel  arithmetic  units,  each  on  a 
different  portion  of  the  incoming  data  stream. 

An  examination  of  the  flow  codes  shows  that  arithmetic 
processing  is  only  a fragment  of  the  total  functional  processing 
that  must  be  done,  since  the  data  must  be  organized  into  vectors 
where  necessary,  or  must  undergo  some  form  of  scalar  calculation 
in  some  cases.  As  is  common  in  existing  computer  systems, 
direct  methods  exist  for  the  parallel  execution  of  arithmetic 
functions  while  data  is  being  transferred  concurrently  to  and 
from  I/O  channels;  so  too,  the  FMP  can  perform  a variety  of  data 
movement  activities,  all  simultaneous  with  vector  arithmetic 
processing . 
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This  concept  of  concurrent,  asynchronous  execution  of  different 
functions  upon  the  data  in  memory  is  the  major  programming  and 
hardware  • control  principle  of  Control  Data’s  proposed  Flow  Model 
Processor.  The  functions  which  can  operate  in  parallel  in  this 
mode  are: 

1 . Input/Output 

2.  Backing  Store  swaps 

3.  Intermediate  Memory  map  operations 

4.  Main  Memory  map  operations 

5.  Scalar  processing,  including  management  of  the 
instruction  stream 

6.  Vector  processing 

Input/output  execution  is  similar  to  that  in  most  other  modern 
day  processors.  Control  of  the  actual  data  transfers  is  handled 
by  the  Programmable  Device  Controllers  (PDC)  that  attach  the  I/O 
channels  to  the  network  trunk.  Requests  to  the  PDC  are  found  in 
the  form  of  software  ’’messages”  which  are  stored  in  Intermediate 
Memory  by  the  Operating  System. 

Backing  Store  swaps  are  handled  by  the  Swap  Unit,  which  behaves 
much  the  same  as  the  PDC  does  in  I/O  transfers.  Requests  for 
swap  operations  are  stored  in  Intermediate  Memory  by  the 
Operating  System  and  processed  by  ’’firmware”  in  the  Swap  Unit. 

The  previous  functions  are  directed  and  controlled  by  software 
conventions  established  by  developers  of  the  Operating  System 
and  firmware.  The  remaining  four  parallel  functions  are 
hardware  implemented  processes  that  are  initiated  from  the 
single  FMP  instruction  stream'.  Once  initiated,  each  separate 
function  proceeds  somewhat  asynchronously  until  it  is  complete. 
Should  one  function  depend  on  the  data  being  processed  by 
another  function,  the  compiler  can  establish  this  relationship 
and  ensure  that  hardware  interlocks  will  prevent  one  operation 
from  starting  until  its  predecessor  is  complete,  through  the 
setting  of  dependency  ’’keys”.  The  coordination,  of  Vector  and 
Map  Unit  functions  is  handled  by  the  Streaming  Control  Unit 
which  resolves  dependency  conflicts,  organizes  and  distributes 
the  setup  data,  and  initiates  the ’ appropriate  streaming 
operation. 

Streaming  operations  involve  the  processing  of  sequentially 
stored  (or  vector)- data.  The  optimal  performance,  of  the  memory 
system  of  the  FMP  is  achieved  when  all  memory  accesses  are 
coordinated  and  a group  of  elements  can  be  acquired  at  each 
access.  The  FMP  memory  design  goal  is  to  guarantee  that  groups 
of  elements  can  be  accessed  and  transferred  to  functional  units 
on  a regular  and  continuous  basis  thus  providing  an  unbroken 
stream  of  operands  to  all  attached  parallel  processors.  The 
Streaming  Control  Unit  (see  figure  2)  delivers  the  appropriate 
setup  data  to  the  Map  and  Vector  Units  and  then  initiates  the 
unit's  activity.  The  scheduling  of  memory  requests  and  the 
buffering  of  data  are  then  handled  by  the  specific  functional 
unit  (Intermediate  Map  Unit,  Main  Map  Unit,  Vector  Streaming 
Unit)  . 
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Figure  2.  Streaming  Control  Unit 


The  Map  Units  can  operate  independently  with  their  own  memory 
(Intermediate  or  Main  Memory)  and  thus  proceed  concurrently,  or 
they  can  be  linked  to  perform  transfer  (map)  operations  between 
the  two  levels  of  memory.  In  all  instances,  the  Scalar  and 
Vector  Units  operate  concurrently  -with  any  or  all  other 
functional  units. 


2. 1.3  THE  MAP  UNITS 

Block  diagrams . shown  in  figures  3 and  4 display  the  organization 
of  the  two  Map  Units.  The  specification  and  function  of  these 
systems  are  detailed  in  Volume  II.  The  major  function  of  the 
Map  Units  is  to  organize  data  from  the  original  mesh  structure 
into  optimal  length  vectors  for  processing  by  the  Vector  Unit 
and  then  to  reorganize  the  results  into  other  mesh  structures. 
The  various  transformations  that  provide  the  functions  to  be 
called  mapping  operations  are  described  below. 
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Figure  4.  Intermediate  Map  Unit 


COMPRESS— -A  linearly  stored  vector  of  input  elements  is 
input  To  the  Map  Unit,  along  with  a binary  string  of 
bits,  one  bit  for  each  64/32-bit  data  element.  Each  bit 
of  the  bit  string  is  examined  in  order  and  if  it  is  a 
one,  the.  corresponding  data  element  from  the  input 
vector  is  transmitted  to  the  result  vector. v If  the  bit 
is  a zero  the  corresponding  element  from  the  input 
stream  is  discarded  (not  transmitted  to  the  result 
v-ector)  Th-i-s  is  illustrated  in  figure  5. 
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COMPRESS  SOURCE  WORD  VECTOR  A 
BY  BIT  VECTOR  B 
GIVING  RESULT  WORD  VECTOR  R 

COMPRESS  ON  "0"s  IN  B 
(SELECT  ON  "1"s  IN  B) 


Figure  5.  Example  of  Compress 
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MASK — This  operation  inputs  two  vectors  of  data 
elements  and  a single  bit  stream.  As  shown  in  figure 
6,  the  input  data  streams  could  be  labeled.  A and  B.  Th 
bit  stream  is  examined  one  bit  at  a time.  If  the 
examined  bit  is  a one  the  corresponding  element  from 
the  A data  stream  is  transmitted  to  the  result  vector, 
and  the  corresponding  element  from  the  B stream  • 
discarded..  If  the  bit  is  a zero  the  corresponding 
element  from  the  B stream  is  transmitted  to  the  result 
vector,  and  the  corresponding  element  of  the  A stream 
discarded . 


SOURCE  VECTOR 


RESULT  VECTOR 
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BIT  VECTOR 


MASK  WORD  VECTOR  A 
AND  WORD  VECTOR  B 
UNDER  CONTROL  OF  BIT  VECTOR  C 
TO  GIVE  RESULT  VECTOR  R 

SELECT  A STREAM  ON  "1"s  OF  BIT  VECTOR 
(SELECT  B STREAM  ON  "0"s  OF  BIT  VECTOR)' 


Figure  6.  Example  of  Mask 


MERGE — This  operation  merges  elements  of  two  input  data 
streams  (A  and  B)  according  to  a binary  string  of  bits. 

(see  figure  7)  If  the  examined  bit  of  the  string  is  a 
one  the  next  available  element- from  the  A stream  is 
transmitted  to  the  result  vector;  if  the  bit  is  a zero 
the  next  available  element  of  the  B stream  is 
transmitted  to  the  result  vector.  No  element  is. 
discarded  from  either  stream.  The  effect  is.  to.  combine 
all  elements  of  the  input  streams  into  a single 
vector . 
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SELECT  B STREAM  ON  "0"s  IN  C 


Figure  7.  Example  of  Merge 


A variant  of  this  instruction  (shown  in  figure  8) 
discards  B stream  elements  if  the  bit  is  a one,  but 
does  not  discard  A stream  elements  under  any 
circumstances.  The  effect  of  the -operation  is  to 
simultaneously  decompr ess  the  A stream  and  insert  the 
decompressed  elements  into  the  corresponding  position 
of  the  B stream. 
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Figure  8.  Example  of  Decompress 


These  .three  operations  facilitate  the  selection  of  data  from  a 
matrix  according  to  either  preset  criteria  (a  presto,red  bit 
vebtor)  or  data/ execution  dependent  criteria  (there  are  several 
instructors  which  generate  the  bit  strings,  called  ’‘control 
vectors”  based  on  data  comparisons  by  the  Vector  Unit) . The 
compress,  mask,  and  merge  operations  are  not  required  for 
•optimum  performance'  of  the  3-D  implicit  .code , but  are  useful  for 
the  explicit  codes  and  essential  to  weather  and  structures 
codes.  . • 

The-  key  instruction  in  solving  the  implicit  code  on  the  FMP 
aside  from  the  arithmetic  operations  are:  •»  1 

. 4.  GATHER — The  primary  function- of  the  Gather  operation  is 
to  collect  non-contiguous  data  elements . into 
sequentially  stored  vectors  which  can  then  be  processed 
efficiently  by  the  Vector'  Units.  The  hardware  can 
collect  non-sequential  records;  A record  is  a group  of 
sequentially  stored  elements  which" are  accessed  as  a 
single  entity  by  the  Gather  operation.  Non-sequential 
single  elements  can  ?lso  be  collected  by  treating  them 
as  single-element  records.  Figure  9 illustrates  the 
• single-record  Gather.  ' . 

The  elements  (or, records)  to  be  moved  are  selected 
either  by  means  of  a list  of  indexes,  each  of  which 
points  to  a record  in  memory,  or  by  means  of  a 
’’stride”,  which  determines  the  number  of  elements  to  be 
skipped  before  another  record-  is  selected.  In  figure  9 
a fixed  stride  of  10  was  utilized  to  cause  the  movement 
of  elements  00,  10,  20,  30,  40,  50,  60,  70,  80,  and  90 
to  the  sequential  vector  X.  The  vector  Y in  figure  9 
was  formed  by  using  a list  of  indexes  which  pointed  to 
elements  340,  630,  570,  493,  294,  596,  699,  798,  897, 
and  697  of  the  original  mesh.  Note  that  the  selected 
elements  need  not. appear  in  any  particular  order  and 
thus  can.be  essentially  random.  In  place  of  a single 
element  the  indexed  "list  could. point  to  records  of 
data.  For  example  the  record  length,  RL,  could  be 
specified  as  10  elements.  The  first  record  would  begin’ 
at  element- 340  and  would  proceed  sequentially  through 
element  349.  The  next  record  would  begin  at  the 
element  pointed  to  by  the  next  index,  630,  .and  continue 
through  element  639.  Of  course,  in  this  case,,  result 
vector  Y would  be  10  times  as  long  as  in  the 
^single-element  example. 
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Figure  9.  Examples  of  Gather  with  Fixed  Stride  = 10  and 
with  Index  List 
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In  figure  10  the  result  vector  is  composed  of  ^e£or 
of  length  RL=1 0 taken  from  the  mesh. at  stride  intervals 
(STs30)  of  30  elements.  The  Map  Unit  then  takes  the 
first  record  beginning  at  element  00,  moving  . - 

elements  for  that- record,  then  it  applies  the  stride  of 
30  to  the  first  element  address  and  begins  the  nex 
record  at  element  30. 


Figure  10.  Gather  Record  with  Fixed  Stride  = 30 
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The  FMP  provides  for  gather  operations  using  strides  in 
two  directions  (ST=n,m).  Figure  11  shows  the  effect  of 
using  the  two  strides.  First  the  hardware  begins  at 
element  00  and  moves  a record  of  length  1 (element).  A 
stride  of  10  is  then  applied  (first  stride)  and  the 
next  record  moved  from  element  10.  Ten  such  records 
(NR=10)  are  moved,  then  the  hardware  restarts  at'  the 
first  element,  applying  the  stride  of  100  elements 
(second  stride)  and  begins  the  process  all  over  again 
until  the  specified  vector  length  (VL=20)  is  filled. 
Strides  may  consist  of  any  positive  or  negative  integer 
value.  It  can  be  seen  that  with  this  instruction, 
two-dimensional  and  three-dimensional  arrays  can  be 
transposed  with  a single  gather  instruction. 
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Figure  11.  Gather  Record  with  Two  Strides 
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5.  SCATTER — The  scatter  function  operates  as  the  inverse 
of  the  Gather  in  all  of  its  options.  Instead  of 
collecting  discontiguous  elements  however,  this 
function  distributes  records  (or  elements)  into  memory 
according  to  the  fixed  stride  or  strides  (ST=n,m)  as 
specified  in  the  instruction,  or  according  to  the  list 
of  indexes  (for  random  storage  of  data).  The  scatter 
operation  is  illustrated  in  figure  12. 


SCATTER  WORD  VECTOR  A 
TO  WORD  VECTOR  R 
USING  INDEX  VECTOR  I 

USE  VECTOR  A IN  RECORDS  OF  TWO  WORDS 

EACH  WORD  IN  I IS  ADDED  TO  THE  R 
BASE  ADDRESS  TO  COMPUTE  A STORE 
ADDRESS  IN  R FOR  THE  FIRST  WORD 
OF  EACH  RECORD 


Figure  12.  Example  of  Scatter 
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These  five  operations  can  be  performed  one  at  a time 
independently  and  concurrently  in  each  of  the  Map  Units,  one 
operating  with  the  Main  Memory  (LEVEL  1)  and  one  operating  with 
the  Intermediate  Memory  (LEVEL  .2) . The  two  Map  Units  can  be 
combined  to  perform  Gather  or  Compress  from  LEVEL  2 to  LEVEL  1 
or  Scatter  from  LEVEL  1 to  LEVEL  2. 


2.  1...4  THE.  SCALAR  UN-IT 

The  control-  of  the  entire  FMP  ensemble  is  accomplished  by 
centralized  decoding  of  a single  instruction  stream  in  the 
Scalar  Unit  and  distribution  of  the  controls  for- Vector,  Map, 
and  I/O  operations  to  other  separate  units.  The  Scalar  Unit  is 
described  in  detail  in  the  functional  specification  found  in 
Volume  II.  Since  this  element  is  the  executing  heart  of  the 
FMP,  it  has  been  decided  that  this  unit  should  consist  of  the 
most  mature  design  and  technology  available.  The  CYBER  203 
Scalar  Unit  was  chosen  since  it  meets  the  requirements  for 
performance  and  architecture  ("distributed  operation"),  and 
possesses  extensive'  diagnostic  programs  for  a large  machine 
structure. 


2.1.5  THE  VECTOR  UNITS 

The  major  arithmetic,  processing  by  the  FMP  is  performed  by  the 
Vector  Unit  assembly  (Vector  Ensemble).,  which  consists  of  four 
identical,  separately  controlled  units  ( pipelines) ,' plus  one 
additional  unit  which  acts  as  an  on-line  spare.  One  Vector  Unit 
is  diagrammed  in  block  schematic  form  and  discussed  in  detail  in 
the  functional  specification  (see  Volume  II).  The  key  features 
of  the  Vector  Units  are: 

1)  "Double  Clocking"--The  employment  of  pipelining  of 
.arithmetic  operations  makes  it  possible  to  use  a faster 
clock  cycle  for  these  units  than  is  required  by  the 
Scalar  and  Map  Units.  By  using  a clock  period  half 
that  of  the  other  FMP  elements,  the  throughput  of  each 
unit  can  be  doubled  and  the  number  of  such  units 
otherwise  required  reduced  by  half.  This  permits  the 
designers  to  reduce  the  hardware  components 
substantially  over  a normal  "full  clock"  design.  The 
reduction  is  not  fully  one-half,  but  rather  closer  to 
35%  since  additional  "latches"  must  be  included  in  the 
design  to  hold  operands  between-  logic  stages  because  of 
the  speed'  of  the  faster  clock. 

2)  "Variable  Redundancy" — The  reliability  of  the  FMP  is 
crucial  to  its  success  as  a major  facility.  Since  the 
Vector  Units  constitute  a major  portion  of  the  . 
non-memory  hardware,  the  highest  failure  probabilities 
are  then  found  in  these  units.  Various  techniques  have 
been  suggested  (,and  discussed  in  more  detail  in  refs.  1 
and  2)  for  ensuring  the  validity  of  results 
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from  the  Vector  Units.  Two  most  prominent  candidates 
were  data  parity  (1  bit  for  every  8 bits  of  data)  and 
modulus  arithmetic.  While  these  techniques  provide 
proven  validation  of  most  of  the  data  paths  in  an 
arithmetic  unit  they  are  not  effective  for  the  high 
speed  multiply  networks  desired  for  the  FMP,  and  they 
provide  no  surveillance  of  the  variety  of  control 
networks  engaged  in  the  Vector  Units. 

A very  attractive  option  is  to  provide  total  redundancy  of 
Vector  Units,  each  with  its  own  control  and  data  paths.  Then  a 
pair  of  units  could  check  each  other.  This  approach  is  fraught 
with  two  difficulties.  First,  the' amount  of  additional  hardware 
more  than  doubles  the  volume  of  parts  (and  hence 
interconnections)  needed  for  the  Vector  Units,  and  thus 
increases  the  likelihood  of  component  failure  to  unacceptable 
levels.  Second,  the  impact  of  the  additional  hardware  is  seen 
in  much  higher  machine  cost,  and  additional  chassis  volume  which 
can  affect  vector  startup  timing. 

An  engineering  compromise  is  possible  for  this  dilemma.  The 
system  could  provide  the  completely  redundant  hardware  which 
could  be  used  for  validation  of  answers,  or  for  improving 
performance.  The  extent  to  which  the  redundancy  is  controlled 
would  be  a function  of  the  programmer  or  compiler’s  intent  or 
capability.  The  block  diagram  of'  the-  Vector  Unit  shown  in 
figure  13  displays  the  use  of  redundant  hardware  as  there  are 
duplicate  frontend  adders,  duplicate  multiply  units,  duplicate 
complement  networks,  and  duplicate  backend  adders  in  each  Vector 
Unit.  By  providing  four  Vector  Units  of  this  type,  the  memory 
bandwidth  can  be  matched  and  a minimum  operation  rate  for  64-bit 
add,  subtract  and  multiply  can  reach  a useful  limit  of  500 
megaflops  with  fully  redundant  checking  of  all  arithmetic  except 
for  Divide.  Since  the  Divide  operation  uses  the  same  hardware 
(except  for  the  divide  table)  as  the  Add/Sub  operation,  the 
redundant  checking  of  the  Add  and  Subtract  is  relied  upon  to 
verify  the  probable  reliability  of  the  Divide  operation. 
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Figure  13.  One  Vector  Unit 


In  figure  13  four  checking  units  (CHECK  A,B,C  and  D)  are 
provided  to  compare  the  results  from  the  various  functional 
elements  in  the  Vector  Unit.  Any  combination  of  check  units  can 
be  enabled  for  an  operation,  and  if  an  error  is  detected  by  an 
enabled  checker,  a flag  is  sent  to  the  Maintenance  Control  Unit 
(MCU)  and  the  Vector  Units  are  halted  within  six  clock  cycles  of 
the  failure  detection.  In  the  simplest  case,  where  500 
megaflops  is  an  adequate  processing  rate,  data  is  fed  from 
memory  via  buses  SRI  and  SR2  and  selected  through  the 
corresponding  trunks  in  the  Vector  Unit.  This  means  that  data 
on  SRI  would  be  selected  through  TRUNK  A and  TRUNK  C and  data  on 
SR2  would  be  selected  on  TRUNKS  B and  D.  The  identical 
functions  and  path  selections  would  then  be  enabled  for  both 
halves  of  the  unit.  The  vector  operation 


C=A+B 

with  A coming  from  SRI,  B coming  from  SR2,  and  C going  to  memory 
on  AW1,  would  follow  the  path  through  FRONTEND  ADDER  1 and 
FRONTEND  ADDER  2 with  the  corresponding  results  being  compared 
in  CHECK  A.  -The  unnormalized  add  results  would  then  be  passed 
through  the  multiply  network  and  the  corresponding  results  of 
this  "pass”  operation  compared  in  CHECK  B.  The  final 
postnormalization  is  performed  in  the  backend  adders  and  those 
results  compared  in  CHECK  C.  The  data  then  passes  through  the 
SECDED  generator  which  appends  14  bits  of  error  correction  code 
(per  64  bits  of  data)  and  is  transmitted  to  memory.  Note  that 
the  complement  networks  are  not  engaged  in  this  particular 
operation,  however  the  data  from  trunks  B and  D (which  should  be 
identical)  is  automatically  gated  through  these  complement 
networks  by  the  Vector  Unit  so  that  the  results  may  be  checked 
in  CHECK  D. 

The  above  example  demonstrates  the  use  of  total  redundancy  in 
the  Vector  Unit.  To  ensure  that  _as_much  hardware  as  possible  is 
being  checked  accurately,  each  element  of  the  Vector  Unit 
possesses  its  own  control  circuitry.  The  operation  codes  sent 
from  the  Scalar  Unit  carry  a one-bit  parity  to  each  unit,  which 
verifies  its  own  operation  code  validity.  All  clocking, 
fan-out,  fan-in,  and  microcode  sequencing  is  then  done  entirely 
within  that  unit.  This  means  that  not  only  are  the  data  paths 
verified,  but  the  control  sequencing  and  control  fan-out  are 
verified  for  each  unit.  This  is  a key  part  of  the  FMP  Vector 
Unit  design. 

In  many  instances  however,  the  500  megaflop  rate  is  not 
satisfactory,  particularly  since  the  FMP  objective  is  a 
sustained  rate  of  at  least  1000  megaflops.  To  achieve  higher 
processing  rates  some  of  the  additional  hardware  in  each  Vector 
Unit  must  be  brought  into  play.  Take  as  an  example 

R=(A+B)*C 

with  A coming  from  SRI,  B coming  from  SR2,  C coming  from  SR3, 
and  R returning  to  memory  on  AW1. 
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The  A and  B operands  are  processed  by  FRONTEND  ADDER  1 while  the 
C operand  passes  through  FRONTEND  ADDER  2.  Since  the  results 
coming  from  the  two  frontend  adders  cannot  be  identical  in  this 
case,  CHECK  A is  turned  off.  The  sum  A+B  is  then  fed  to 
MULTIPLY  1 via  MUX  IB  and  the  multiplier  C is  fed  through  MUX 
1A.  At  the  same  time  the  frontend  adder  output  is  fed  to 
MULTIPLY  2 via  MUX  2A,  and  the  multiplier  is  transmitted  through 
MUX  2B.  Thus  the  multiplier  results  can  also  be  checked  in 
CHECK  B-.  By  selecting  SR2  through  TRUNK  D as  well  as  TRUNK  B, 
identical  data  will  be  fed  through  the  complement  network 
(although  it  has  no  use  in  this  particular  operation)  and  thus 
the  results  can  be  compared  in  CHECK  D.  The  results  of  the 
multiply  operation  are  post-normalized  in  BACKEND  ADDER  1 and 
also  BACKEND  ADDER  2 so  that  they  may  be  compared  in  CHECK  C. 

The  resulting  normalized  results  are  then  sent  to -memory  after 
SECDED  has  been  generated. 

In  this  example,  three  pairs  of  the  four  sets  of  arithmetic 
elements  are  checked  for  validity  at  each  clock  cycle.  Depending 
on  the  operation  desired  and  the  processing  rate  required,  the 
amount  of  checking  can  be  varied  from  100?  to  no  worse  than  25? 
of  the  actual  hardware  in  the  unit.  Since  an  operation  such  as 

R=(A*B)+( C*D ) 

will  have  different  results  emerging  from  the  corresponding 
multiply  elements,  frontend  adders,  and  complement  networks,  it 
might  be  desirable  in  some  critical  cases  to  force  the  object 
code  to  break  up  the  operation  into  three  parts,  at  a consequent 
loss  in  performance,  in  order  to  assure  the  validity  of  the 
answers : 


T 1 =A*B 
T2=C*D 
R=T1+T2 

This  technique  can  be  quite  costly  in  storage  space  allocation 
however,  and  given  a large  mix  of  dyadic  and  triadic  operations 
in  the  Vector  Units,  it  can  be  expected  that  on  a probabilistic 
basis  the  confidence  in  the  results  should  be  close  to  100%,  if 
the  variable  redundancy  technique  is  used.  It  is  obvious  that 
the  FMP  compiler  should  provide  a compile  time  option  which 
restricts  the  generation  of  object  code  to  simple  monadic 
operations  where  a programmer  wishes  to  achieve  100%  checking  of 
results . 

The  additional  spare  Vector  Unit  is  physically  connected  to  the 
data  trunks  at  all  times.  The  trunk  network  can  be 
electronically  switched  by  the  Maintenance  Control  Unit  (MCU)  to 
extricate  any  failing  Vector  Unit,  and  reconfigure  the  system  so 
that  four  non-failing  units  (including  the  spare)  are  placed 
back  on-line.  Since  the  spare  unit  is  always  connected  to  the 
trunk,  it  can  be  made  to  behave  in  identical  fashion  (function 
and  data)  with  one  of  the  other  units,  except  for  returning 
results  to  memory. 
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This  unit  is  then  checked  in  a continuous  manner  as  are  the 
other  operating  units.-  A comparator  is  also  provided  which 
compares  the  outputs  of  the  spare  unit  and  the  unit  which  it  is 
tracking;  the  MCU  is  notified  of  any  non-compare.  In  addition, 
the  spare  unit  can  be  logically  isolated  from  the  other  units 
and  then  driven  by  the  MCU  (at  a greatly  reduced  rate)  , 
returning  results  to  the  MCU,  such  that  it’ can  be  at  least 
partially  diagnosed  while  the  other  units  are  performing  useful 
work. 

The  Vector  Units  are  capable  of  operating  in  64-bit,  32-bit  or 
mixed  mode.  When  operating  in  32-bit  mode  all  arithmetic 
functions  except  divide  can  produce  two  floating-point  results 
per  cycle.  Thus,  a single  Vector  Unit  can  perform 

A* (B+C*D) 

in  32-bit  mode  and  effectively  yield  3 operations  * 2 operands  = 
6 results  per  cycle  on  one  of  two  output  ports.  (The  other 
output  port  can  provide  a partial  result  of  that  which  appears 
at  the  first  port,  dependent  on  what  the  operations  are;  this  is 
not  considered  in  this  example.)  Using  existing,  high 
performance  LSI  technology,  this  cycle  for  the  Vector  Units  can 
realistically  be  set  at  8 nanoseconds.  Four  Vector  Units  would 
then  produce  24  results  every  8 nanoseconds,  or  3' results  every 
nanosecond,  for  a peak  operations  rate  of  3000  megaflops. 


2.2  THE  FMP  OPERATION 

To  illustrate  the  operation-  of  the  FMP  a sequence  of  code  is 
extracted  from  the  three-dimensional  implicit  solution  (appendix 
B) : 

930  RJ=Q(2:  KMAX-1 , L:L+LSM  , 6,  *)• 

940  XKL=X ( * , L-1 : L+LSM+1 ,2: JMAX-1 ) 

950  YKL=Y (*, L-1 : L+LSM+1 ,2: JMAX-1) 

960  ZKL=Z(*, -L-1: L+LSM+1  ,2:  JMAX-1) 

970  XK=(XKL (3 : KM AX, 2: LSL+1 ,*)-XKL(1 :KMAX-2, 2:LSL+1 ,*) )*DY2 

980  YK=  (YKL (3  ■ KMAX,  2: LSL+1  ,*)-YKL(.1  : KMAX-2, 2:LSL+1 ,*) )*DY2 
990  ZK= (ZKL (3 : KMAX, 2: LSL+1 , *)-ZKL ( 1 : KMAX-2, 2: LSL+1 , *) ) *DY2 

1000  XL=(XKL(*,3:LSL,*)-XKL(*, 1 : LSL-2 ,*)) *DZ2 

1010  YL=(YKL(*,3:LSL,*)-YKL(*, 1 : LSL-2,*) )*DZ2 

1020  ZL=(ZKL (* , 3: LSL,* )-ZKL (* , 1 : LSL-2 ,* ) ) *DZ2 
1030  XX(1)=(YK*ZL-ZK*YL)*RJ(*,*,2: JMAX-1 ) 
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Found  in  lines  930  through  960  is  a sequence  of  map  operations 
which  move  data  from  Intermediate  Memory  (LEVEL  2)  to  Main 
Memory  (LEVEL  1)  as  gather  record  operations.  The  stream  of 
instructions  is  delivered  to  the  Scalar  Unit  which  first 
performs  whatever  scalar  setup  of  addresses  and  lengths  is 
necessary  for  the  first  map  function  (line  930).  In  this  case 
it  consists  of  computing  the  length  of  the  records  to  be  • 
transmited  since  the  array  Q is  dynamic  and  its  dimensions  must 
be  computed  at  object  time.  The  base  addresses  for  the  map 
operations  must  also  be  computed  at  the  same  time.  The  map 
operations  is  then  sent  to  the  Streaming  Control  Unit  (SCU), 
which  is  assumed  to  be  idle  at  the  moment. 

Since  the  map  operation  transmits  data  between  the  LEVEL  1 and 
LEVEL  2 memories,  the  Streaming  Control  Unit  engages  both  Map 
Units,  set  up  the  data  paths,  and  transmits  the  appropriate 
internal  functions  to  both  units.  While  this  process  is 
underway  the  Scalar  Unit  continues  executing  scalar  instructions 
which  perform  the  interpretation  of  statement  940,  computing 
record  lengths  and  base  addresses  and  transmitting  the  map 
instruction  to  the  Streaming  Control  Unit.  Since  the  Map  Units 
are  now  busy  moving  data  for  the  fist  operation,  the  incoming 
map  instruction  is  queued  in  the  Streaming  Control  Unit.  The 
Scalar  Unit  continues  instruction  decode  after  this  second  map 
operation  is  accepted  by  the  SCU.  A third  map  operation  is  then 
set  up  and  transmitted  to  the  Streaming  Control  Unit.  A fourth 
map  operation  is  set  up,  transmitted,  and  queued  by  the  SCU. 

The  Scalar  Unit  continues  processing  the  instruction  stream, 
which  probably  contains  other  scalar  setup  operations,  until  the 
vector  arithmetic  called  out  by  statement  970  is  encountered. 
This  vector  instruction  is  set  up  and  sent  to  the  Streaming 
Control  Unit.  However,  this  instruction  contains  a dependency 
key  of  w01"  which  prohibits  execution  until  the  corresponding 
key  becomes  not  busy.  Since  this  key  was  assigned  as  a write 
key  to  the  second  map  instruction,  the  vector  instruction  will 
wait  in  the  SCU  until  this  key  becomes  not  busy,  signifying  that 
the  corresponding  data  (Vector  XKL)  has  been  completely  mapped 
into  Main  Memory. 

The  Scalar  Unit  proceeds  to  execute  more  instructions  until  the 
next  vector  operation  (statement  980)  is  encountered.  Since  the 
first  vector  operation  is  held  up  and  not  yet  in  the  streaming 
queue,  the  Scalar  Unit  cannot  issue  any  more  stream  instructions 
to  the  SCU.  The  Scalar  Unit  then  pauses  until  the  previosly 
issued  vector  instruction  becomes  free  of  its  dependency  key 
conflict.  Upon  completion  of  the  map  operation  for  Vector  XKL, 
the  next  map  operation  is  immediately  commenced  (for  Vector 
YKL).  The  vector  operation  is  then  initiated  on  the  XKL  data, 
the  Scalar  Unit  then  can  issue  the  vector  instruction  for 
statement  980.  Since  the  map  operations  proceed  at  a much 
slower  rate  than  the  vector  operations,  the  vector  operation  at 
970  will  be  done  before  the  map  operation  which  moves  YKL  data 
to  Main  Memory  is  complete.  The  next  vector  operation  is  then 
held  up  for  its  data  (Vector  YKL)  by  the  same  dependency  key 
mechanism  (although  with  a different  key)  as 
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described  previously.  In  this  instance  again,  the  Scalar  Unit 
will  pause  until  the  dependency  key  becomes  not  busy.  This  same 
process  continues  for  the  Vector  ZKL. 

The  sequence  of  pauses  illustrated  herein  obviously  affect  the 
performance  potential  of  the  FMP.  For  that  reason  the  actual 
code  generated  for  this  example  includes  prefetching  the  vectors 
XKL,  YKL , and  ZKL  with  the  Map  Units  long  before  they  are  needed 
by  the  vector  arithmetic.  In  actual  fact,  the  fetching  of  the 
next  set  of  data  for  these  arrays  is  carried  on  concurrently 
with  the  vector  arithmetic  on  the  current  XKL,  YKL,  and  ZKL 
data. 

Once  the  vector  operation  at  statement  at  990  is  initiated  by 
the  Vector  Unit,  because  its  dependency  key  has  become  non-busy, 
the  remaining  vector  operations  are  set  up  and  queued  in  the 
Streaming  Control  Unit  without  conflict  since  no  dependency  key 
is  needed  (the  data  is  already  known  to  be  available). 

Statements  970  through  1020  illustrate  the  use  of  two  functional 
elements  in  each  pipeline  (a  subtract  operation  followed  by  a 
multiply) , which  yields  a floating-point  rate  of  1000  megaflops 
peak  value.  Statement  1030  performs  two  multiplies  and  one 
subtract  in  one  instruction  and  thus  yields  1500  megaflops  peak 
rate  computation  in  64-bit  mode.  The  remaining  multiply  by  RJ 
is  combined  into  a later  vector  arithmetic  operation. 


2.3  RATIONALE  SUMMARY 

The  FMP  hardware  described  in  this  report  represents  an  example 
of  a processor  which,  in  the  best  judgment  of  RADL  personnel, 
can  be  built  and  utilized  in  the  period  beginning  in  1983-1984, 
and  which  will  meet  the  performance  and  reliability  goals  (1 
gigaflop,  95%  availability)  established  as  minimum  by  NASA-Ames. 
The  final  form  represented  here  is  necessarily  the  result  of 
many  complex  tradeoffs  involving  schedule,  timing,  technology, 
manufacturing  considerations,  and  the  crucial  reliability, 
availability,  and  maintainability  (RAM)  factors  that  must  be 
taken  into  account  for  such  a large  assemblage  of  equipment. 

Some  of  the  architectural  decisions  are  obviously  linked  to 
Control  Data's  experience  with  the  STAR-100  and  the  CYBER  200 
family  of  Vector  processors.  A further,  practical  linkage 
involves  the  use  of  systems  and  diagnostic  software  for  the  FMP 
that  can  be  derived  at  minimal  risk  from  the  CYBER  200  systems. 
The  thought  process  that  has  been  involved  in  these  design 
decisions  has  extended  through  prior  study  periods  into  this 
present  study  with  the  appropriate  rationale  documented  in 
previous  reports  (refs.  1,  2).  For  the. most  part  these  rationale 
remain  unchanged  from  the  previous  studies  but,  since  they  are 
so  critical  to  the  outcome  of  the  project,  it  is  desirable  to 
restate  them  here  in  order  of  priority  to  FMP  success. 
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2.3.1  RELIABILITY,  AVAILABILITY,  and  MAINTAINABILITY 

Although  the  FMP  was  founded  on  the  premise  of  producing  the 
fastest  computer  in  existence  in  the  1980's  in  exchange  for  some 
"tailoring"  of  the  hardware  to  match  specific  algorithms,  the 
major  consideration  throughout  the  FMP  design-  project  has  been 
that  of  reliability.  The  corollary  issues  of  availability  and 
maintainability  were  also  included  in  this  area  of  priority 
concerns.  In  another  section  of  this  report  these  topics  are 
defined  and  discussed  in  more  detail.  Here  the  effect  of  these 
considerations  on  the  FMP  structure  will  be  covered. 

The  overriding  concern  of  designers  for  a system  as  large  as  the 
FMP  is  the  parts  count  and  the  effect  of  this  count  on  RAM.  The 
hierarchial  memory  was  arrived  at  (as  previously  discussed)  by 
evaluating  the  performance  and  capacity  requirements  arising 
from  the  characteristics  of  the  flow  models.  The  high 
performance  Main  Memory  was  specified  on  the  basis  of  the  most 
powerful  memory  system  currently  available,  the  CYBER  200  two 
million  word,  128  billion  bits  per  second,  central  memory.  This 
memory  system  utilizing  the  recently  available  4096-bit  RAM 
chip,  can  hold  8 million  words  and  achieve  the  same  high 
performance  levels  as  the  2 million  word  system.  This  memory 
requires  over  175,000  parts.  If  a larger  memory,  say  of  32 
million  words,  were  desired  then  over  700,000  parts  would  be 
required.  Given  a nominal  failure  rate  goal  of  .01%  of  all 
parts  per  1000  hours  that  would  mean  70' failures  per  1000  hours 
or  a failure  evey  14  hours.  Even  with  single-error  correction, 
double-error  detection  (SECDED)  networks  protecting  the  memory, 
the  FMP  would  encounter  an  unacceptable  level  of  interruptions 
as  the  probability  of  a double-bit  error  occurring  becomes  quite 
high. 

At  the  expense  of  lower  performance,  another  level  of  memory 
could  be  built  of  65K-bit  chips  to  produce  a memory  system  of  32 
million  words  with  only  38,000  parts  (approximately). 

Finally,  if  128-256  million  words  are  necessary  for  the  solution 
of  some  research  problems,  the  65K  part  again  becomes  inadequate 
to  the  task  as  so  many  parts  are  needed  in  the  memory  that  the 
failure  rate  reached  intolerable  levels,  despite  the  employment 
of  SECDED.  Another  storage  hierarchy  is  thus  indicated  using 
higher  capacity,  lower  performance  memory  components.  If  the 
predicted  256K-bit  CCD  memory  part  becomes  available,  the  memory 
part  count  becomes  approximately  36,000,  with  a concomittantly 
acceptable  failure  rate.  The  realistic  production  of  1 million 
bit  bubble  chips  (which  would  reduce  parts  count  for  this  level 
of  memory  to  around  9000)  appears  to  be  possible  in  the  1982 
timeframe.  The  design  goals  for  LEVEL-  3 bandwidth  currently 
preclude  the  use  of  bubbles  however,  because  of  the  relatively 
slow  serial  transfer  rate  of  bubble  technology. 
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2.3. 1.1  EFFECT  OF  PARTS  COUNT 


The  table  below  gives  approximate  chip  counts  for  the  major 
elements  of  the  FMP.  Chip  types  are  as  follows: 

• CPU  - LSI  and  Other  (microcode  memory/high  speed 

buffers) 

• Main. Memory  - 4K  x 1-bit  bipolar  RAM 

• Intermediate  Memory  - 128K  x 1-bit  MOS  RAM 

• Backing  Store  - 256K  x 1-bit  CCD 

The  memory  chip  counts  include  approximately  10?  which  are  for 
control  and  interface;  the  balance  is  the  indicated  type  of 
memory  chip. 


Estimated  Chip 

Count 

for  FMP 

Element 

Chip 

Count 

CPU 

1 1K 

LSI* 

13K 

Other* 

Main  Memory 

185K 

Intermediate 

Memory 

2 OK 

Backing  Store 

4 OK 

* LSI  is  the  CDC  LSI-168  gate  array; 
other  chips  are  for  microcode  memory 
and  high  speed  buffers. 


Overall  reliability  is  determined  largely  by  parts  count  and 
that  effect  influences  design  decisions  about  the  memory.  What 
are  the  other  effects  of  parts  count?  First,  the  FMP  logic 
should  be  examined  to  see  how  reliability  can  be  affected  by 
parts  count  in  the  remainder  of  the  CPU.  Control  Data  chose  for 
the  FMP  the  most  technologically  aggressive  circuit  family,  in 
terms  of  density  and  speed,  that  can  be  expected  to  be  available 
in  the  period  identified  for  construction  of  the  NASF.  This 
family  consists  of  Large  Scale  Integration  (LSI)  circuits  of 
speed  on  the  order  of  700-900  picoseconds  for  typical  logic 
elements.  With  this  component  the  Scalar,  Vector,  Map,  Memory 
Interface,  and  Streaming  Control  Units  can  be  built  using  about 
18,600  parts.  This  design  would  involye  the  building  of  nine 
Vector  Units,  each  operating  at  a 16-nanosecond  clock  cycle. 
Although  18,600  parts  are  a relatively  small  number  compared  to 
the  Main,  Intermediate,  and  Backing  Store  Memories,  it  must  be 
remembered  that  most  of  the  memory  parts  are  protected  by 
SECDED,  while  a good  deal  of  the  CPU  logic  is  not.  By 
double-clocking  the  Vector  Units  (described  previously)  it  is 
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possible  to  construct  the  FMP  with  only  five  Vector  Units  (four 
operating  units  and  one  spare)  with  a consequent  reduction  in 
LSI  parts  of  approximately  5400  or  about  25%. 

A second  effect  of  parts  count  is  the  need  for  interconnection 
of  the  parts  involving  solder  and  pressure  connections,  bonds, 
and  metalized  paths.  The  impact  of  interconnections  is 
secondary  to  part  failure  rate  in  the  reliability  calculations, 
but  still  significant  for  a large  ensemble  such  as  the  FMP 
(refer  to  Division  6). 

A third  effect  of  parts  count  is  subtly  linked  to  the 
availability  and  maintainability  of  a hardware  network.  Once  a 
failure  occurs,  what  is  the  probability  that  it  can  be  corrected 
automatically,  thus  requiring  no  emergency  maintenance  activity? 
Further,  if  a maintenance  action  is  required,  what  is  the 
probability  that  the  failing  part  can  be  isolated  within  a 
minimal  time  objective  MTR"  (Time  to  Repair)?  These 
probabilities  directly  influence  the  probable  RAM  (reliability, 
availability,  and  maintainability)  objectives  for  the  FMP. 

By  basing  the  FMP  on  a large,  homogeneous  memory  system,  the 
designers  have  attempted  to  make  maximum  use  of  memory 
characteristics  to  affect  the  RAM.  Memory,  delightfully, 
consists  of  well  ordered  parts  with  limited  interconnection.  The 
use  of  SECDED  on  memory  data  not  only  provides  a first  level  of 
defense  against  memory  failures  (by  automatically  correcting 
single  errors),  but  provides  information  (via  the  check  bits) 
which  can  be  analyzed  by  the  Maintenance  Control  Unit  (MCU)  to 
assist  Service  Engineers  in  the  isolation  of  the  failing 
components  in  minimum  time.  While  there  are  failure  modes  in 
the  memories  that  cannot  be  detected  or  corrected  by  SECDED 
(such  as  power  bus,  address  line,  and  read/write  strobe 
failures)  over  98%  of  the  memory  parts  are  covered  by  SECDED. 

SECDED  should  be  carried  throughout  all  data  paths  wherever 
possible  to  provide  automatic  correction,  as  well  as  detection, 
to  the  maximum  extent.  In  the  FMP,  SECDED  has  been  carried  into 
the  Vector  Units  up  to  the  point  where  the  data  enters  the  unit 
and  the  check  bits  can  no  longer  be  retained  (the  data  will  be 
altered  by  arithmetic  operations)  . SECDED  is  regenerated  for 
results  emerging  from  the  Vector  Units  being  transmitted  back  to 
memory.  Double  failures  in  these  data  paths  (in  the  Map  and 
Vector  Units)  will  yield  check  bits  that  can  aid  the  engineer  in 
fault  isolation  in  minimum  time. 
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2.3.1'.  2 TRANSIENT  ERRORS 

A word  must  be  said  about  the  most  infuriating  culprit  in  large 
systems transient  errors  in  data  and  control.  A totally 
failing  component  will  generally  make  itself  known  rather 
quickly,  either  through  the  mechanism  of  the  SECDED  error 
detection  system,  on-line  diagnostics,  or  abysmal  failure  of  a 
’'stable”  production  code.  In  large  complexes  of  hardware,  such 
as  the  FMP , the  possibility  for  transients  occurring  due  to 
induced  noise,  bus  fluctuations,  marginal  part  operation, 
vibration,  and  perhaps  such  magical  influences  as  gamma  rays 
must  be  considered  despite  the  best  engineering  efforts  at 
shielding,  margin  testing  and  power  system  overdesign.  Since  a 
good  portion  of  the  system  will  be  protected  by  SECDED,  the 
effects  of  transients  in  the  system  will  be  invisible,  except 
for  a random,  .uncorrelated  error  report  made  by  the  SECDED 
networks  to  the  MCU.  There  are-  times  however,  when  a "hard" 
error  in  a data  path,  due  to  a component  failure,  will  be 
correctable  by  SECDED  except  when  a coincident  transient 
appears.  The  probability  of  this  situation  occurring  is 
dependent' on  the  probability  that  at  any  one  time  there  will  be 
failing,  but  correctable,  component  errors  in  the  system.  This 
situation  further  depends  on  real  failure  rates  and  maintenance 
strategies . 

Remembering  that  a double  SECDED  error  will  cause  a system 
interruption,  one  must  evaluate  the  frequency  of  maintenance 
replacement  of  components  being  compensated  for  by  SECDED  and 
the  possible  existence  of  transient  errors  occurring  which  could 
cause  double  errors  to  appear.  A beginning  maintenance  strategy 
is  therefore  projected  which  minimizes  the  number  of  failed 
components  being  left  in  the  machine  in  a given  24  hour  period. 
As  experiential  data  is  accumulated,  it  may  well  be  possible 
that  the  probabilities  of  transient  errors,  or  coincident  double 
component  failures,  in  a given  network  may  permit  a more  liberal 
maintenance  policy,  with  consequent^_cost  savings.  At  present, 
with  the  rate  of  transient,  failures  impossible  to  determine 
until  the  hardware  system  is  built,  it  seems  necessary  to 
specify  the  most  conservative  maintenance  strategy  with  its 
attendant  high  costs  (see  maintenance  study  report  and 
maintenance  action  assumptions  in  Divisions  6 and  7). 
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Another,  and  potentially  more  dangerous,  consequence  is  the 
possibility  of  undetected  transient  errors  occurring  which 
affect  critical  result  data.  FMP  users  must  be  able  to  depend 
on  their  solutions  without  having  to  run  a problem  three  times 
to  set  a majority  vote  on  the  most  probable  correct  answer.  As 
stated  previously,  a solid  component  failure  should  make  itself 
evident  during  on-line  diagnosis  of  the  FMP,  which  is  performed 
periodically  during  -job  execution.  A solid,,  uncorrected, 
component  failure  might  occur  during  a particular  solution 
execution  causing  some  or  all  results  to  be  invalid.  Generally, 
before  these  results  can  be  propogated  to  other  jobs  or  users, 
the  on-line  maintenance  diagnostics  would  have  found  the  error 
and  warned  the  installation  that  jobs  run  since  the  last 
diagnostic  pass  are  probably  specious.  While  it  is  acceded  that 
a totally  redundant  system  would  make  the  user  instantly  aware 
of  the'  possibly  invalid  results,  the  cost  and  parts  count  for 
such  a system  make  it  prohibitive  to  build. 

A transient  error  causes  more  havoc,  however,  since  it  may  occur 
at  a time  when  diagnostics  are  not  being  run,  or  at  a place  that 
cannot  be  checked  by  SECDED  or  by  the  Vector  Unit’s  variably 
redundant  comparators.  Results  from  such  runs  would  contain 
invalid  data  with  no  warning  as  to  the  fact  that  an  error 
occurred  which  negates  the  particular  run. 

There  are  then  two  kinds  of  undetected  errors  that  .can  yield  bad 
results.  One  which  can  be  diagnosed  at  a later  time,  and  hence 
cause  the  user  to  invalidate  that  set  of  answers,  requires  some 
degree  of  systems  management  and  human  action  in  evaluating  the 
diagnostic  messages  to  determine  what,  if  any,  results  should  be 
discarded.  The  second  kind  of  undetected  error  will  not  be 
known  to  the  user,  but  it  will  be  based  on  the  very  small 
probability  that  a transient  error  occurs  under  undetectable 
circumstances.  With  over  95%  of  the  hardware  networks  in  the 
FMP  being  protected  by  SECDED  and  by  the  checking  of  the  Vector 
Units,  and  with  on-line  diagnostics  being  employed  on  a regular 
basis  to  ensure  a certain  level  of  confidence  is  maintained  in 
the  machine,  the  probability  of  producing  undetected  errors  in 
results  is  necessarily  unknown  but  theoretically  should  be 
extremely  low. 

The  effect  that  these  types  of  failures  (undetected  by  SECDED  or 
vector  checkers)  have  is  to  require  a portion  of  the  FMP  power 
to  be  expended  on  a continuous  basis  throughout  the  operating 
day  to  establish  a minimum  confidence  level.  The  interval  and 
extent  of  diagnostic  execution  is  determined  by  the  maximum 
allowable  period  of  time  before  results  must  be  flagged  invalid, 
and  the  time  required  for  diagnostic  operation  to  achieve  a 
threshold  of  confidence.  Thus,  diagnostics  become  an  additional 
"job  load"  on  the  FMP  that  must  be  taken  into  account  when 
evaluating  the  total  system  throughput.  (See  discussion  in 
System  Simulation  section  later  in  this  volume.) 
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2.3.2  BUILDABILITY  • 


The  second  most  important  consideration  in  creating  the  FMP  is 
ensuring  that  the  machine  can  be  built  at  all  in  the  timeframe 
required.  A major  factor,  of  course,  is  the  parts  and 
interconnect  count  described  previosly.  Obviously,  it  would  be 
possible  to  conceive  a machine  that  would  entail  the  assembly  of 
so  many  components  that  the  sheer  volume  of  soldering,  bolting,, 
and  hookup  exceeds  the  limit  of  errorless  construction.  The 
resulting  chaos  involved  in  removing  fabrication  errors 
(differentiated  from  component  failures)  might  prove  to 
overwhelm  the  manufacturing  operation. 

A second  and  equally  important  factor  in  determining 
buildability  is  the  choice  of  component  technology,  not  only 
electronic  but  mechanical,  power,  and  cooling.  The  choice  of 
circuit  components  naturally  determines  the  rquirements  for 
cooling  and  power,  while  influencing  packaging  decisions  meant 
to  maximize  the  density  of  circuitry  for  performance  and  space 
reasons . 

The  original  feasibility  of  the  Control  Data  FMP  was  based  on  a 
postulated  family  of  LSI  circuits  with  densities  of  500  gates 
and  speeds  under  500  picoseconds  per  gate.  The  painful  process 
of  creating  a high  technology,  such  as  high  speed  LSI,  and 
carrying  it  through  volume  production,  made  it  clear  by  the 
second  phase  of  this  study  that  a 1982-1983  built  FMP  would  have 
to  be  constructed  out  of  extant  technologies.  Thus  effort  was 
applied  to  increase  the  parallelism  of  the  architecture  to 
achieve  the  gigaflop  goal  with  existing  circuit  and  packaging 
families.  The  culmination  of  this  decision  is  found  in  the 
design  described  in  this  report.  Certainly,  if  a family  of 
logic  could  be  found  that  was  twice  as  fast,  then  the  number  of 
parallel  units  could  be  halved  with  the  very  desirable  reduction 
in  parts.  Certainly,  if  a family -of- memory  components  could  be 
found  with  densities  of  2 to  4 times  that  of  the  existing 
technologies  the  parts  counts,  failure  rates,  and  probably  cost 
of  the  memory  systems  could  be  reduced  accordingly. 

It  is  the  inevitable  hope  of  designers  and  consumers  of  the  FMP 
that  the  system  could  benefit  from  the  most  up-to-date, 
aggressive  technologies  available.  To  that  end,  each  of  the 
studies  has  examined  technology  futures  with  an  eye  to  employing 
new  developments  in  the  FMP.  Unfortunately,  the  choice  of 
technologies  cannot  be  delayed  until  after  all  design  is 
complete  and  the  machine  is  about  to  be  constructed.  The 
technological  choices  are  integral  to  the  initial  architectural 
approach,  the  development  of  tools  to  support  design  and 
construction,  design  techniques,  and  the  detailed  design  itself. 
Therefore,  the  FMP  described  in  this  report  is  heavily 
predicated  on  the  use  of  the  family  of  parts,  4K  bipolar  RAM, 

65K  MOS  RAM,  256K  CCD  memory,  and  Fairchild  F200K  logic.  With 
this  family,  a machine  can  be  built  to  meet  the  minimum 
reliability  and  performance  goals  established  by  NASA.  Any 
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major  change  (doubling  speed  or  density,  for  example)  in 
available  technology  would  make  a reassessment  of  the  existing 
design  from  the  ground  up  an  essential  task  in  an  effort  to 
reduce  cost  and  parts  counts. 

The  technolgical  possibilities  that  appear  to  loom  over  the  1980 
horizon  are  tantalizing  to  consider  for  the  FMP  if,  and  only  if, 
-the  FMP  were  to  be  constructed,  say,  beginning  in  1984-1985.  Not 
only  would  solid  progress  be  evident  on  high  speed  silicon 
parts,  but  the  potential  of  the  gallium  arsenide  technology 
should  be  proven  (see  technology  update  report,  Division  5).  It 
would  then  be  conceivable  that  a machine  with  a two  gigaflop 
computation  rate  and  half  the  logic  hardware  might  be  built  at 
very  reasonable  cost.  The  difficulty  with  proposing  a delay  in 
FMP  development  to  await  these  ’’futures"  to  come  to  fruition  is 
that  there  are  too  many  unpredictable  factors  that  can  effect 
the  outcome  of  such  strategy: 

a)  There  is  no  doubt  that  the  scientific  problems  presently 
' known  in  development  of  either  higher  density/speed  LSI 

or  gallium  arsenide  logic  components  can  be  overcome. 

The  essential  question  is  — in  what  time  frame  can 
they  be  solved? 

b)  The  willingness  of  vendors  such  as  Motorola,  Fairchild 
or  Texas  Instruments  to  make  the  resource  commitments 
and  capital  investments  necessary  to  bring  new,  high 
technology  devices-  into  production  is  based  only  partly 
on  technical  feasibility.  The  projected  profitability 
of  a particular  manufacturing  line  (based  on  volume  and 
price  expectations)-,  the  capital  outlay  r equirements , 
and  the  general  state  of  the  economy  are  governing 
factors  on  the  availability  of  the  high  performance, 
high  risk,  essentially  low  volume  components  that 
designers  seek  for  FMP-type-machines . 

The  effect  of  these  issues  on  the  architecture  and  design  is 
obvious.  A second,  less  visible,  effect  is  the  development  time 
and  resources  needed  to  create  and  productize  the  tools 
necessary  to  utilize  the  new  technologies.  The  time  has  passed 
when  an  engineer  could  gather  a box  of  transistors  (or  small 
scale  integration  chips),  sketch  out  a piece  of  design,  and 
breadboard  the  affair  with  his  own  soldering  iron.  The  very 
nature  of  LSI  means  that  designers  commit  whole  ensembles  to 
single  silicon  slices  requiring  complex  steps  in  manufacture. 
Design  analysis  and  simulation  software  for  a particular 
technology  must  be  in  place  and  operational  before  that 
technology  can  be  effectively  employed.  There  is  a definite 
lead-time  then  between  technology  selection,  useful  design-  and 
simulation,  and  final  circuit  components  that  can  be  as  long  as 
five  to  seven  years.  The  significance  of  these  lead-times  and 
uncertainties  is  that  although  there  may  be  some  technological 
"magic"  awaiting  the  computer  community  in  1984-1985,  it  is  not 
possible  to  consider  using  such  components  for  the  NASA  FMP 
without  incurring  grave  risk  to  schedule  and  buildability . 

Hence,  the  somewhat  conservative  choice  of 
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Fairchild  LSI  logic,  for  which  a vast  assemblage  of  design  and 
manufacturing  software  and  procedures  is  now  available. 


2.3.3  PERFORMANCE 

Not  last,  or  even  least,  in  consideration  is  the  element  of 
performance  for  which  the  FMP  project  was  originally  created.  At 
the  outset,  a minimum  threshold  of  one  billion  floating-  point 
operations  per  second  was  established  for  solutions  of  the 
Navier-Stokes  equations.  In  theory,  this  level  could  be 
achieved  by  a single  processor  operating  at  a clock  cycle  of  one 
nanosecond,  or  1000  processors  operating  at  a clock  cycle  of  one 
microsecond.  In  practice,  a one-nanosecond  cycle  time  for 
floating-point  operations  on  numbers  with  48-bit  coefficients  is 
not  yet  achievable,  while  the  harnessing  of  1000  slow  processors 
creates  massive  headaches  in  design  of  interconnection  and 
control,  not  to  mention  programming.  These  issues  have  been 
discussed  at  length  in  preceding  reports.  The  major  tradeoffs 
in  memory  systems  capability,  number,  and  speed  of  vector  units 
and  performance  of  circuit  technology  have  also  been  covered  in 
previous  reports  as  well  as  preceding  discussion  in  this  report. 

In  the  aggregate  then;  the  search  for  performance  has 
involved : 

a)  determining  the  peak  vector  arithmetic  rate  to  support  a 
sustained  solution  rate  of  at  least  1 gigaflop; 

b)  designing  the  minimum  hardware  conglomeration  to  provide 
the  peak  vector  rate,  and  minimize  vector  startup; 

c)  isolating  those  functions  in  the  implicit  and  explicit 
code  which  limit  the  FMP  from  maintaining  the  sustained 
rate ; 


d)  designing  a fully  concurrent  map  unit  system  to  perform 
those  non-arithmetic  tasks  in  parallel  with 
computation ; 

e)  designing  a memory  system  that  could  supply  the  peak 
vector  bandwidth  plus  the  data  rates  needed  by  the  map 
units ; 

f)  testing  the  resulting  structure  with  code  sequences 
taken  from  the  various  flow  metrics; 

g)  reworking  the  design  to  improve  the  performance  of  those 
limiting  cases  that  are  of  significance; 

h)  testing  the  programmability  of  the  flow  codes  with  the 
resulting  structure; 

i)  going  back  to  step  c)  and  trying  again. 
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The  conclusions  reached  for  each  of  these  items  form  the  basic 
rationale  for  the  design  of  the  FMP  as  it  now  appears: 


a)  At  the  outset  it  was  assumed  that  the  arithmetic 
processing  bandwidth  of  the  FMP  would  have  to  be 
substantially  greater  than  the  minimum  threshold  of 
1000  megaflops  in  order  to  arrive  at  a sustained  rate 
of  that  minimum.  This  premise  arises  from  the 
experience  with-  ex-i-st'tng  high  performance  computers  in 
actual  use.  The  theoretical  peak  rate  of  the  Control 
Data  7600  is  limited  to  the  issue  rate  of  a new 
instruction  every  27.5  nanoseconds  which  .yields  at  best 
36  megaflops.  The  measured  peak  rate  for 
memory-to-memory  operations,  however,  is  closer  to 
12-15  megaflops,  due  to  the  loads-,  stores,  and  inter- 
register transfers.  The  nominal  rate  assigned  to  the 
7600  for  production  codes  is  3-5  megaflops  in  actual 
use.  The  STAR-100  possesses  a peak  vector  rate  of  50 
megaflops  in  64-bit  mode.  In  certain  large  production 
codes,  the ‘ sustained  rate  is  shown  to  be  20  megaflops 
which  is  a reduction  of  2.5  to  one  over  the  peak  rate.- 
Other  competitive  machines  demonstrate  a similar 
degradation  of  2-3  times  from  peak  performance  for  a 
sustained  rate. 

These  observations  led  the  FMP  architects  to  set  vector 
processing  rate  goals  of  2-3  gigaflops  peak  rate  for 
initial  design  evaluation.  If  later  it  proved  possible 
to  improve  the  ratio  between  sustained  and  peak  rates, 
the  2-3  gigaflop  objective  might  be  reduced  somewhat. 

b)  The  hardware  necessary  to  meet  the  2-3  gigaflop  peak 
rate  could- have  been  chosen  from  a variety  of  options, 
but  pipelining  was  selected  for  two  practical  reasons: 

1)  Parts  and  interconnection  count  analysis  indicated 
that  pipelines  could  be  bui.lt  with  fewer  of  these 

. critical  items  than  a multiplicity  of  processing 
units  yielding  the  same  compute  power. 

2)  A substantial  amount  of  design  and  development  had 
already  been  completed  on  suitable  pipeline 
elements  for  the  Control  Data  CYBER  200  family  of 
supercomputers . 

An  assemblage  of  32  identical  arithmetic  pipelines,  each 
operating  at  16  nanoseconds  to  achieve  a 2-gigaflop  rate  is 
a perspicuously  brute-force  approach  to  the  problem.  The 
volume  of  hardware  this  would  entail  seriously  strained  the 
limits  of  buildability , which  had  been  given  higher 
priority  than  performance.  The  limit  of  pain  in  hardware 
seemed  to  indicate  that  eight  pipelines,  which  would  have 
the  ability  to  perform  more  than  one  arithmetic  process  per 
clock  cycle  demanded  the  maximum  allowable 
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componentry.  The  need  for  error  checking  led  to  the 
"variably"  redundant  structure  that  has  been  described 
previously,  while  the  desire  to  have  still  fewer  circuits 
motivated  the  design  of  "doubly"  clocked  units.  As  a 
result  of  these  deliberations,  the  final  Vector  Units  could 
deliver  64-bit  result  operands  to  memory  at  the  rate  of  one 
per  pipeline  for  each  of  four  pipelines  every  eight  . 
nanoseconds . 

Since  this  represents  a result  rate  to  memory  of  only  500 
megaflops,  how  can  the  units  be  alleged  to  maintain  rates 
commensurate  with  the  1-gigaflop  requirement?  Analysis  of 
the  three-dimensional  implicit  code  showed  that  a majority 
of  arithmetic  expressions  involved  an  average  of  three 
processes : 

From  the  BTRI  subroutine  (see  appendix  B)  line  4450: 
U25=(B1(2,5)-L21*U15)*L22 

If  each  pipeline  could  perform  all  three  operations  on  the 
data  for  each  result  (U25)  returned  to  memory  per  clock 
cycle,  then  the  arithmetic  result  rate  could  be  bumped  to 
3*500=1500  megaflops.  Using  this  technique  as  a basis,  the 
implicit  code  was  analyzed  to  determine  if  this  "triadic" 
facility  would  be  fully  utilized.  It  was  found  by  hand 
calculated  estimates  that  the  FMP  would  probably  operate  at 
an  average  rate  of  1200  megaflops  for  the  whole  code, 
assuming  the  data  could  be  delivered  to  and-  removed  from 
the  pipeline  to  match  that  rate. 

In  some  instances  it  is  not  possible  to  keep  the  maximum 
number  of  arithmetic  elements  in  the  pipeline  busy  with 
"triadic"  or  "dyadic"  operations.  For  example,  from  lines 
1070  and  1080  of  the  implicit-code  (see  appendix  B) 

1070  D(1 ,2)=XX(1 )*HDX 

1080  D(1 ,3)=XX(2)*HDX 

two  separate  vector  operations  would  normally  be  generated 
by  the  FORTRAN  compiler,  with  a consequent  result  rate  of 
500  megaflops  for  each  separate  multiply.  The  FMP  provides 
two  separate  data  trunks  to  memory  and  four  separate  data 
trunks  from  memory  which  permits  more  intelligently 
generating  one  instruction  to  perform  both  multiplies 
concurrently.  In  this  case  the  four  pipelines  behave  as  if 
they  were  eight,  and  no  data  comparison  is  done  by  the 
CHECK  networks  .in  the  pipelines. 

Another  use  of  the  two  separate  result  streams  to  memory  is 
the  storing  of  partial  results  on  one  trunk  and  full 
result's  on  another.  For  example,  take  the  sequence  from 
the  BTRI  subroutine,  lines  4720  and  4730: 

4720  D1=L11*C1(1,M) 

4730  D2=L22*(C1 (2,M)-L21*D1) 
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wherein  the  result  D1  could  be  stored  to  memory  on  the  AW1 
result  trunk  while  the  partial  result  (Cl (2, M)-L21*D1 ) 
could  be  stored  via  AW 2,  for  later  use.  Note  that  in  this 
case  the  capability  of  the  Vector  Units  for  performing 
three  arithmetic  operations  per  clock  cycle  is  achieved  by 
a simple  compiler  technique  of  combining  functions  from 
"common  subexpression  analysis". 

The  1.2  gigaflop  rate  is,  of  course,  not  the  2-3  times 
safety  factor  the  designers  had  been  seeking.  Achieving 
that  would  require  doubling  the  hardware  complex  to  8 of 
the  triadic,  eight-nanosecond  pipelines  to  yield  2*1. 2=2. 4 
gigaflops.  This  would  in  turn  require  a doubling  of  the 
memory  bandwidth  at  the  cost  of  additional  hardware  and 
trunks  that  again  strain  the  buildability  constraints.  Two 
other  avenues  were  open  to  ameliorate  this  situation: 

1)  Use  of  32-bit  arithmetic--The  CYBER  200  family 

provides  a dual  arithmetic  system  which  is  used  for 
improving  throughput,  as  well  as  data  storage,  for 
those  problems  that  can  tolerate  the  reduced 
significance.  The  design  of  pipelines  for  this 
dual  mode  demonstrates  that  the  additional  hardware 
needed  to  split  a 64-bit  pipeline  into  two  32-bit 
pipelines,  dynamically  and  when  the  occasion 
warrants,  is  insignificant.  In  the  CYBER  200 
structure  such  pipelines  can  then  deliver  two 
32-bit  results  for  every  one  64-bit  result,  in  most 
cases  doubling  the  result  rate  of  the  pipelines. 

If  this  technique  is  applied  to  the  FMP,  then  four 
FMP  pipelines  could  produce  a peak  rate  of  8 result 
operands  delivered  to  memory  every  8 nanoseconds. 
This  means  that  if  a single  arithmetic  operation  is 
performed  for  each  result,  a minimum  of  one 
gigaflop  is  reached  in  32-bit  mode.  However,  when 
the  triadic  capability  of  the  pipelines  is  applied 
to  32-bit  mode,  a peak  rate  of  3000  megaflops  is 
attainable.  In  the  projected  case  for  the  implicit 
code  this  would  mean  a result  rate  of  2*1. 2=2. 4 
gigaflops  computation  rate.  At  least  for  32-bit 
cases  this  architecture , with  minimal  hardware, 
provides  the  purported  3 gigaflop  peak  rate.  The 
determination  of  whether  or  not  certain 
computations  can  be  done  in  32-bit  mode  seems  to 
elude  even  the  most  expert  numerical  analysts,  and 
most  probably  must  await  empirical  testing  of 
algorithms  in  both  modes.  Since  in  all  likelihood 
computations  could  most  effectively  be  done  in  a 
mixture  of  32-bit  and  64-bit  forms,  depending  on 
knowledge  of  the  numerical  behavior  of  a given 
calculation,  the  FMP  Vector  Units  have  included  the 
ability  to  perform  operations  on  mixed  32/64-bit 
data  streams. 
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2) 


Maximize  the  utilization  of  the  Vector  Units 

What  if  the  computations  must  be  done  in  64-bit 
mode  and  latitude  has  been  exhausted  for  adding 
more  hardware  for  parallel  processing?  If  the 
ensemble  could  be  made  to  function  at  near  100%  of 
its  capacity  (full  triadic  functions,  full  time  for 
the  whole  code),  then  the  1.2  gigaflop  rate  would 
be  maintained  as  the  average  rate  thus  achieving 
the  "quintain” . It  was  at  this  point  that  the 
concept  of  a "tailored"  machine  for  a particular 
problem  environment  (wind  tunnel  flow  models) 
became  an  aid.  Using  metrics  provided  by  Ames 
which  .were  chosen  to  reflect  the  desired 
characteristics,  it  was  possible  to  determine  what 
hardware  emphasis  was  needed  to  maximize  vector 
unit  utilization.  This  leads  to  the  next  step. 

c)  Once  a memory  bandwidth  and  vector  unit  capability  were 
established,  it  became  necessary  to  prove  that  it  could 
be  utilized  effectively  or  the  design  had  to  be  changed 
accordingly.  Beginning  in  the  first  study  Control  Data 
had  concentrated' primarily  on  the  storage  capacity  of 
realistically  assembled  memory  systems  and  the 
producibility  of  sufficient  arithmetic  power. 

Throughout  these  early  study  efforts,  Ames  personnel 
cautioned  that  the  data  flow  required  by  the  large  flow 
model  might  dominate  all  other  considerations.  Using 
the  Vector  Units  to  maximum  capacity  requires  the 
organization,  of  data  into- linearly  stored  vectors  of 
data  in  memory  which  can  be  transferred  in  groups  of 
elements  at  each  single  memory  request.  Some  means  had 
to  be  found  to  perform  this  organization  in  parallel 
with  computations  and  without  impacting  the  vector 
rate . 


d)  The  concept  of  independent  Map  Units  which  could  operate 
concurrently  with  each  other  and  with  the  Vector  Units 
arose  naturally  from  this  analysis.  An  initial  desire 
for  these  units  to  be  as  simple  as  possible  had  to  be 
compromised  with  the  activities  that  seemed  to  be 
natural  to  assign  to  them.  If  the  Vector  Units  were  to 
be  solely  concerned  with  arithmetic  processing,  then 
all  other  meraory-to-memory  vector  operations  would  have 
to  be  performed  by  the  Map  Units.  The  functions  to  be 
executed  in  the  Map  Units  were  identified  by  reviewing 
STAR-1 00/CYBER  200  experience  with  vector  processing 
and  examination  of  the  candidate  metrics  (aerodynamic 
and  weather  models) . 

At  first  a single  Map  Unit  seemed  to  be  sufficient  for 
the  known  purposes,  moving  data  only  within  Main 
Memory,  with  all  other  LEVEL  2 data  being  transmitted 
in  block  form.  The  split  operator  method  of  the 
implicit  code  gave  rise  to  easily  isolated  "transpose" 
and  "slicing"  operations  that  could  just  as  well  be 
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performed  on  the.  data  as  it  is  moved  between  the  LEVEL 
1 and  LEVEL  2 memories.  A pair  of  seemingly  identical 
units  (for  programming  flexibility)  were  then 
specified.  Many  programming  alternatives  become 
evident  from  this  structure,  none  of  which  have  .been 
explored  during  this  study.  An  example  might  be  the 
performing  of  full  transpose  operations  on  meshes-  and 
mesh  segments  in  Intermediate  Memory  whi-l-e 
s-i-mu-l-taneously  performing  different  transposes  on  other 
data  in  Main  Memory.  As  will  be  seen  later  from 
simulation  results,  the  existing  metrics  do  not  fully 
exploit  this  concurrency  to  the  degree  that  seems 
possible  (see  section  5). 

e)  The  memory  system  then  becomes  the  key  to  the  entire 
design  of  the  FMP,  as  it  must  supply  continuous  streams 
of  data  not  only  to  the  Vector  Units  but  to  the 
concurrently  operating  Map  Units.  This  is  accomplished 
- by  taking  the  identical  memory  units  used  in  the  CYBER 
200  family  and  increasing  the  apparent  number  of  memory 
modules  by  dividing  an  existing  physical  module  into 
four  separate  accesses.  Thus  where  the  CYBER  200 
memory  can  deliver  a peak  rate  of  1024  bits  every  20 
nanoseconds  (actually  the  memory  system  can  provide 
data  for  a range  of  clock  cycles  from  10-20 
nanoseconds) , the  FMP  system  delivers  4096  bits  of  data 
(ignoring  SECDED)  every  16  nanoseconds  for  a peak 
bandwidth  of  256  billion  bits  per  second.  The  block 
diagram  shown  in  figure  14  displays  the  basic  design  of 
the  Memory  Interchange  which  manages  the  data  and 
address  streams  for  the  memory  system.  It  is  this  unit 
and  the  data-  buffering  in  the  Vector  and  Map  Units  that 
guarantee  sustained  data  rates  to  all  elements  in  the 
Vector  Unit,  no  matter  what  the  degree  of  activity  is 
for  all  components  requesting  memory.  It  should  be 
pointed  out  that  the  number  of  LSI  panels  and  cabling 
for  this  scheme  are  considered  to  be  at  the  maximum 
allowable  by  current  manufacturing  technology.  It  is 
felt  that  no  way  exists  in  which  this  memory  system 
could  be  extended  realistically,  and  thus  no  way  that  a 
doubling  of  arithmetic  units  could  be  supported  with 
current  design  and  packaging  techniques. 
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Figure  14.  Memory  Interchange 


f)  The  structure'  of  the  FMP  as  it  has  passed  through  its 
various  gestative  phases  has  been  tested  by  estimating 
the  performance  of  selected  segments  of  the  implicit, 
explicit  and  weather  models  which  are  being  used  as  the 
analytical  metrics  for  this  study.  More  will  be  said 
about  this  matter  in  later  discussions  of  the 
simulation,  systems  for  the  FMP.  The  FMP  design  as  it  • 
now  stands  is  the  culmination  of  this  iterative 
structuring-,  testing,  and'  restructuring  effort,  and 
does  meet  the  performance  requirements  of  at  least  the 
implicit  code. 

g)  Primary  emphasis  in  the  analytical  effort  has  always 
been  focused  on  the  three-dimensional  implicit  model. 
Only  in  the  last  weeks  of  the  study,  as  CDC  engineers 
had  satisfactorily  solved  the  problems  in  the 
buildability  and  RAM  features  of  the  FMP,  was  the  full 
impact  of  the  hardware  architecture  known  with  regard 
to  the  implicit  code.  Since  that  time  the  FMP  design 
has  been  evaluated  against  the  remaining  three  metrics. 
On  a "first  try"  basis,  each  of  the  other  metrics  have 
yielded  less  than  the  desired  1000  megaflop 
computational  rate.  In  some  cases,  the  initial  mapping 
of  the  scalar  algorithms  did  not  match  the 
architectural  strengths  of  the  FMP.  Complete 
reanalysis  and  recoding  in  these  cases  is  called  for. 
Shortcomings  in  the  design  have  been  unearthed  also.  At 
some 'point  in  the  study  however,  "tinkering"  with  the 
design  had  to  end,  so  that  a final  report  could  be 
completed.  Although  no  design  changes  are  contemplated 
to  optimize  the  other  metric  codes  at  this  time,  work 
is  continuing  on  finding  appropriate  restatement  of 
these  codes  in  the  proposed  FMP  FORTRAN  which  can 
approach  the  1-gigaflop  goal  for  each  metric  program. 

h)  Coupled  with  all  of  the  above  issues  has  been  the 
problem  of  programmability,  about  which  more  will  be 
stated  in  the  "Software  Section"  of  this  report.  As 
hardware  features  were  added  or  modified  in  the  basic 
FMP  structure,  their  effect  on  a possible  FORTRAN 
language  system  had  to  be  assessed.  The  continuation 
of  a basic  single  instruction  stream,  multiple  data 
stream  (SIMD)  architecture  obviated  the  need  for  many 
FORTRAN  language  - changes , while  the  ability  of  a 
compiler  to  schedule,  stack,  and  overlap  map  operations 
with  vector  operations  impacted-  the  design  of  the  Map 
Unit  and  Streaming  Control  Unit,  particularly  with 
regard  to  the  need  for  and  implementation  of  the 
"dependency  keys". 

i)  Needless  to  say  the  process  of  steps  c)  through  h)  are 
iterative  and  will  continue  in  some  form  even  after 
submission  of  this  report.  Once  a prototype  FMP  has 
been  "poured  in'  concrete"  as  the  result  of  need  to 
freeze  design  for  this  report,  analysts  can  spend 
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considerble  time  learning  what  the  structure  really 
holds  in  store  for  programmers,  particularly  of 
applications  in  the  areas  of  the  NASF  metrics’ 
(aerodynamics  and  weather). 


2.3*4  MAINTENANCE 


The  discussion  of  first  priorities  earlier  covered  the  concept 
of  RAM — Reliability,  Availability,  and  Maintainability.  The 
design  considerations  under  that  heading  dealt  primarily  with 
probablistic  circumstances  affecting  RAM,  particularly  due  to 
the  volume  of  parts  and  interconnections.  Another  aspect  of  the 
hardware  that  must  be  considered  in  a different  light  is  the 
marriage  of  hardware,  firmware,  software,  and  procedures  to 
maximize  the  availability  of  the  FMP.  Supporting  documents  (see 
Divisions  7 and  8)  have  been- prepared  by  Control  Data 
specialists  as  "position  papers"  on  the  maintenance  strategy  and 
diagnostic  strategy  that  should  be  pursued  for  FMP-scale 
systems . 

A cornerstone  of  FMP  availability  is  the  ability  for  the  system 
to  recover,  diagnose,  isolate,  and  be  repaired  in  the  minimum 
interval  of  time  lost  to  the  consumer.  In  addition  to  the 
issues  discussed  in  the  position  papers,  certain  aspects  of  the 
FMP  impel  offering  some  supplementary  commentary. 

a)  The  maintenance  function  as  a hardware  concept 

The  magnitude  of  the  NASF  makes  complex  interactions  of 
its  constituents  inevitable.  The  quantity  and 
complexity  of  the  elemental  relationships  in  this 
system  further  ensure  that  even  trained  personnel  will 
find  the  evaluation  of  many-system  failures  difficult 
or  nearly-  impossible  in  the  brief  time  allowable  for 
interruptions  during  operational  hours..  Computerized 
assistance  is  mandated  in  this  situation,  however  none 
of  the  potentially  failing  computers  in  the  system  can 
be  expected  to  diagnose  itself.  A separate  computer 
could  be  given  this  task,  but  if  it  becomes  itself 
debilitated  then  it  could  become. more  of  a debit  than 
of  value  to  the  overall  availability  of  the  system  as  a 
useful  resource.  The  need  then  is  for  an  abstract 
concept  that  can  be  fleshed  out,  and  farmed  out  to  the 
appropriate  programmable  processors  in  the  system.  The 
reason  for  discussing  the  maintenance  function  in  the 
abstract  is  that  it  first  can  be  created  and  described 
as  if  it  were  a centralized  function,  despite  the  fact 
that  in  actual  implementation  it  is  distributed  as 
widely  as  the  functions  it  is  trying  to  manage. 
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Philosophy — Each  programmable  entity  in  a system  must 
possess  means  to  disclose  to  the  outside  world  the 
existence  and  nature  of  any  failure  that  might  occur, 
even  when  the  flaw  is  correctable.  A failing  entity 
should  not  be  required  to  diagnose  itself,  let  alone 
cure  itself,  but  should  provide  the  maximum  information 
about  itself  as  possible,  as  would  a patient  in  a. 
clinic,  to  speed  the  diagnosis  and  treatment  process.. 
The  maintenance  function,  like  a concientious  physician 
or  health  service,  must  collect,  collate,  and  analyze 
all  physical  symptoms  in  health  as  well  as  for  illness. 
For  like  the  physician  to  whom  every  clue  and  pattern 
could  be  significant,  the  contemporary  system 
practitioner  needs  every  allusion  in  pursuit  of  quick 
repair.  Diagnosis  and  collection  of  maintenance  clues 
must  be  included  in  the  normal  workload  of  each  system 
component . 

Implementation — From  the  outset  of  design  all  hardware 
and  software  components  must  become  subscribers  to  the 
philosophy.  ’’Hooks"  must  be  built  into  all  elements  of 
the  system  where  engineering  analysis  indicates 
potential  need  and  practicability.  What  does  this  mean 
to  the  FMP? 

First  some  means  of  testing,  measuring,  and  sampling 
the  activity  of  critical  networks  must  be  engineered 
into  all  critical  networks  of  the  system.  This  implies 
that  some  systematic  study  should  be  done  to  identify 
the  critical  networks.  In  the  FMP  some  obvious  places 
to  put  the  diagnostic  "stethoscope”  come  to  mind.  The 
SECDED  checking  networks  not  only  must  supply  error 
indicators,  but  also  should  provide  "Polaroid"  glimpses 
of  the  failing  data  segment  and  associated  addresses  to 
the  maintenance  monitoring  system.  The  comparator 
networks  in  the  Vector  Units  must  .also  feed  failure 
information.  Not  only  an  error  flag  should  be 
recorded,  but  the  actual  data  mismatch  must-be  frozen 
and  registered  in  the  error  logging  of  the  maintenance 
system  .■ 

In  the  FMP,  SECDED  check  bits  are  carried  as  far  along 
data  trunks  as  possible  so  that  the  trunks  and 
intervening  paths  can  be  corrected,  as  well  as  the 
memory.  This  does  not  mean  that  the  SECDED  checking 
networks  need  be  limited  to  the  trunk  ends,  as 
isolation  then  becomes  more  difficult.  Instead,  the 
checking  networks  can  be  placed  at  strategic  locations 
in  the  system.  The  current  design  calls  for  placement 
of  SECDED  checking  in  all  hardware  blocks  where  the 
symbol  SECDED  appears  in  figure  15.  SECDED  correction, 
however  is  limited  to  the  ends  of  the  trunks  only. 
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Figure  15.  SECDED  in  the  FMP 


As  can  be  seen  in  the  block  diagram  of  figure  15,  Main 
Memory  SECDED  will  be  checked  at  the  Memory  Interchange 
as  the  data  is  transmitted  to  the  Vector  Unit.  The 
SECDED  is-  again  checked  within  the  Vector  Unit,  and  any 
correction  applied  there,  if  needed.  The  major 
difference  between  these  two  SECDED  networks  is  that 
since  the  first  network  does  not  actually  modify  bits 
in  the  data  stream  to  perform  correction,  it  can  b.e  .an 
”out-of— li-ne”  ci-rcurtry  which  does  not  add  time  to  the 
data  path.  The  potential  correction  of  data  in  the 
Vector  Unit,  however  requires  logic  to  be  interposed  in' 
the  data  path  at  a consequent  cost  of  several 
nanoseconds  in  transmission  time.  The  isolation  aid 
that  the  additional  SECDED  checking  gives  should  be 
obvious  from  the  diagram.  A SECDED  error  reported  by 
all  port  checking  units  in  the  Memory  Interchange,  for 
example,  would  point  to  a basic  data  failure  in  memory. 
A single  port  SECDED  failure  would  indicate  a problem 
in  that  particular  port's  trunk  hardware.  An  error 
reported  only  by  the  Vector  Unit  SECDED  network 
indicates  a failure  in  the  data  trunk  or  the  paths  in 
the  Vector  Streaming  Unit  (which  include  high  speed 
shift  networks) . 

/ 

This  simple  example  illustrates  the  complex 
combinations  of  symptoms  that  need  to  be  evaluated  in 
light  of  the  architecture  to  arrive  at  a specific 
failure  point  where  the  maintenance  engineer  can  begin 
his  search.  A computerized  correlation  and  display  of 
the  possible  failure  points  would  surely  speed  up  the 
isolation  process. 

In  addition  to  the  SECDED  and  Vector  Unit  comparators, 
certain  second  order  error  detection  and  reporting 
schemes  are  employed  in  the  FMP. 

• Illegal  function  detection Each  of  the 

independent  units  possesses  fewer  operating 
modes  than  the  function  codes  transmitted  to 
them  are  capable  of  encoding.  For  example,  not 
all  of  the  256  potential  operations  available 
in  the  main  instruction  stream  are  legal.  Thus 
all  illegal  functions,  when  detected,  bring  the 
FMP  to  a halt  and  send  a flag  to  the 
Maintenance  Control  Unit  (MCU). 

• Time-out  detection-. — Certain  of  the  FMP  units 
expect  a maximum  allowable  time  for  response  to 
function  and  memory  access  requests.  If  the 
maximum  time  is  exceeded  the  FMP  is  halted  and 
an  error  flag  sent  to  the  MCU. 

• Monitoring  counters Counters  internal  to  the 

FMP  can  sample  various  activities  of  the  FMP, 
including  the  running  clock,  and  can  transmit 
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the  accumulated  data  to  the  MCU  on  a regular 
basis.  In  addition  to  the  obvious  utility  in 
performance  measurement  and  optimization, 
certain  measurements  may  provide  a clue  to 
incipient  failures  in  the  system.  For  example, 
if  a vector  operation  of  length  1000  elements 
consistently  runs  slower  than  some  nominal 
value,  there  may  be  a component  failure  in  the 
memory  request  scheduling  logic  of  the  Vector 
Streaming  Unit.  Note  that  this  failure  is 
subtle,  since  all  answers  may  be  correct,  but 
the  program  runs  slower  than  the  hardware 
design  would  normally  permit. 

••  Self  checking Some  networks  may  have  a 

built-in  ability  to  generate  and  check  simple 
test  cases  during  idle  periods.  For  example, 
an  address  adder  in  the  Vector  Streaming  Unit 
might  have  alternative  input  selects  that 
permit  the  injection  of  all  '’zeroes'*  and  all 
"ones”  patterns  with  a built-in  check  for  the 
correct  carry,  generate  and  overflow  bits. 

Since  the  adders  are  highly  underutilized  many 
idle  cycles  would  be  available  for  such 
checking . 

How  does  the  FMP  hardware  gather  all  of  this  data  from 
its  various  limbs  and  actually  notify  the  appropriate 
maintenance  function?  Each  separate  network  in  the  FMP 
that,  generates  error  data,  transmits  this  data  to  the 
I/O  Unit  where  special  hardware  in  I/O  PORT  0 (see 
figure  16)  locks  up  the  information  in  static  registers 
and  sets  a flag  indicating  that  maintenance  data  is 
present.  Any  PDC  (programmable  device  controller) 
connected  to  this  port  can-and  will  sample  this  flag 
and  related  registers,  forming  a message  directed  to 
the  "maintenance  function"  (note  this  is  the  abstract 
of  a specific  hardware  that  used  to  be  called  the 
"maintenance  unit").  Maintenance  function  messages  are 
put  on  the  network  trunk  where  they  are  transmitted  to 
all  other  attached  processors.  Any  processor  which 
recognizes  itself  as  an  "addressee"  for  maintenance 
functions  will  read  the  entire  message  and  turn  over 
the  contents  to  stored  programs  which  will  analyze  the 
maintenance  information  given. 
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The  potential  exists  then  for  several  computers  on  the 
network  to  possess  all  or  part  of  the  maintenance 
function  software.  Which  computer  provides  the 
specific  maintenance  service  depends  on  which  processor 
has  its  "turn  in  the  barrel",  or  is  available  to  assist 
the  FMP . In  other  circumstances  the  service  may  be 
performed  by  the  lowest  level  processor  that  can  handle 
the  task.  For  example,  a small  miniprocessor  such  as 
the  CYBER  18  might  be  attached  to  the  trunk  for  system 
statistics  gathering  and  initialization  purposes.  A 
correctable  SECDED  error  might  be  reported  on  the 
trunk,  and  this  small  processor  given  the 
responsibility  for  collecting  the  data  and  storing  it 
on  disk  for  later  analysis.  A total  failure  of  one 
Vector  Unit,  however,  when  reported  by  messages  on  the 
network  trunk,  might  require  the  use  of  one  of  the 
major  front-end  processors  to  determine  what  strategy 
is  to  be  followed  (launch  immediate  - repairs  since  the 
workload  is  light,  swap  out  the  unit  and  perform 
automatic  on-line  diagnostics,  etc.  ...).  The  content 
and  not  the  addressee  of  maintenance  messages  determine 
which  of  the  system  resources  will  perform  the 
maintenance  action.  In  some  cases  the  small  CYBER  18 
might  be  off-line  for  maintenance,  and  thus  the  SECDED' 
error  recording  must  be  handled  by  another  processor  in 
the  network.  The  system  must  not  .allow  the  information 
to  be  lost.  Returning  to  the  anthropomorphic  simile  of 
the  physician  and  patient,  the  FMP  puts  out  a cry  for 
help  and  the  most  competent  individual  capable  of 
rendering  first  aid  attends  the  victim. 

In  like  manner  all  other  components  of  the  NASF  place 
messages  on  the  trunks  to  provide,  operational  and  error 
information  to  be  received  and  processed  by  the 
maintenance  function.  The_PDCs  themselves  place  error 
and  operating  data  messages  on  their  own  trunks.  The 
support  processor  system  hardware  may  not  provide 
specific  electronic  linkages  to  the  network  and 
attached  maintenance  functions,  however  it  should  be 
clear  that  maintenance  function  messages  can  be 
generated  by  operating  system  software  as  well  as  by 
hardware. 

The  maintenance  function  need  not,  and  must  not,  be 
purely  passive  in  nature.  Those  elements  charged  with 
maintenance  function  responsibilities  must  be  able  to 
deadstart,  restart,  and  recover  any  system  component  by 
transmitting  special  messages  on  the  trunk.  The 
maintenance  entity  must  be  able  to  make  decisions  about 
resource  allocation  and  turn  trunks,  processors, 
peripheral  devices,  and  remote  accesses  on  or  off  as 
system  failures  make  such  actions  necessary.  Certain 
diagnostic  sequences  will  have  to  be  initiated,  and 
oftimes  monitored  by  the  maintenance  function. 
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b)  The  maintenance  function  as  a software  concept 

In  the  previous  discussion  on  hardware  there  are  many 
implied  objectives  for  the  designer.-  Some  electronic 
"hook"  must  be  designed  into  new  components  so  that 
maintenance  functions  transmitted  on  the  network  can 
affect  some  hardware  operation,  as  for  example  the 
concept  of  "SYSTEM  MASTER  CLEAR".  The  hardware  hooks., 
however,  can  only  provide  information  which  must  be 
collated  and  analyzed.  The  initiation  of  maintenance 
actions  and  the  evaluation  of  maintenance  data  must  be 
done  by  one  or  more  software  systems.  Error  data  can 
be  created  by  software  also.  The  maintenance  strategy 
must  consider  the  relationship  of  software  to  the 
maintenance  hardware  system.  Some  points  to  be 
included  in  such  ruminations: 

• All  maintenance  software,  with  the  exception  of 
network  trunk  interface  firmware,  must  be 
"transportable".  This  means  that  any  one  or 
any  group  of  maintenance  functions  can  be 
"farmed  out"  to  any  of  the  processors  in  the 
NASF.  Transportability  implies  the  use  of  a 
commonly  available  higher-level  language  that 
would  be  supported  on  all  programmable 
processors  in  the  system.  The  growing 
universality  of  PASCAL  as  a systems  programming 
language  makes  this  the  prime  candidate  for 
maintenance  software.  In  addition  to  the 
language,  the  structure  of  all  maintenance 
software  must  be  carefully  specified,  tightly 
controlled,  and  implemented  in  a disciplined 
manner.  In  specific  terms  this  means  that  a 
small  diagnostic  monitor  with  standard  software 
interfaces  must  be  created  in  such  a way  that 
It  can  fit  in  the  smallest  processor  that  might 
be  assigned  maintenance  functions.  The 
standard  interfaces  necessary  would  consist  of 
common  message  formats  for  communicating  with 
the  outside  world  (via  the  network  trunk),  a 
common  set  of  diagnostic  primitives  (or  calls 
to  kernel  subroutines) , and  a common  set  of 
definitions  of  data  and  procedures  as  well  as 
common  data  descriptions  which  would  be 
incorporated  as  declarations  in  each  PASCAL 
program . 

• All  operating  system  software  should  provide 
maintenance  oriented  messages  in  the  same 
manner  as  the  hardware  in  the  FMP  and  network 
trunk.  These  messages  should  provide  normal 
operating  information  (such  as  "time-stamped" 
job  start/stop  messages)  as  well  as  warnings  of 
exceptional  conditions.  Examples  of  this 
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latter  message  traffic  would  be:  abnormal  job 
termination,  failure  to  receive  responses  from 
other  processors  in  the  system,  impossible 
conditions  detected  within  the  operating  system 
such  as  table  overflows,  missing  pointers,  etc. 
The  concept  of  collecting,  recording,  and 
disseminating  maintenance  data  to  other 
processors  should  be  fundamental  in  the  design 
and  implementation  of  all  operating  system 
components  and  not  just  merely  a set  of  hooks 
to  emplace  in  developing  systems. 

• Critical  maintenance  functions . such  as  system 
shut-down,  restart,  and  recovery  must  be 
provided  in  at  least  two  different  processors 
with  appropriate  interlocks  so  that  only  one  of 
the  pair  will  respond  to  emergency  conditions. 

• The  maintenance  software  must  provide 
additional  security  safeguards  for  access  to 
maintenance  data  and  for.  permission  to  invoke 
maintenance  software  functions.  A powerful 
tool  in  the  maintenance  arsenal  will  be  the 
remote  access  (via  standard  interactive 
terminals)  to  the  FMP  by  specialists  not 
necessarily .resident  at  the  NASF  site.  This 
can  only  be,  permitted  if  adequate  protection'  is 
afforded  the  system  from  illicit  use  of  the 
maintenance  capabilities.  The  level  of 
security  must  be  greater  than  that  which  is 
nominally  acceptable  for  commercially  available 
computer  based  systems.  The  reason  is  obvious, 
since  remote  access  could  be  obtained  to 
functions  which  affect  the  actual  hardware 
operation.  Certainly  the  software  system  must 
be  able  to  prevent  catastrophic  events  from 
being  initiated  while  the  system  is  in 
production  mode. 

c)  The  maintenance  function  as  a procedural  concept 

In  Division  7 the  subject  of  maintenance  strategy  is 
discussed.  In  addition  to  the  hardware  and  software 
that  are  designed  into  the  NASF,  a procedural  strategy 
which  concerns  itself  with  manpower  (numbers  and 
qualifications),  organization,  economics, 
methodologies,  and  tradeoffs  in  the  maintenance  process 
must  be  designed  as  well.  One  of  the  major  operating 
costs  of  the  NASF  will  be  that-  of  the  maintenance 
support  function.  Not  only  must  a sufficient  number  of 
trained  personnel  be  available  for  emergency  service, 
but  personnel,  equipment,  and  parts  must  be  on  site  to 
perform  regular  preventative  maintenance.  The  costs  of 
maintaining  the  maximum  work  force  and  parts  inventory 
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can  be  prohibitive  and  must  be  weighed  against  the 
alternative  probabilities  of  system  failures  during 
time  of  operational  use. 


2.3.5  MICROCODE  CONTROL  AND  FAULT  ISOLATION 

A powerful  tool  for  computer  designers.,  made  "poss-i-ble  by 
advances  in-  memory  technology,  is  the  microcode  control  of  logic 
networks.  Although  quite  often  stored  in  ROM 

( Read-Only-Memory) , microcode  can  also  be  stored  in  standard  RAM 
(Random  Access  Memory)  and  loaded  into  the  CPU  at  every  system 
"deadstart"  (or  power-up,  or  "coldstart") . The  use  of 
reloadable  microcode  permits  the  incorporation  of  design 
improvements  in  the  control  systems  without  changing  components 
or  rewiring  logic  in  the  computer  at  a field  installation.  A 
class  of  memory  technology  is  now  available  that  permits  the  use 
of  microcode  control  for  even  the  highest  performance  logic 
family,  with  a minimum  of  auxiliary  hardwired  control  necessary 
to  meet  the  speed  requirements  of  most  networks,. 

The  Control  Data  FMP  design  is  based  on  the  use  of  this  high 
performance  microcode,  which  is  distributed  within  each 
functional  element  rather  than  being  centralized  in  a main 
control  unit.  In  addition  to  the  concept  of  "distr ibute'd 
microcode'* , the  machine  employs  a "two-dimensional  microcode" 
structure  which  is  utilized  for  on-line  diagnosis  and  fault 
isolation.  Figure  17  sketches  the  concept  as  it  appears  to  the 
hardware  designers. 
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ON-LINE  DIAGNOSTIC 
STARTING  ADDRESS 


The  microcode  memory  consists  of  a semiconductor  system  capable 
of  storing  N words  of  M bits  in  a high  speed  RAM  technology 
package.  Control  is  achieved  by  reading  a word  from  this  memory 
and  distributing  the  bits  to  actual  hardware  gates  in  the  CPU. 

In  the  example  shown,  bits  m through  n are  used  to  control  the 
next  address  to  be  read  from  the  memory.  Bit  7 is  shown  being 
sent  directly  to  a hardware  AND  gate  which  controls  some  data 
path.  Bits  8 and  9 are  sent  to  a hardware  2-to-4  decode  network 
which  concerts  the  two-bit  code  into  four  distinct  control 
signals  which  are  then  transmitted  to  data  path  controls 
elsewhere  in  the  network. 

A typical  modus  operand!  for  such  a microcode  is  for  it  to 
receive  an  initial  starting  address  from  an  outside  source  (say 
for  example,  a function  code  being  sent  from  the  Scalar  Unit  to 
the  Vector  Unit) . This  address  points  to  one  of  three  legal 
starting  addresses  in  the  microcode  memory.  The  first  control 
word  is  then  read  from  that  memory  and  its  bits  disseminated  to 
the  appropriate  hardware.  The  next  word  to  be  read  is  then 
determined  from  the  SEQ  field  of  the  first  word,  and  the  process 
continues  until  either  the  microcode  shuts  itself  off  and  awaits 
a new  external  address,  or  perhaps,  enters  an  "idle  loop” 
(sequence  of  do-nothing  microcode  instructions). 

Since  memory  systems  are  usually  packaged  in  convenient  sized 
units  (for  example,  a single  efficient  block  might  be  32  words 
of  32  bits) , the  designer  usually  finds  that  after  he  has- 
completed  his  control  structuring  there  are  unused  memory 
locations  and  unused  bits  in  each  distributed  memory 
(crosshatched  areas  in  figure  17).  The  two  dimensions  of  this 
microcode  are  evident  from  the  diagram  --  depth  (number  of 
words)  and  width  (number  of  bits).  The  realistic  designer  will 
first  set  aside  some  of  the  spare  depth  and  width  for  possible 
later  design  improvements.  However,  the  need  for  reliability 
and  availability  dictate  that  a certain  amount  of  words  and  bits 
be  .allocated  to  the  maintenance  function.  Some  of  the  bits 
might  be  connected  to  gating  networks  which  are  not  used  during 
normal  operation.  Others  might  be  sent  as  codes  to  the 
Maintenance  Control  Unit  as  error  flags. 

The  spare  words  in  the  memory  might  be  employed  in  two  ways: 

• First  the  idle  loop,  which  the  microcode  normally  enters 
while  awaiting  a new  function,  might  be  extended  to  use 
these  words  to  initiate  self-checking  actions  in  some  of 
the  networks.  An  example  previously  given  was  the 
forced  generation  of  all  zeroes  to  an  adder  network.  At 
the  same  time,  one  of  the  spare  bits  might  enable  an  all 
zeroes  check  to  be  performed  at  the  output  of  the  adder. 
If  this  check  is  not  satisfied  an  error  flag  could  be 
sent  to  the  MCU. 

• Second,  an  external  source  (such  as  the  MCU  could 
initiate  a microcode  sequence  at  one  of  the  spare  words 
(labeled  ON-LINE  DIAGNOSTIC  STARTING  ADDRESS  in  the 
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figure) . This  sequence  could  perform  certain  unique 
network  control  not  available  in  normal  operation.  An 
example  of  this  would  be  the  defeating  (shutting  off)  of 
the  generated  carries  in  an  adder  network  so  that  only 
the  partial  sums  are  transmitted  to  the  output  trunks . 

In  some  cases  this  might  aid  isolation  of  failures  a 
great  deal.  Once  the  sequence  is  completed  the  microcde 
might  then  return  to  its  normal  idle  loop. 

A third  diagnostic  and  isolation  aid  is  the  ability  to  load  a 
completely  different  microcode  into  the  memory  from  the 
maintenance  station  (this  function  is  called  "down-loading" ; or 
"downstream  loading").  Down-loading  of  the  normal  operational 
microcode  is  always  done  at  system  startup  time,  since  the  RAM 
memory  is  volatile.  It  can  also  be  done  independently  to  any 
independent  functional  element  in  an  off-line  manner  by  the 
maintenance  station.  This  version  of  the  microcode  would  be 
called  the  fault  isolation  microcode.  It  may  consist  of  one  or 
several  loads' of  microcode  which  trigger  and  test  the  logic 
networks  at  the  gate  level.  The  intent  of  this  system  is  to 
provide  back  to  the  maintenance  station  sufficient  analysis  to 
permit  the  determination  of  fault  location  to  the  smallest 
replaceable  component  level.  Loading  of  such  microcode  into  one 
Vector  Unit  does  not  affect  any  other  unit.,  therefore  it  is 
possible  for  the  MCU  to  switch  into  operation  the  spare  Vector 
Unit,  load  isolation  microcode  into  the  failing  Vector  Unit  and 
perform  isolation  exercises  in  that  unit  while  the  remainder  of 
the  FMP  continues  normal  operation. 

It  should  be  obvious  that  the  designer  must  design  fault 
isolation  into  the  FMP  from  the  start,  and  not  just  be  content 
with  using  whatever  spare  words  and  bits  may  abound.  The  design 
philosophy  for. the  FMP  has  been  to  add  whatever  extra  bits  and 
words  are  necessary  to  make  achievement  of  the  replaceable 
component  isolation  goal  a reality,  within  the  constraints  that 
too  many  words  and  too  many  bits  may  take  up  too  much  room  or 
too  much  access  time  as  to  be  feasible. 


2.3.6  VALIDITY  AND  VERACITY 


The  primary  objective  of  this  study  has  been  to  arrive  at  a 
system  design  which  can  be  built  and  utilized  effectively  within 
a very  tight  development  time  schedule.  The  willingness  of  NASA 
and  manufacturers  such  as  Control  Data  to  launch  into  the  actual 
construction  of  such  a facility  with  all  its  visibility  and  all 
its  risks  will  be  determined  not  only  by  allegations  of 
achievable  goals,  but  more  importantly. by  the  confidence  upon 
which  all  parties  can  rely  on  the  cost,  performance,  schedule 
and  RAM  goals. 

A summary  of  statements  regarding  the  validity  or  correctness  of 
the  conclusions  on  hardware  design  as  far  as  is  known  today  are 
presented  here. 
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ASSUMPTIONS 


2.3.6. 1 

1.  Design  would  not  commence  until  mid-1980  at  the 
earliest. 

2.  A FORTRAN  compiler  can  be  produced  which  can  generate 
and  schedule  machine  instructions  from  the  implicit 
metric  as  shown  in  appendices  B and  C. 

3.  The  entire  system  design  and  manufacture  would  be 
conducted  by  a single  vendor,  with  choice  of  new 
equipments  installed  with  this  system  left  to  that 
vendor . 

4.  The  implicit  metric  reflects  the  most  probable 
performance  characteristics  of  the  major  load  of 
production  jobs  on  the  FMP. 

5.  The  system  load  data  provided  by  Ames  is  at  least 
within  20?  of  reflecting  the  1984-1989  production 
environment . 

6.  Installation  and  operation  of.  the  NASF  can  be  phased 
over  a period  of  12  months  as  more  and  larger  elements 
are  needed  to  support  the  increasing  workload  (for 
example,  the  Backing  Store  need  not  be  installed  at  the 
outset  to  meet  initial  program  development  and 
production  operation.  Then  it  could  be  installed  in 
increments. ) 

7.  Sufficient  funding  and  compute  power  will  be  available 
for  the  duration  of  the  development  project  to  support 
extensive  simulation  of  the  FMP  and  the  system  at  all 
levels  (system,  block,  and  gate-level  models). 


2. 3. 6. 2 VALIDITY  DERIVATION 

1.  All  circuit  components  costs,  failure  modes, 
quantities,  and  complexity  are  based  on  existing  parts 
now  in  production  with  the  exception  of  the  Backing 
Store  technology. 

2.  The  Backing  Store  estimates  are  based  on  MOS 
technologies  now  in  production,  and  scaled  for  the  more 
complex  chips  in  that  memory. 

3.  Where  sufficient  production  volumes  have  not  yielded 
sufficient  experiential  data  (as  in  the  case  of  the 
LSI-168  gate  array  and  Intermediate  Memory  chip) 
conservative  learning  curves  for  failures  and  costs 
were  utilized. 
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4.  The  packaging,  power,  and  cooling  technologies  were 
taken  directly  from  computer  products  already  in 
existence. 

5.  Gate-level  design  of  some  of  the  key  FMP  elements,  or 
portions  of  those  elements  (such  as  the  Memory,  PDC, 
Scalar  Unit) , have  been  completed  and  either  put.  into 
practice  or  simulated  in  detail  as  part  of  standard 
product  development  on  other  CDC  projects. 

6.  Design  and  simulation  techniques  are  identical  to  those 
employed  for  other  large  scale  computer  development 
efforts. 

7.  To  the  extent  that  time  and  resources  have  permitted, 
the  design  of  the  FMP  has  been  carried  to  the  point 
where  all  manufacturing  and  performance  aspects  are 
expected  to  be  within  10%. 

8.  All  other  system  components  in  the  NASF  are  taken  from 
the  warehouse  of  existing  system  devices,  for  purposes 
of  calibrating  cost,  performance,  and  physical 
requirements.  Since  forthcoming  products  will 
undoubtedly  improve  with  respect  to  all  three 
parameters,  the  current  estimates  are  considered  highly 
reliable  and  quite  conservative. 

Finally,  as  a bottom  line,  based  on  two  decades  of  effort  to 
build  and  support  machines  of  this  class,  Control  Data  believes 
that  if  the  requirements  reflect  reality  and  the  system  design 
truly  meets  the  performance  objectives  of  the  projected 
production  environment,  then  the  entire  NASF  is  producible  in 
the  specified  time  frame  and  will  be  effective  in  its  given 
role . 
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3.0  SOFTWARE  DESIGN 

The  success  of  the  FMP  rests  not  only  on  the  ability  of  the 
hardware  to  attain  its  performance  goals,  but  also  on  the 
effectivity  of  the  software  system  that  supports  the  hardware. 
The  first  concern  is  that  the  problem  statement  be  matched  to 
the  computer  architecture  to  maximum  effect.  This  is  a function 
of  the  programming  language  characteristics  as  well  as  the 
capability  of  the  compiler  to  make  automatic  -deci-s-i-ons , 
transparent  to  the  programmer,  regarding  the  scheduling  and 
optimization  of  the  FMP  hardware  resources.  The  major  effort  in 
this  study  has  been  to  attack  these  two  aspects  of  FMP  software 
design. 

The  overall  FMP  capability  for  initiating  new  jobs  and 
scheduling  system  interactions  such  as  I/O  with  a minimum  of 
lost  time  to  the  production  jobs  is  a second  software  design 
concern  which  has  been  addressed  in  these  three  NASF  studies. 
This  report  will  discuss  the  current  conclusions  on  these 
issues,  and  will  include  updates  of  previous  study  findings  in 
these  areas. 


3.1  LANGUAGE  ANALYSIS  AND  DEFINITION 

At  the  outset  of  the  first  NASF  study  Control  Data  concluded 
that  a special  purpose  language  would  have  to  be  developed  for 
the  FMP  to  ensure  that  the  best  match  was  made  between  language 
and  problem  algorithm,  and  between  language  and  machine 
architecture.  The  pragmatics  of  the  expected  operating 
environment  made  it  impossible  to  ignore  the  imperative  of 
maintaining  a FORTRAN-like  language  for  most,  if  not  all, 
applications  programming.  Language  design  for  the  FMP  would 
focus  entirely  on  the  applications  development  aspect  of  program 
statement,  leaving  the  operating  system  and  support  software 
development  in  the  hands  of  the  extant  system  language  "fad”. 


3.1.1  EVOLUTION  LEADING  TO  SPECIFICATION 

Two  rationale  dominate  the  CDC  recommendation  for  a special 
language  for  the  FMP. 

1.  The  possibility  that  compiler  technology  will  develop 
"production"  language  processors  that  can  unravel  the 
existing  scalar  FORTRAN  metrics  into  sequences  suitable 
for  parallel  computational  elements  is  an  exciting 
object  to  pursue,  but  the  risk  of  failure  at  this  stage 
is  quite  high.  This  alternative  must  not  be  abandoned 
by  researchers  however. 

2.  In  the  long  run,  applications  programmers  will  benefit 
from  conceiving  of  their  problem  solutions  in  parallel 
form,  rather  than  letting  a "smart"  compiler  invisibly 
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transform  their  code.  By  making  the  inherent 
parallelism  visible,  the  programmer  can  assist  the 
compiler  in  the  production  of  optimum  machine 
instruction  sequences. 

Demonstrating  RADL  researchers  resolve  and- technical  opinions, 
at  least  five  different  approaches  were  attempted  at  defining  a 
programming  language  which  met  the  criteria  of  compilability , 
consistency,  clarity,  and  most  of  all,  acceptability  to  the 
potential  user  community  (MASA-Ames) . The  approaches  began  in 
the  initial  study  period  by  beginning  with  a single  language 
construct  to  FORTRAN  and  thence  experimenting  with  the  resulting 
language  using  the  implicit  and  explicit  metrics.  As 
shortcomings  were  encountered  in  use,  an  additional  construct 
was  created  and  added  to  the  language  specification.  In  that 
manner,  a draft  language  enhancement  to  FORTRAN  was  developed 
during  most  of  .the  first  study.  In  the  main,  these  extensions 
were  reasonably  acceptable  to  those  programmers  who  considered 
them,  however  they  did  not  meet  the  criteria  of  consistency  and 
compilability,  appearing  much  like  a set  of  patches. 

A quick  remedy  for  this  was  to  reduce  the  extensions  to  a 
manageable  size  and  ignore  some  of  the  picky  programming  details 
(such  as  data  movement)  that  arose;  so  evolved  the  CODO 
(concurrent  DO)  constructs  described  in  reference  1.  As  the 
second  study  began,  it  became  obvious  that  other  considerations 
might  weight  heavily  on  decisions  regarding  language.  • 

1 . The  expected  system  development  time  for  the  NASF  would 
severely  strain  the  best  efforts  of  any  compiler 
development  team.  To  reduce  development  risks  an 
existing  compiler  would  have  to  be  adapted  to  the  FMP 

. usage.  Otherwise,  the  first  years  of  NASF  production 
would  be  fraught  with  the  problems  inherent  in  any  new, 
complex  compiler  system. 

2.  The  acquisition  of  "parallel  programming"  insight  is 
painful  on  first  go  for  even  the  most  highly  skilled 
analysts.  The  process  of  learning  new  thought 
processes,  researching  and  developing  new  parallel 
algorithms  is,  in  its  initial  stages,  quite  lengthy  and 
requires  great  diligence. 

3.  STAR-100  experience  was  beginning  to  show  the  direction 
that  algorithms  could  take,  and  an  inventory  of  useful 
programs,  subprograms  and  functions  was  being  developed 
that  might  be  of  great  value,  in  their  most  mature 
forms  by  1984,  to  a widely  used  system  such-as  the 
NASF.  If  some  means  could  be.  found  to  utilize  all  of 
this  background  derived  from  the  STAR  experience,  much 
time  and  effort  might  be  saved,  hence  costs  and  risks 
might  be  reduced. 
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This  thinking  led  down  the  STAR-100  byway,  in  an  attempt  to 
directly  apply  the  STAR-100  FORTRAN  language  extensions  to  FMP 
programming.  The  obvious  advantage  of  this  was  that  programs 
could  be  coded,  reformatted,  debugged,  and  even  small  production 
runs  made  on  existing  computing  systems.  The  disadvantage  was 
that  although  the  language  was  consistent  and  obviously 
compilable,  the  user  acceptance  was  near  zero.  The  major, 
objections  by  NASA  were: 

T.  The  need  for  explicitly  describing  vector  data 

structure  and  vector  operations  made  it  difficult  to 
develop  algorithms  without  being  intimately  familiar 
with  the  internal  hardware  design.  For 
three-dimensional  simulation  problems  this  was  an 
undesirable  requirement,  since  most  creative  resources 
are  expected  to  be  needed  in  just  solving  the  physics 
and  mathematics  of  the  model  solutions. 

2..  Some  changes  were  needed  in  the  STAR-100  FORTRAN  to 

accommodate  the  differences  in  architecture  between  the 
FMP  and  STAR.  This  meant  that  the  compiler  could  not 
be  retained  in  its  original  form  in  any  case. 

3.  Some  notational  forms  were  clumsy,  but  required  by  the 
compiler.  There  were  too  many  additional  constructs  to 
learn  besides  the  normal  FORTRAN  constructs. 

4-.  The  existing  metric  code  would  have  to  be  severely 

disrupted  to  organize  the  code  in  a form  suitable  for 
optimum  machine  operation  using  the  extensions. 

Control  Data  was  asked  to  go  back  to  "square  one"  and  attempt  to 
provide  a FORTRAN  system  where  most  of,  if  not  all,  the  machine 
architecture  could  be  "hidden  from  view"  of  the  programmer, 
relieving  him  to  deal  with  the  mathematical  and  physical 
intricacies  of  his  problem.  Interaction  with  Ames  programmers 
revealed  the  fact  that  they  objected  to  the  explicit  knowledge 
and  manipulation  of  Vectors  of  the  STAR  form  but  had  no 
reservations  about  dealing  with  an  abstract  collection  of  data 
called  an  array,  or  a subarray,  as  an  entity  in  an  single 
computation.  Thus  the  programmers  claimed  they  would  be  happy 
with  the  ability  to  state  solutions  like: 

PROGRAM  TEST 

DIMENSION  A( 100, 100, 100) ,B( 100, 100, 100) 

A=B*B 


where  the  entire  meshes  A and  B take  part  in  the  one  operation. 
Further,  the  manipulation  of  subsets  or  subarrays  of  arrays  was 
also  acceptable,  as  long  as  the  compiler  worried  about 
partitioning  the  actual  arithmetic  operations  into  sequences  of 
suitable  vector  operations  for  the  FMP.  Thus: 

AC  1 : 10, 1 , 1 ) = B(1 : 10, 1 , 1 ) 
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which  causes  the  first  column  of  B (ten  elements)  to  be  moved  to 
the  first  column  of  the  array  A. 

It  is  easily  apparent  that  this  same  operation  could  be 
restarted  as  a conventional  FORTRAN  DO  loop:  • 

DO  10  1=1,10 
10  A(I,1,1)  = B(I,1,1.) 

but  the  clearly  recognized  movement  of  a column  of  data  in  the 
subarray  form  describes  the  desired  action,  while  statement  10 
above  might  be  submerged  in  a morass  of  statements  in  a much 
larger  DO  loop  in  I.  The  clarity  of  intent  is  not  only  more 
open  to  the  casual  reader  but  to  the  compiler  itself  which  has 
to  deal  with  messy  DO  constructs  containing  IF-ELSE  blocks,  GOTO 
and  CALL  statements  which  may  make  the  simple  array  move  ■ 
operation  impossible  to  determine  when  stated  in  DO  loop  form. 

Given  this  assistance  and  guidance,  RADL  set  about  reconciling 
those  desires  and  previously  stated  constraints  with  another  new 
set  of  considerations: 

1.  The  final  FMP  form  arrived  at  in  this  study 
deliberately  separated  the  data  movement  (map) 
operations  from  arithmetic  operations  in  terms  of 
hardware  and  control.  Some  of  the  resulting 
concurrency  could  be  discerned  automatically  by  the 
compiler,  but  a modest  amount  of  language  assistance 
might  make  it  possible  to  fully  utilize  the  concurrency 
and  maximize  vector  unit  activity. 

2.  Tradeoffs  in  FMP  architecture  resulted  .in  a three-level 
memory  hierarchy  which  cannot  be  entirely  hidden  from 
the  programmer  due  to  the  vast  differences  in 
performance  levels  and  constraints  on  data  storage 
(only  BLOCK  transfers  are  permitted  to/from  LEVEL  3, 
for  example) . 

3.  The  ANSI  FORTRAN  77  specification  was  finally  adopted 
in  final  form  and  commitments  to  implement  this 
language*  as  the  new  US  standard  were  practically 
imposed  on  American  computer  manufacturers.  Hence  all 
CDC  FORTRAN  compilers  were  rapidly  to  turn  into  ANSI  77 
processors . 

4.  Some  of  the  non-vector  extensions  of  the  STAR-100 
compiler  proved  to  be  quite  valuable  in  programming  for 
the  STAR  and  CYBER  200  machines.  The  subarray 
reference  notation,  IMPLICIT,  CHARACTER,  and  extended 
intrinsic  functions  have  demonstrated  high  utility  in 
production  codes. 
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5.  The  need  to  base  the  FMP  compiler  on  an  existing 

compiler  is  still  considered  imperative  to  meet  the 
NASF  development  schedule.  This  is  particularly  true 
if  the  language  construct  additions  or  changes  can  be 
minimized . 

The  outcome  of  these  deliberations. is  offered  in  Volume  III,  FMP 
FORTRAN  Language  Specification.  A more  detailed  discussion  and 
demonstration  of  the  language  facilities  is  included  in 
subsequent  sections  of  this  report. 


3.1.2  OBSERVATIONS  AND  RATIONALE 

The  preceding  discussion  has  concerned  the  evolution  of  thought 
and  deed  that  led  to  the  language  specification  given  with  this 
report;  however,  some  additional  commentary  should  be  offered. 

1 . Programs  and  algorithms  developed  for  the  STAR/CYBER 
200  family  can  be  directly  transferred  to  FMP  FORTRAN 
by  converting  the  explicit  vectors  to  subarrays.  This 
can  be  done  easily  with  a mechanical  ,,SIFT,, 

(conversion)  program.  STAR  "Descriptors"  can  be 
directly  converted  to  the  more  flexible  DYNAMIC 
variable . 

2.  Dynamic  assignment  of- memory  levels  using  the  DEFINE 
statement  makes  it  possible  to  use  the  identical 
production  code  for  small  problems  (which  would  fit 
entirely  in  Main  Memory  and  operate  quite  efficiently) 
and  large  codes  (which  need  to  be  based  in  Intermediate 
Memory,  with  the  slow  map  times  thus  incurred) , without 
recompiling.  The  programmer  may,  if  he  wishes,  take 
direct  control  of  temporary  space  allocation  for  large 
arrays. 

3.  Scalar  algorithms  may  be  vectorized  directly  in  many 
cases  by  redefining  all  scalars  as  arrays  or  subarrays 
with  DYNAMIC  statements. 

A.  In  the  examples  in  the  implicit  code  report  the  full 

subarray  reference  notation  is  used.  In  many  instances 
this  would  be  unnecessary  once  the  compiler  could 
detect  these  cases  from  the  normal  array  notation 
imbedded  in  a DO  loop.  The  subarray  references  were 
retained  since  it  was  felt  that  they  more  clearly 
describe  "what’s  going  on". 
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5.  Some  form  of  dynamic  redefinition  of  data  structures  is 
necessary  in  parallel  systems  to  avoid  being  bound  by 
the  static  characteristics  imposed  by  DIMENSION  which 
makes  it  difficult  to  store  adjacent  elements  together, 
column-for-column  and  plane- for-plane,  (This  is, 
incidentally,  an  opinion  stated  by  Dick  McHugh  of  CDC 
in  1976,  but  not  put  into  practice  until  now.) 

6.  Although  compilers  can  now  allegedly  process  and 
incorporate  more  than  a single  module  at  a time,  and 
thus  vectorize  across  CALL  statements,  the  use  of  a 
single  generalized  subroutine  (with  its  inevitable  IF 
statements  used  to  pick  out  special  cases)  is  basically 
inimical  to  automatic,  OPTIMUM  vectorization  (notice 
the  emphasis  on  OPTIMUM! ).  The  recoding  of  STEP 
brought  the  XXM,  YYM,  and  ZZM  subroutines  in-line,  not 
only  to  aid  vectorization  but  to  eliminate  redundant 
data  transfers  (for  example  the  use  of  the  array  R J , 
lines  930,  1030,  1040  of  appendix  B) . In  a similar 
vein,  VI-SMAT  needs  to  be  brought  in-line  so  that  the 
subroutine  call  to  ZZM  can  be  eliminated  and  the  data 
previously  computed  reused. 


3.2  FMP  LANGUAGE  DESCRIPTION 

The  base-  language  chosen  by  Control  Data  for  FMP  applications 
programming  is  ANSI  FORTRAN  77.  A set  of  extensions  to  this 
basic  language  has  been  defined  for  the  CYBER  200  family,  and 
these  extensions  have  been  further  augmented  by  specific  FMP 
features  intended  to  assist  the  compiler  in  producing  optimum 
code  for  the  FMP.  The  choice  of  ANSI  FORTRAN  77  was  based  on 
the  following  considerations: 

a)  The  FORTRAN  language,  imperfect  as  it  may  be,  is 
commonly  known,  and  has  become  the  de  facto  "lingua 
franca"  of  the  American  computer  community.  It  can  be 
expected  that  all  potential  front-end  or  support 
processors  will  supply  FORTRAN  compilers  as  part  of 
their  standard  software  system.  Thus  most  applications 
programming  outside  the  FMP  will  most  likely  be  done  in 
FORTRAN. 

b)  The  ANSI  77  version  of  FORTRAN  will  shortly  become  the 
official  standard  language  specified  in  all  government 
procurements  (and  thus  quickly  be  required  in  all 
commercial  computer  purchases) . Absolute  requirements 
for  vendor  supply  of  ANSI  FORTRAN  77  compilers  are- 
estimated  to  be  imposed  in  the. middle  of  1980.  It  is 
expected  that  after  some  interim  period  following  the 
introduction  of  the  ANSI  77  requirement  this  updated 
FORTRAN  will  become  the  sole  FORTRAN  language  supported 
as  "standard"  by  the  offerers  of  NASF  processors  other 
than  the  special  purpose  FMP. 
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Volume  III  of  this  report  contains  a specification  of  the 
proposed  ANSI  FORTRAN  77  language,  as  amended  for  the  FMP,  in 
the  form  of  a programmers'  -reference  manual.  The  specification 
consists  of  an  original  CYBER  200  (STAR)  FORTRAN  manual,  with 
line  and  page  changes  incorporated  as  insertions  to  the 
original.  This  was  done  to  make  visible  to  potential  users  the 
differences  between  ANSI  66  (as  represented  by  the  CYBER  200 
FORTRAN)  and  ANSI  77,  as  well  as  the  differences  between  CYBER 
200  FORTRAN  vector  features  and  FMP  vectorization  aids. 

The  language  specification  can  be  viewed  as  four  distinct 
entities : 

1.  The  basic  reference  manual. 

2.  Changes  needed  to  make  the  language  fully  ANSI  77 
compatible . 

3.  CYBER  200  FORTRAN  77  additions  (beyond  ANSI  77), 

4.  FMP  FORTRAN  extensions. 

This  language,  as  described  in  Volume  III,  was  used  for  the 
recoding  of  the  implicit  and  explicit  aerodynamic  flow  codes  as 
presented  in  this  report. 


3.2.1  THE  BASE  DOCUMENT 

The  reference  manual  (Volume  III)  provides  a FORTRAN  language 
originally  based  on  ANSI  FORTRAN  66.  Extensions  to  permit 
implicit  and  explicit  vectorization  for  the  STAR  computer  were 
added  to  the  language.  Data  types  such  as  BIT  and  CHARACTER 
were  included  to  support  the  string  processing  capabilities  of 
the  STAR  architecture.  Additional  vector  constructs  were  added, 
such  as  DESCRIPTOR  and  DOUBLE  DESCRIPTOR,  to  provide  a 
"shorthand"  means  of  invoking  standard  and  sparse  vector 
operations.  The  explicit  vector  constructs  that  were  added  for 
STAR  have  been  replaced  by  more  flexible  constructs  for  the  FMP 
version  of  the  FORTRAN  language. 

The  majority  of  the  dialect  described  in  this  base  document  is 
familiar  to  all  FORTRAN  programmers.  One  construct  that  was 
added  to  STAR  FORTRAN  has  proven  to  be  quite  useful  in  the 
analysis  and  programming  of  FMP  codes,  and  thus  deserves  some 
discussion  here;  that  construct  is  SUBARRAY  notation,  and 
rationale  for  it  follows. 

In  the  early  developmental  days  of  the  first  "vector"  or 
"parallel"  machines  (ILLIAC  IV,  STAR,  TI-ASC,  and  PEPE)  compiler 
developments  discovered  that  automatic  vectorization  of  FORTRAN 
code  was  made  difficult  by  common  programming  practices  that 
incurred  no  penalties  on  scalar  computers.  Such  practices  could 
be  represented  by  a DO  loop  of  the  form 

DO  10  1=1 ,1000 

A(I )=B(I ) *C( I ) 

• 

CALL  GLUMPF(A(I) ,B(I)) 

10  A(I )=A(I ) **2 
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If  the  CALL  statement  were  not  present,  even  primitive  compilers 
could  automatically  create  vector  operations  for  the  arithmetic 
assignment  statements  shown.  The  introduction  of 
discontinuities  such  as  this,  when  all  program  modules  cannot  be 
compiled  together,  makes  vectorization  nearly  impossible.  If,  in 
fact,  the  arithmetic  could  be  vectorized,  the  programmer  could 
restate  his  intentions  as 


DO 

100  1=1 ,1000 

100 

A(I ) =B( I ) *C( I ) 

DO 

101  1=1,1000 

101 

CALL  GLUMPFCA(I) ,B(I) ) 

DO 

102  1=1 , 1000 

102 

A(I)=A(I)**2 

The  compiler  is  thus  assisted  in  its  vectorization  task  by  the 
programmer  restating  the  data  flow  more  explicitly,  although  a 
bit  ponderously.  To  get  optimum  results  on  the-  new  generations 
of  vector  machines,  it  has  become  necessary  to  make  the 
programmer  conscious  of  the  "parallel”  .or  "vector”  nature  of  his 
programs  so  that  problem  restatements  can  be  done  intelligently. 

The  consciousness  must  also  extend  to  the  data  allocation 
schemes,  since  some  processors  possess  memory  hierarchies  with 
significant  performance  differentials  at  each  memory  level, 
while  other  processors  require  linear,  sequential  storage  of 
data  for  optimal  vector  performance.  Additionally,  some  form  of 
"shorthand"  would  be  desirable  to  reduce  the  coding  effort  while 
improving  readability. 

Early  in  the  1970s,  several  different  computer  developers 
proposed  a set  of  extensions  to  the  ANSI  FORTRAN  committee  for 
the  description  of  operations  on  whole  arrays  or  portions  of 
arrays  called  "subarrays".  These  recommendations,  while  not 
approved  by  the  committee,  appeared  to  have  sufficient  support 
that  they  were  implemented  in  at  least  four  different  vendors' 
compilers,  one  of  those  being  the  STAR  FORTRAN  66  compiler. 

Basically,  subarray  notation  can  be  thought  of  as  another  means 
for  describing  processing  that  is  commonly  assigned  to  DO  loops. 
The  simplest  case  is  to  perform  operations  over  an  entire 
array: 

DIMENSION  AC  100, 100,100) ,B< 1 00, 100,  100) ,C( 100,  100, 100) 

DO  10  1=1 ,100 

DO  10  J=1 ,100 

DO  10  K=1 , 100 

A(I,J,K)=B(I,J,K)+C(I,J,K) 

10  CONTINUE 

In  this  instance  the  programmer  wishes  to  operate  on  the  entire 
matrices  A,  B,  and  C.'  It  is  obvious  that  the  order  of  the 
subscripts  is  not  important  for 

A(J,K,I)=B(J,K,I)+C(J,K,I) 
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will  yield  the  same  results  as  the  previous  assignment 
statement,  provided  the  matrices  A,  B,  and  C are  not 
equivalenced  or  overlapped  in  some  ridiculous  COMMON  block 
allocation . 

The  simplest  subarray  representation  for  this  -case  would  be 
DIMENSION  A( 100, 100, 100) ,C( 100, 100, 100)  ,B( 100, 100, 100) 
A(*>*,*)=B(*,*,*)+C (*,*,*) 


A detailed  specification  of  forms  and  uses  for  subarray  notation 
can  be  found  in  chapter  10  of  Volume  III  (FMP  FORTRAN  REFERENCE 
MANUAL).  The  case  shown  here  uses  the  asterisk  (*)  to  represent 
the  fact  that  the  full  subscript  range  is  to  be  used,  hence  the 
ADD  operation  will  take  place  over  the  entire  array.  The 
compiler  and  hardware  can  perform  this  function  according  to 
whatever  subscript  order  is  optimal  for  that  architecture! 

An  array  variable  may  appear  without  any  subscripts,  in  which 
case  the  entire  array  is  processed  in  normal  subscript  order. 
Thus 


A = B + C 


is  eqivalent  to 


A(*,*,*)=B(*,*,*)+C(*,*,*) 


in  the  example  above. 

What  if  the  need  were  to  process  only  a single  column  of  the 
matrices? 

DIMENSION  A( 100, 100, 100) ,B( 100, 100, 100) ,C( 100, 100, 100) 

DO  10  1=1 ,100 

10  A(I,1,1)=B(I,1,1)+C(I,1,1) 

This  sequence  would  perform  the  single-column  addition  of  B and 
C.  In  subarray  notation  this  could  be  stated 

DIMENSION  A( 100, 100, 100) ,B( 100, 100,100) ,C( 100, 100, 100) 

A(  * , 1 ,1)=B(*,1, 1 )+C ( * , 1 , 1) 

A significant  feature  of  this  notation  is  that  a programmer 
working  on  a large  code  can  spot  such  a statement  in  the  middle 
of  many  pages  of  source  code  and  know  instantly  that  a columnar 
operation  is  being  invoked,  without  having  to  hunt  upstream  in 
the  listing  (perhaps  for  several  pages)  to  find  a related  DO 
loop . 
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So  much  for  the  shorthand  programming  of  DO  loops  provided  by 
the  asterisk  operator,  which  can  appear  in  any  or  all  of  the 
subscript  positions  in  an  array  reference.  What  happens  if  one 
wishes  to  deal  with  portions  of  the  array  other  than  the 
commonly  encountered: 

A(*,*,1) — - — the  first  vertical  plane  of  the  mesh 
A(  * , 1 , * )— — — the  first  orthogonal  plane  of  the  mesh 
A(1,*,*) the  first  horizontal  plane  of  the  mesh 

What  if  only  the  interior  points  in  the  matrices  were  to  be 
processed  leaving  all  of  the  outside"  planes  untouched?  In  normal 
FORTRAN  this  would  become 

DIMENSION  A( 100, 100, 100) ,B( 100, 100, 100) ,0(100,100, 100) 

DO  10  1-2,99 
DO  10  J=2,99 
DO  10  K=2 , 99 

10  A(I, J,K)=B(I, J,K)+C(I, J,K) 

Using  subarray  notation  the  three-level,  nested  DO  loop  could  be 
replaced  by 

A(2:99, 2:99,2:990  = B(2  *.99,2:99, 2:99) +0(2:99,2:99, 2:99) 
where  the  normal  subscript  is  replaced  by  the  construct 
n 1 : n2 

n1=starting  subscript  value  (may  be  integer  constant  or 
variable  expression) , n1<n2 

n2=ending  subscript  value  (integer  constant  or  variable 
expression),  n1<n2 

If  every  other  element  in  the  interior  mesh  were  to  be  skipped, 
the  optional  construct 

A(2:99:2, 2:99:2, 2:99:2)=B(2: 99:2, 2:99:2, 2:99:2)+ 0(2:99:2, 
2:99:2,2:99:2) 

is  permitted  which  is  represented  in  general  by 
-nl  :n2:n3 

where  n3  is  the  increment  value  .for  that  subscript,  which  may  be 
an  integer  constant  or  integer  variable  expression,  and  must  be 
greater  than  zero. 

Now  this  latter  example  certainly  doesn’t  appear  to  be  a 
shorthand  version  of  the  desired  processing,  yet  when  DO  loops 
must  be  inserted  in  ’’dusty  deck"  FORTRAN  to  assist  in 
vectorization,  this  construct  can  be  a better  alternative.  More 
importantly  it  forces  the  programmer  to  think  "parallel" 
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in  terms  of  "planes" , "solids",  and  other  forms  of  the  subarray. 
Further,  the  pathological  subarray  case  just  given  doesn’t 
appear  very  often  in  real  code  and  thus  shouldn’t  frighten 
programmers  from  the  use  of  the  construct. 

How  is  this  notation  used  in  practice?  In  the  recoding  of  the 
implicit  code,  the  original  flow  variable  mesh  is  treated-  in 
"slabs"  which  can  be  fit  into  Main  Memory.  A slab  could,  he. 
se.v-eral  columns  in  the  L direction  of  the  mesh,  with  each  slab 
consisting  of  JMAX  times  KMAX  elements.  If  static  FORTRAN 
variables  were  used  (and  they  were  not  used  in  the  actual 
implicit  recoding) , the  following  might  appear  in  a sample 
code . 


DIMENSION  Q(100,  -100,6, 100)  ,X(  100,  100,10) 

DO  10  L=1 , LMAX, 1 0 
X(*,*,*)=Q(*,*,1 , L: L+9 ) 


10  CONTINUE 

In  this  example,  every. pass  through  the  loop  another  slab  of  10 
columns  is  moved  to  the  temporary  matrix  X.  This  case  was  given 
to  show  the  admixture  permitted  of  fixed  subscripts  (the  , ,1,  in 
the  Q reference),  asterisks,  and  subarray  subscripting  with 
integer  variables  (L:L+9). 

The  subarray  notation  is  a powerful  tool  for  assisting  the 
compiler  and  for  documentation  purposes.  It  was  used  * 
extensively  in  the  implicit  code  vectorization  to  demonstrate 
its  use  in  a variety  of  cases.  Subarray  notation  is  also  key  to 
the  implicit  and  explicit  definition  of  DYNAMIC  variables,  to  be 
discussed  in  a later  section  of  this  language  description. 


3.2.2  THE  ANSI  77  SPECIFICATION 

Review  of  the  reference  manual  in  Volume  III  will  show  that  each 
ANSI  77  revision  appears  on  a page  separate  from  the  original 
base  document,  with  letters  keying  the  location  of  each 
insertion  into  the  reference  manual.  The  significant  changes  of 
the  ANSI  77  effort  worth  noting  are: 

• Major  revisions  in  the  1/0  forms,  and  use  of  internal 
files  to  eliminate  ENCODE/DECODE  statements. 

• The  "Zero-Trip"  DO  loop,  which  tests  the  DO  variable  at 
the  beginning  of  the  loop  instead  of  the  end. 

• The  addition  of  TYPE  CHARACTER. 
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3.2.3  THE  CYBER  200  FORTRAN  77  ADDITIONS 


Incorporated  in  the  revision  pages,  along  with  the  ANSI  77 
insertions,  are  several  additions  felt  necessary  to  fully 
support  the  CYBER  200  .computer  family,  and  also  the  FMP.  The 
most  significant  item  in  this  category  is  the  inclusion  of  a 
HALF  PRECISION  variable  and  array  type  plus  half-precision 
implicit  functions.  Both  the  CYBER  200  and  the  FMP  can  utilize 
the  32-bit  and  64-bit  formats  available  for  faster  arithmetic 
throughput,  as  well  as  more  compact  storage  for  some  arrays.  The 
addition  of  HALF  to  FORTRAN  77  is  essential  to  providing  access 
to  this  feature. 


3.2.4  FMP  FORTRAN  EXTENSIONS 

Although  the  base  document  revised  as  stated  above  would  offer  a 
fairly  rich  programming  language,  it  was  found  that  a few 
additional  extensions  designed  primarily  for  the  FMP  would 
improve  the  chances  that  compiled  code  would  make  optimum  use  of 
the  FMP.  These  extensions  consist  of  two  declaratives,  LEVEL  and 
DYNAMIC,  and  one  executable  statement,  DEFINE.  Although  these 
extensions  are  described  in  the  FORTRAN  reference  manual  (Volume 
III),  they  are  crucial  to  the  recoding  performed  on  the 
three-dimensional  implicit  and  explicit  flow  codes  supplied,  by 
Ames.  Some  tutorial  commentary  thus  seems  necessary  at  this 
point  to  explain  why  the  extensions  have  been  created  -and  how 
they  were  intended  for  use. 


3.2.4. 1 THE  LEVEL  STATEMENT 
Rationale : 

In  any  computer  possessing  a hierarchical  memory  system,  where  a 
performance  differential  exists  in  the  use  of  each  level  of  the 
hierarchy,  the  programmer  is  faced  with  the  need  to  make 
judicious  choices  in  the  area  of  data  allocation.  It  is  true 
that  compilers  can  attempt  to  automatically  allocate- data  to  the 
hierarchy,  and  in  some  virtual  memory  systems  the  hierarchy  is 
managed  by  the  operating  system,  however,  a minor  error  in 
judgment  as  to  where  data  should  be  placed  (or  which  data  to  be 
paged)  can  have  major  impact  on  the  system  performance.  For 
optimal  use  of  the  hardware  resources,  the  programmer  who  knows 
the  actual  data  flow  must  allocate  and  schedule  the  major  data 
blocks  in  his  program. 

The  use  of  the  two-level  memory  in  the  CDC  7600/CYBER  176  has 
required  that  programmers  deal  with  split  data  allocation  in  an 
explicit  manner.  Note  that  even  with  this  facility,  the 
compiler  and  operating  system  still  make  use  of  the  second  level 
memory  for  1/0  buffers  and  subprogram  "roll-in",  quite' 


1-83 


independent  of  the  programmer’s  actions.  The  concern  is  for  an 
extension  which  forces  the  programmer  to  consider  the  data 
allocation  issue  directly  and  then  assist  the  compiler  by 
instructing  it  where  data  should  be  placed.  This  is  even  more 
true  in  the  FMP  where  the  programmer  is  confronted  with  three 
levels  of  memory  and  problems  that  will  consume  almost  all 
available  memory  space  at  each  level.  Hence,  the  inclusion  of 
the  LEVEL  statement. 

Form : 

A description  of  the  LEVEL  statement  can  be  found  in  chapter  6 
(page  6-3. 1A)  of  Volume  III  (FMP  FORTRAN  specification).  The 
LEVEL  statement  is  a declarative,  used  to  assign  variables  and 
arrays  to  a specific  level  of  memory.  The  default  allocation  of 
data,  in  the  absence  of  a LEVEL  statement  is  always  to  Main 
Memory  (level  1). 

LEVEL  n Vnaral , Vnam2 , . . . , Vnamra 

where  n is  an  integer  or  integer  PARAMETER  whose  values  can  be 

1 - — — Main  Memory 

2  Intermediate  Memory 

3  . — Backing  Store 

and  Vnaml , . . . , Vnamm  are  symbolic  names  of  variable's,  arrays, 
dynamic  variables,  or  dynamic  arrays  (dynamic 
types  will  be  discussed  in  a subsequent  section). 

Scalar  variables  may  be  allocated  to  either  level  1 or  level  2 
memory  but  not  to  level  3 (Backing  Store).  This  is  because  the 
Backing  Store  is  only  accessed  in  large  blocks,  and  a single 
scalar  reference  would  require  moving  an  entire  block  to  or  from 
the  Backing  Store,  creating  a very  inefficient  use  of  that 
system . 

Examples: 

LEVEL  1 A,B,C(100, 100) 

This  statement  would  assign  the  scalar  variables  A and  B to  Main 
Memory  and  the  10,000-element  array  C to  Main  Memory. 

DIMENSION  X(100, 100) ,Y(100, 100) 

LEVEL  3 X,Y,Z(100, 100) 

This  level  statement  would  assign  the  three  arrays  X,  Y,  and  Z 
to  the  Backing  Store. 

LEVEL  PI  X, Y, Z 
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This  statement  would  assign  the  variables  X,  Y,  and  Z to  either 
LEVEL  1 or  level  2 memory  depending  on  the  value  of  the  integer 
parameter  PI  (see  PARAMETER  statement  in  Volume  III).  If  the 
value  of  PI  is  greater  than  2 at  compile  time,  a compiler 
diagnostic  will  be  produced  and  the  data  will  be  assigned  to 
LEVEL  1 memory  by  default. 


3. 2.4. 2 DYNAMIC  VARIABLES 
Rationale : 

Two  major  stumbling  blocks  are  encountered  in  an  attempt  to 
convert  existing  algorithms  and  programs  to  a vector  machine  of 
the  CYBER  200  type.  First,  since  it  is  most  efficient  to 
process  whole  meshes  (or  at  the  very  least  major  subarrays  of 
such  meshes)  to  maximize  utilization  of  the  many  parallel 
elements  in  today's  machines,  the  language  must  provide 
facilities  for  dealing  in  the  largest  subarrays  practicable.  The 
fixed  DIMENSION  statement  makes  it  difficult  to  move  subarrays 
about  while  ensuring  maximum  contiguous  storage  of  data. 

Second,  the  conversion  of  simple  scalar  variables  to  array  (or 
'slice')  form  requires  converting  all  scalar  references  to  array 
references.  These  two  items  need  to  be  dealt  with  for  an 
effective  FMP  implementation. 

First  difficulty,  first:  memory  space  is  wasted  when  problem 
variable  dimensions  are  less  than  the  maximum  specified  by 
static  variable  DIMENSION  statements. 

Given  the  statements 

DIMENSION  Q( 1 00 , 100,6, 100) ,X( 100, 100, 100) ,Y( 100, 100, 100) , 

1 Z(100, 100, 100) 

KMAX=50 

JMAX=50 

LMAX=50 

DO  10  J=1 , JMAX 
DO  10  K= 1 , KMAX 
DO  10  L=1 , KMAX 

READ(TAPE  1 ) (Q ( J , K , 1 , L) ,X ( J , K, L) , Y( J , K, L) , Z( J , K , L) ) 

10  CONTINUE 

the  data  stored  into  each  of  the  arrays  Q,  X,  Y,  AND  Z will  not 
be  in  contiguous  locations.  Arrays  X,  Y,  and  Z will  each  have 
data  stored  in  the  first  50  elements  (a  half-column)  of  the 
first  50  columns  of  the  first  50  planes.  But,  since  the 
dimensions  are  100  x 100  x 100,  each  of  the  first  50  planes  will 
have  half-columns  of  data  followed  by  half-columns  of  empty 
space  for  the  first  50  columns,  and  this  will  be  followed  by  a 
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half-plane  (5000  elements)  of  empty  space  before  the  data  for 
the  next  plane  begins.  In  addition,  the  last  50  planes  will  be 
totally  empty  (500,000  elements)  making  a total  of  875,000  (50  x 
50  x 50  + 100  x 50  x 50  + 100  x 1 00  x 50)  empty  elements 
discontiguously  through  each  of  the  X,  Y,  and  Z arrays 
(1,000,000  elements  each).  In  a similar  manner  (but  more 
complex  because  of  a fourth  dimension),  the  Q array  will  have  a 
total  of  5,875,000  empty  memory  elements,  through-  the  total  of 
6,000,000.  Ag'ain,  these  will  be  discontiguous  in  sizes  from  50 
to  3,055,050  elements. 

This  leads  to  a waste  memory  space  being  unused  because  of  the 
•static’  definition  imposed  by  the  DIMENSION  statement.  In 
addition,  the  longest  vector  possible  in  this  case  (without 
performing  a gather  operation)  would  be  50  elements.  If  the 
data  could  be  stored  contiguously  as  though  the  DIMENSION 
statement  in  this  instance  were 

DIMENSION  Q(50, 50,6,50) 

subarray  operations  of  the  form 

Q(*,*,1,1)=Q(*,*,1,1)**2 

would  invoke  a single  vector  operation  of  length  50*50  elements. 

Most  FORTRAN  compilers  provide  for  variable  dimensioning  in 
subprograms  as: 

DIMENSION  A(L , M , 6 , N) 

where  L,  M,  and  N~  are  normally  passed  as  parameters.  However, 
the  dimensions  normally  cannot  be  changed  during  execution  of 
the  subroutine.  A preferred  method  would  be  the  ability  to 
•reshape’  arrays  dynamically  during  any  subprogram  execution  to 
maximize  the  use  of  the  FMP  Vector  Units,  and  to  improve  the 
data  storage  demands. 

The  second  difficulty  revolves  around  the  desirability  to 
transform  scalar  algorithms  as  directly  as  possible,  with  little 
intervention.  For  example,  the  original  code  includes: 

DIMENSION  A(100,  100, 100)  ,B(100,  100, 10.0) 

DO  10  J=1 ,100 
DO  10  K = 1 ,100 
DO  10  L=1 , 1 00 

A11'=A(J,K,L) 

A1 2=A ( J , K-1 ,L) 

A13=A(J,K+1 ,L) 

A(J,K,L)sA11*(A1 2+A 1 3 ) 

10  CONTINUE 
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This  loop  could  be  vectorized  in  J but  not  in  the  K direction 
because  of  the  recursion  there.  For  simplicity's  sake  it  would 
be  desirable  to  let  the  original  scalar  variables  All,  A12,  and 
A13  become  vector  variables  of  length  100,  without  the  need  to 
insert  a new  dimension  statement  as  might  be  normally  required: 

DIMENSION  A(100, 100, 100),B(100, 100,100) 

DIMENSION  A1 1(100) ,A12(100) , A13C100) 

DO  10  K=1 , 100 
DO  10  Lsl , 100 

A1 1 (*)=A( * ,K,L) 

A12(»)=A(*,K-1 ,L) 

A 1 3 (*)  = A( * , K+1 , L) 

A(*,K,L)=A11 (*)*(A12(*)+A13(*) 

10  CONTINUE 

To  alleviate  the  difficulty  involved  in  a vector ization  effort, 
a new  data  type  was  created — DYNAMIC — which  represents  arrays 
and  subarrays  whose  dimensions  are  established  at  execution  time 
instead  of  at  compile  time.  The  first  usage  is.  shown  by 
restating  the  previous  example: 

DIMENSION  A( 100, 100, 100) ,B( 100, 100, 100) 

DYNAMIC  A1 1 , A1 2 , A1 3 

DO  10  Ksl ,100 
DO  10  L=1 ,100 

A1  1 =A( * , K, L ) 

A 1 2=A( * , K-1 , L) 

A1 3=A( * ,K+1 , L) 

A(*,K,L)=A11 * ( A12+A1 3) 

10  CONTINUE 

Here  the  original  scalar  variables  have  been  declared  DYNAMIC, 
meaning  that  they  become  pointers  to  subarrays  which  will  be 
allocated  at  execution  time  in  the  area  of  memory  called 
'DYNAMIC  SPACE'.  This  memory  area  is  what  remains  in  each 
hierarchical  level  memory  after  all  code,  scalar  variables, 
statically  dimensioned  arrays,  buffers,  and  sundry  system  data 
are  allocated. 

The  beginning  of  current  dynamic  memory  is  pointed  at  by  a 
canonical  register  in  the  FMP  register  file  called  the  Dynamic 
Space  Pointer.  As  data  space  is  needed  for  temporary  variables 
and  vectors  by  the  object  code,  space  is  allocated  and  the 
pointer  updated.  In  this  example  100  words  of  dynamic  space 
would  be  allocated  for  each  of  the  dynamic  variables  All,  A12, 
and  A 1 3 - The  dynamic  space  pointer  would  be  updated  to  point  at 
the  next  free  space,  and  the  data  movement  from  the  array  A to 
each  of  the  respective  'slices'  would  be  initiated. 
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The  variables  All,  A12,  and  A13  would  be  assigned  a ’shape’  with 
a single  dimension  of  length  100.  (A  dynamic  variable  may  have 
up  to  seven  dimensions  ascribed  to  it  to  represent  the  ’shape’ 
of  the  data  area  in  dynamic  space  being  pointed  at.)  Figure  18 
gives  a representation  of  the  memory  allocation  of  the  pointers 
which  are  the  DYNAMIC  variables,  and  the  data  area  being  pointed 
at  by  the  DYNAMIC  variables. 

Note  that  the  shape  of  each  of  the  DYNAMIC  variables  All,  A12, 
and  A13  is  established  implicitly  by  the  variable  appearing  as 
the  object  of  an  arithmetic  assignment  statement,  whose  source 
is  a subarray  or  subarray  result.  The  shape  can  be  changed 
implicitly  as  many  times  as  the  variable  appears  as  an  object  of 
an  assignment  statement: 

DIMENSION  A(10, 10) 

DYNAMIC  X 

X=A ( * , 1 ) 

XsA(*,*) 

X=A(2:5,2:5) 


In  the  first  appearance  in  this  example,  the  variable  X becomes 
a pointer  with  a shape  of  one  dimension  and  a length  of  10. 

At  the  next  occurrence  X becomes  'reshaped*  into  a two- 
dimensional  data  space  with  dimensions  10  by  10  elements. 
Finally,  the  last  subarray  reference  again  reshapes  X as  a 
two-dimensional  data  space  of  length  4 by  4 elements. 


7- 
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C 


Figure  18 


DIMENSION  A (10,10) 
DYNAMIC  X,  Y(3) 

X=A(*,1) 

Y(2)— A(1,*) 


SCALAR  DATA 


CODE 


Y 


ADDRESS  0 


PHYSICAL  MEMORY 


Memory  Allocation  and  Assignment  of  DYNAMIC  Variables 
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The  implicitly  defined  shape  can  be  ’passed’  on  to  other  DYNAMIC 
variables  as  in: 

. DIMENSION  A(10, 10) 

DYNAMIC  X , Y, Z 

X=A( * , 1 ) 

Y=X*X 

Z=Y**2 

In  this  example  Y and  Z take  on  the  same  shape  as  X,  and  new 
data  space  is  allocated  for  each  in  dynamic  space  before  the 
calculation  is  performed. 

Conformability : 

Implicitly  defined  DYNAMIC  variables  as  shown  so  far  must  obey 
the  rules  for  conformability  when  appearing  as  the  source 
operands  for  assignment  statements,  but  obviously  when  they 
appear  as  objects  of  assignment  statements  they  are  always 
reshaped,  and  thus  automatically  obey  the  conformability  rules 
for  matrix  operations: 

DIMENSION  A(10, 10) 

DYNAMIC  X, Y,Z 

X=A( * , 1 ) 

Y=X*A(*,2) 

The  multiplication  of  the  subarray  A by  the  DYNAMIC  variable  X 
is  conformable  because  all  dimensions  are  congruent.  The 
statement : 

Y=X*Ad  ,*) 

would  also  be  conformable  since  the  subarray  A ( 1 , * ) is  a 
one-dimensional  vector  of  length  10  (albeit  requiring  a gather 
operation  to  form  the  vector)  as  is  the  subarray  A(*,1). 
However,  the  statement 

Y=X*A(2 : 5 , 2: 5 )=X 

is  non— conformable  because  the  array  reference  is  static  and 
cannot  be  reshaped,  and  does  not  match  the  shape  of  X in 
dimensions  or  size.  This  occurrence  would  also  cause  a fatal 
object-time  diagnostic. 
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3 .2. 4. 3 EXPLICIT  DEFINITION  OF  DYNAMIC  VARIABLES 


Rationale: 

There  are  instances  when  the  reshaping  of  DYNAMIC  variables 
should  be  more  controlled  than  that  which  is  permitted  by 
implicit  definitions  arising  from  arithmetic  assignment 
statements  with  DYNAMIC  variables  as  objects.  In  addition,  many 
times  it  is  desirable  to  neither  allocate  space  in  dynamic  space 
nor  to  move  data  to  a working  space  unnecessarily,  despite  the 
fact  that  it  is  dynamically  structured.  To  provide  more 
explicit  control  over  DYNAMIC  variable  definitions  the  DEFINE 
statement  is  provided: 

DIMENSION  A(10, 10) 

DYNAMIC  X, Y, Z 

DEFINE  (X , A( * , 1 ) ) 

X=X**2 

This  sequence  causes  the  variable  X to  become  a pointer  to  the 
subarray  AC*, 1 ) which  is  actually  in  place  in  the  array  A, 
rather  than  in  dynamic  space.  The  DEFINE  statement  is  an 
executable  statement  which  may  appear  any  place  in  a FORTRAN 
program  where  any  other  executable  statement  may  appear.  Upon 
execution,  it  explicitly  shapes  the  object  dynamic  variable  X 
and  assigns  the  address  of  the  subarray  within  A.  Figure  19 
shows  a representation  of  this  definition  in  physical  memory.  No 
data  motion  takes  place  as  a result  of  the  DEFINE  statement. 

The  subsequent  arithmetic  statement  X=X**2  then  performs  the 
squaring  of  the  subarray  A(*,1)  and  replaces  the  original 
subarray  with  the  result,  no  dynamic  space  being  allocated.  The 
statement 

X=A(* ,3) 

would  replace  the  subarray  A(*,1)  with  the  subarray  A( *, 3) • 
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DIMENSION  A (10,10) 
DYNAMIC  X,Y{3) 

DEFINE  (X,  A(M» 
DEFINE  (Y(2),A(10,1)) 


PHYSICAL,  MEMORY 


Figure  19.  Alternative  Memory  Allocation  Using  DEFINE  Statement 
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Confo rraability : 

Explicitly  defined  DYNAMIC  variables  can  only  be  reshaped  by 
execution  of  another  DEFINE  statement,  and  not  by  appearing  as 
the  object  of  an  assignment  statement.  Thus  such  explicitly 
defined  variables  must  obey  the  conformability  rules  on  both 
sides  of  the  equal  sign  in  an  assignment  statement: 

DIMENSION  A(10, 10) 

DYNAMIC  X, Y, Z 

DEFINE  (X , A( * , 1 ) ) 

Y=A(* ,2) 

X=A(*,3) 

Y=A(2 : 5,2:5) 

X=A(2:5,2:5) 

The  reshaping  of  Y is  permitted  because  it  is  implicity  defined; 
however,  the  reshaping  of  X=A(2:5,2:5)  is  not  permitted  since 
its  shape  has  been  fixed  by  one  explicit  DEFINE.  The  execution 
of  another  DEFTNE  statement: 

DEFINE  (X,A(2:5, 2: 5) 

would  change  the  shape  (and  size)  legally. 

F o rm  s : 

The  variety  of  permitted  statement  forms  for  DYNAMIC  and  DEFINE 
are  detailed  in  the  FORTRAN  specification  (Volume  III,  page 
6-3. 2A  and  page  1 0—3 . 1 A , respectively).  Basically  the  forms 
are 


DYNAMIC  Vnaml , Vnam2, . . . ,Vnamn 

where  Vnaml .. .Vnamn  represent  a list  of  variable  or  array  names 
which  are  to  be  established  as  dynamic  pointers. 


DEFINE  (DVnam, subarray  reference) , (DVnam 

DEFINE  (DVnam, DVnam) , (DVnam, 

DEFINE  (DVnam ,( subarray  subscripts) ), ( 

DEFINE  (DVnam , DAnam( subscripts) ) • 

where  DVnam  is  any  DYNAMIC  VARIABLE  name  and  DAnam  is  any 
DYNAMIC  ARRAY  name. 
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The  first  DEFINE  form  has  already  been  illustrated.  Note  that 
the  objects  (left-hand  member  of  each  pair)  must  be  a DYNAMIC 
variable  or  an  element  of  a DYNAMIC  ARRAY. 


The  second  example  is  used  to  make- one  DYNAMIC  variable 
synonymous  with  another.  This  means  synonymous  but  not 
identical : 

DIMENSION  A(10, 10) 

DYNAMIC  X,Y,Z 

• 

DEFINE  (X, A( * , 1 ) ) 

DEFINE  (Y , X) 

DEFINE  (X , A( * , 4 ) ) 


In  this  example  X is  first  defined  as  pointing  to  the  first 
column  of  A.  Y is  then  made  synonymous  to  X,  which  means  the 
pointers  for  Y are  set  the  same  as  those  for  X.  However,  the 
last  statement  redefines  X while  the  definition  for  Y will  still 
point  to  A( * , 1 ) . 

The  third  form  of  the  DEFINE  is  used  to  ’fix'  a dynamic 
allocation  of  data  and  definition  of  the  DYNAMIC  variable's 
’ shape ' . 

DEFINE  (DVnam ,( subarray  subscripts) . 

In  this  case  the  DVnam  may  be  the  name  of  a DYNAMIC  variable  of 
a DYNAMIC  ARRAY  element  (see  next  section  for  DYNAMIC  ARRAYS). 
The  subarray  reference  may  include  up  to  seven  subscript 
expressions,  any  one  of  which  may  be  a subarray  form: 

DYNAMIC  A, B 

DEFINE  (A, (1 : 10, 1 : 10, 1 : 10) ) 

DEFINE  (B,  I:J, 1:100, 1:100)) 


The  first  DEFINE  statement  causes  an  allocation  of  1000  elements 
of  dynamic  space  to  the  variable  A,  with  the  shape  of  10*10*10 
elements.  No  data  movement  takes  place.  In  this  regard,  DEFINE 
performs  the  same  function  as  an  'implicit'  definition  but 
without  the  data  movement.  The  resulting  memory  allocation  and 
pointer  setup  is  the  same  as  shown  in  figure  18,  for  implicit 
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definition.'  The  major  difference  here  is  that  the  variable  A 
cannot  be  reshaped  by  appearing  in  an  assignment  statement.  The 
statement 

As  X(1 :5,5: 10, 10: 100)- 

would  therefore  result  in  an  object-time  fatal  diagnostic- 
message  . 

The  second  DEFINE  statement  results  in  a similar  allocation  of 
dynamic  memory  and  the  shaping  of  the  variable  B,  but  the  amount 
of  space  allocated  and  the  shape  will  not  be  known  until  the 
object-time  execution  of  the  DEFINE  is  accomplished  and  the 
values  of  the  variables  I and  J are  known. 

The  remaining  forms  will  be  discussed  with  the  final  construct 
of  these  extensions — DYNAMIC  ARRAYS. 


3. 2. 4. 4 DYNAMIC  ARRAYS 
Rationale: 

As  seen  from  the  previous  discussion  and  by  a glance  at  the 
recoding  of  BTRI  in  the  implicit  code,  much  scalar  code  can  be 
readily  transformed  into  vector  code  while  preserving  its 
original  appearance.  There  are  cases  that  cause  some  amount  of 
distress,  however.  Take  the  example: 

DIMENSION  AC100, 100) ,B(100, 100)  ,F(5) 

DO  10  1=1 ,5 
DO  10  J=1 ,100 
DO  10  L=1 ,100 
10  F(I)=A( J,L)+B( J,L) 

If  the  loop  is  to  be  vectorized  in  both  J and  L,  the  variable  F 
must  be  redefined  as  a series  of  5 vectors,  each  with  length 
10000..  To  define  F as  a DYNAMIC  variable,  five  occurrences  of 
the  variable  F,  one  through  five  must  be  provided.  This  creates 
the  concept  of  an  array  of  DYNAMIC  variable  pointers  called  a 
DYNAMIC  ARRAY.  This  is  accomplished  by  permitting  the  DYNAMIC 
statement  forms 

DYNAMIC  A, B, F(5 ) 


DIMENSION  F(5 ) 
DYNAMIC  A,B, F 
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This  will  create  an  array  space  for  pointers  which  may  be 
addressed  by  subscripting  the  variable  name  F.  An  implicit 
definition  of  a DYNAMIC  array  element  can  thus  be  done  as 

DIMENSION  A(  10, 10, 10)  , BOO,  10, 10) 

DYNAMIC  F(5) 

F(3)=A(*,*,*) 


The  third  element  in  the  dynamic  array  F will  be  allocated 
dynamic  space  and  given  the  same  shape  as  the  static  array  A - 
10*10*10  elements.  Note  that  each  of  the  pointer  elements  in  F • 
need  not  be  related,  spatially  or  logically,  to  any  other 
element.  Thus  additional  statements 


F( 1 )sB( * , 1 ,*) 

F(2)sA(1 :5, 5: 10,5:10) 


would  set  up  other  pointers  in  F to  allocated  space  in  dynamic 
memory  that  may  not  be  contiguous — that  is  the  physical  memory 
allocated  for  F(1)  may  not  be  contiguous  with  the  physical 
memory  allocated  for  F(2),  since  the  allocation  is  done 
dynamically  as  the  respective  assignment  statements  are 
encountered  during  execution  of  the  program. 


3. 2. 4. 5 EXPLICIT  DEFINITION  OF  DYNAMIC  ARRAY  ELEMENTS 

The  forms  of  DEFINE  statement  given  in  the  preceding  section 
include  the  meta-symbol  'DVnam'  representing  a DYNAMIC  variable 
name.  . In  the  preceding  examples  this  was  limited  to  simple 
DYNAMIC  variables.  It  should  be  obvious  that  any  DYNAMIC  array 
element  can  be  used  in  place  of  such  simple  DYNAMIC  variables: 

DYNAMIC  A, 8(10) 

DEFINE  (B(3), (1:10, 1:10, 1:10)) 

DEFINE  ( A, B( 3 ) ) 

DEFINE  (B(I) , (J:K, J:K, 1 :5)) 


In  these  examples  the  DYNAMIC  array  elements  B(n)  can  be  used 
interchangeably  with  scalar  DYNAMIC  variables  in  the  first  three 
DEFINE  forms  shown. 

The  last  (fourth)  DEFINE  form 

DEFINE  (DVnam, DAnam( subscripts) ) 
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has  a special  function  which  requires  that  DVnam  must  be  a 
simple  DYNAMIC  variable.  This  is  caused  by  the  fact  that  many 
times  a subarray  reference  is  desired  for  a dynamically  assigned 
variable : 

DIMENSION  A(10, 10, 10) 

DYNAMIC  X,Y 

DEFINE  (X , A( # , 1 , 1 ) ) 

Y=X(1 : 5) 


In  this  case,  acc.ess  is  wanted  to  a subarray  of  the  dynamically 
defined  variable  X (which  is  itself  a subarray  of  the.  static 
array  A).  If  however,  access  is  desired  to  a subarray'  of  a 
DYNAMIC  array  element,  the  constructs  would  have  to  look  like 

Y=Z(3) (1:5) 

where  the  third  element  of  the  DYNAMIC,  array  Z is  used  instead 
of  the  simple  DYNAMIC  variable  X.  This  construct  is  considered 
mes.sy  to  read,  and  makes  FORTRAN  scanning  and  error  detection 
quite  difficult  in  the  general  case.  Therefore  the  methodology 
for  getting  at  subarrays  of  DYNAMIC  array  elements  requires 
’aliasing’  the  DYNAMIC  array  element  to  a simple  DYNAMIC 
variable  and  then  using  the  variable: 

DIMENSION  A(10, 10, 10) 

DYNAMIC  X,Y,Z(5)‘ 

DEFINE-  (Z(3) ,A(*,1, 1)) 

DEFINE  (X , Z ( 3 ) ) 

Y=X(1 :5) 


In  this  case  the  variable  X was  made  synonymous  with  the  shape 
and  location  of  the  third  element  of  the  DYNAMIC  array  Z.  This 
’ aliased ’ -variable  X is  then  used  as  the  basis  for  the  subarray 
reference  in  the  assignment  statement  which  moves  data  to  Y. 

This  methodology  makes  some  references  somewhat  cumbersome  at 
first  sight,  but  the  usage  is  normally  limited  to  several 
instances  in  a program  and  doesn’t  appear  to  create  a great 
burden  on  the  programmer. 

An  important  sidelight  to  the  use  of  DYNAMIC  arrays  was 
mentioned  previously,  that  being  the  fact  the  no  single  DYNAMIC 
array  element  need  be  related  to  any  other.  Using  DEFINE 
statements  one  can  establish  particular  relationships  between  an 
entire  DYNAMIC  array  and  the  object  that  its  independent 
element's  are  describing.  For  example 
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DIMENSION  A(100, 100, 100) 
DYNAMIC  F(6),B 

DEFINE  CFC 1 ) , AC  1 ,*,*)) 
DEFINE  (F(2) , A( 1 00 , * ,*) ) 
DEFINE  (F(3) ,A(*, 1 ,*)) 
DEFINE  (F(4) ,A(*, 100,*) ) 
DEFINE  (F(5 ) , A( * , * , 1 ) ) 
•DE-FINE  ( F-C6 ) , At * , * ,T00) ) 


B=F(4)*F(5) 

This  example  assigns  each  of  the  exterior  planes  of  the  mesh  to 
a different  F pointer.  The  arithmetic  expression  then  performs 
operations  on  the  planes  as  shown.  An  interesting  side  effect 
of  this  is  a very  powerful  statement: 

F=F**2 


wherein  all  subarrays  in  F are  processed  with  a single 
arithmetic  statement.. 


3. 2. 4..  6 SUBROUTINE  COMMUNICATION  OF  DYNAMIC  VARIABLES 

The  processing  of  DYNAMIC  variables  and  DYNAMIC  array  elements 
proceeds  interpretively  at  execution  time,  using  pointer 
information  in  a set  of  16  words  allocated  to  each  variable  or 
element.  Fourteen  words  contain  the  shape  of  each  of  7 
dimensions  (in  subarray  notation,  the  starting  index,  ending 
index,  and  increment);  the  remaining  two  words  contain  a count 
of  the  number  of  active  dimensions,  base  address  of  beginning  of 
subarray,  and  the  maximum  space  allocated  for  this  variable’s 
data  in  dynamic  space.  Thus,  when  a DYNAMIC  variable  appears  in 
COMMON  or  as  a parameter,  16  words  are  set  aside  for  each 
DYNAMIC  element.  Obviously,  such  elements  must  be  defined  as 
DYNAMIC  in  all  routines  using  them,  and  in  the  case  of  .COMMON 
block  transmission  of  data,  any  routine  having  a block  COMMON 
containing  a DYNAMIC  variable  in  it  must  define  the  variable  as 
DYNAMIC. 

DYNAMIC  variable  names  may  not  appear  in  EQUIVALENCE  statements. 
When  such  variables  appear  in  INPUT/OUTPUT  statements  they  point 
at  the  data  to  be  transmitted,  the  pointers  themselves  are  never 
output  or  input,  their  life  is  limited  to  the  dynamic  execution 
environment  of  the  operating  program.  Debugging  tools  permit 
the  programmer  to  examine  and  modify  the  shape  described  by  the 
DYNAMIC  variables,  however. 
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3.2.5  COMPILER  STRATEGY 


The  FMP  FORTRAN  compiler  will  consist  of  all  facilities  already 
expected  for  FORTRAN  compilers  for  large  scale  computers  in  the 
1970s  for  the  validation  and  evaluation  of  source  language 
statements,  generation  and  scheduling  of  object  .code,  and 
production  of  diagnostics  and  debugging  aids  for  the  user's 
programs.  In  addition,  the  compiler  must  be  able  to  accept  and 
evaluate  the  several  FMP  language  extensions  discussed  above. 

The  most  crucial  objectives  for  the  compiler  revolve  around  its 
ability  to  optimize  the  parallel  execution  of  the  Map  and  Vector 
Unit  instructions.  Illustrations  of  the  implicit  code  in  this 
report  have  assumed  that  the  compiler  would  be  able  to  generate 
the  appropriate  object  code -to  achieve  the  maximum  overlap-.  It 
has  been  further  stated  that  the  compiler  could  not  be  expected 
to  automatically  recognize  the  optimum  "slabbing"  and  create 
object  code  to  perform  the  "slabbing"  functions  without  the 
assistance  of  the  programmer.  To  that  end  the  language 
extensions  were  created  to  make  the  hierarchical  memory  and  data 
structures  visible  to  the  programmer  and  to  make  the  programmer 
responsible  for  the  management  of  data  mapping. 

In  exchange  for  this,  the  compiler  is  expected  to  organize  and 
schedule  the  code  and  to  maximize  machine  performance.  The 
first  part  of  the  recoded  STEP  routine  (appendix  D)  will  now  be 
examined  to  see  what  the  compiler  must  do  in  code  generation  and 
to  estimate  the  final  code  performance.  In  section  5 the  actual 
simulation  of  this  code  will  be  covered. 


3.2.5. 1 DO  LOOP  "GET  READY" 

Most  modern  compilers  generating  code  for  multi-register 
machines  are  capable  of  generating  "prefetch"  (load  from  memory) 
instructions  which  are  extracted  from  the  DO  loop.  These 
instructions  then  are  scheduled  to  be  issued  before  entering-  the 
DO  loop.  Then  at  the-  top  o-f  the  actual  executing  DO  loop 
another  set  of  fetch  operations  are  created  whose  intent  is  to 
load  the  data  for  the  next  pass  through  the  loop.  This 
technique  then  reduces  the  wait  time  required  while  scalar  data 
is  being  transferred  from  memory  to  the  high  speed  registers. 

The  counterpart  of  this  method  for  the  FMP  is  to  generate  the 
map  instructions  for  the  first  pass  through  the  loop,  then  at 
the  beginning  of  the  actual  loop  to  place  a set  of  map 
operations  for  data  to  be  used  on  the  next  pass  through  the 
loop.  For  example,  lines  930  through  960  in  appendix  D are  map 
operations  which  become  gather  record  functions  with  record 
lengths  of  LSL*KMAX  elements.  JMAX  records  are  gathered  for 
each  map  operation  to  form  the  vectors- that  are  processed  in  the 
balance  of  the  metric  computation  (in-line  XXM) . The  compiler 
will  generate  these  four  map  operations  with  the  destination 
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data  going  into  Main  Memory  at  the  locations  designated  by 
descriptors  called,  respectively,  RJ,  XKL,  YKL,  and  ZKL.  These 
instructions  will  be  scheduled  to  be  executed  ahead  of  the 
executable  DO  loop  that  begins  at  statement  830. 

In  addition,  another  set  of  map  operations  will  be  generated  and 
scheduled  after  statement  830.  These  map  operations  will 
perform  the  data  transfers  from  LEVEL  2 storage  for  the  next 
pass  through  the  DO  loop.  The  destination  areas  for  the  data 
from  these  map  operations  will  be  designated  by  a set  of 
auxiliary  pointers,  invisible  to  the  programmer  which  could  be 
called  RJ’,  XKL1,  YKL’,  and  XKL*.  At  the  end  of  a particular 
pass  through  the  loop,  these  pointers  are  exchanged  for  those 
which  point  to  data  areas  RJ,  XKL,  YKL,  and  XKL.  In  this  way, 
at  the  expense  of  a brief  exhange  of  pointer  data,  the  map 
operations  can  be  overlapped. 

Note  that  a total  of  14  slabs  of  data  have  to  be  moved  from 
Intermediate  Memory  to  Main  Memory,  but  there  is  no  data 
interdependence  among  these  various  slabs.  Thus  each  map 
operation  would  carry  a different  dependency  key  and  thus  each 
can  be  issued  immediately  to  the  Map  Unit,  up  to  the  extent  of 
the  queueing  buffer  in  that  unit.  Assume,  for  example,  that  the 
map  operation  at  line  940 

XKL  = X(*,L-1 :L+LSL+1 ,*> 

is  generated  with  a dependency  key  of  "01” . Instructions 
continue  to  be  issued  after  this  map  operation  until  the  first 
arithmetic  instruction  in  the  loop  (line  970)  is  encountered. 
Since  this  instruction  references  array  XKL  it  will  also  have  a 
dependency  key  of  "01"  imbedded  in  it.  This  instruction  would 
then  be  held  up  until  the  map  operation  with  that  .key  is 
complete.  The  next  arithmetic  operation  would  then  be  released 
to  the  Vector  Processor  and  the  process  continued.  In  this  case 
the  map  operation  at  line  950 

YKL  = Y (* , L-1 : L+LSL+1 , * ) 

might  carry  a dependency' key  of  ,,02".  Then  the  vector  operation 
using  YKL  (line  950)  would  be  held  up  until  the  corresponding 
map  operation  is  complete.  All  of  these  dependencies  would 
exist  only  during  the  first  pass  of  the  loop,  since  on 
subsequent  passes  the  data  would  already  have  been  mapped  in  by 
the  overlapped  map  instructions  to  RJ',  XKL1,  YKL 1 ....etc. 

With  this  form  of  code  generation  one  can  see  that  not  only  are 
almost  all  map  operations  overlapped,  but  due  to  the  action  of 
the  compiler  and  the  dependency  keys,  a good  deal  of  the 
prefetch  map  operations  have  some  of  their  execution  overlapped, 
so  that  loop  startup  is  minimized.  For  example,  consider  the 
previous  sequence.  Before  the  first  arithmetic  operation  can 
begin,  the  entire  slab  for  XKL  must  be  mapped  into  Main  Memory. 
This  gather  record  operation  will  require  JMAX*KMAX*(LSL+2) *3/8 
clock  cycles  to  complete.  Once  this  data  has  been  moved  the 
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next  map  operation  can  begin  for  the  YKL  slab.  Meanwhile  the 
subtract  and  multiply  operation 

XK  = (XKL (3 : KMAX+2 , 2: LSL+1 , * )-XKL ( 1 : KMAX, 2: LSL+1 , *) ) *DY2 

will  be  initiated.  The  time  required  for  this  instruction  would 
be 


JMAX*KMAX*LSL/8  clock  cycles. 

This  is  approximately  3 times  faster  than  the  concurrent  map 
operation,  thus  the  next  arithmetic  function: 

YK  = (YKL (3 : KMAX+2 , 2: LSL+1 , * )-YKL ( 1 : KMAX, 2: LSL+1 , * ) )DY2 

must  wait  the  completion  of  the  corresponding  map  operation. 

This  wait  for  the  dependency  key  to  become  free  continues  for 
statement  990  as  well.  Thus  on  the  second  through  the  last  time 
through  the  loop,  the  execution  of  statements  970  to  990 
requires 

3*JMAX*KMAX*LSL/8  cycles 

but  on  the  first  pass  (due  to  the  wait  for  data  from  LEVEL  2 
memory)  these  same  statements  require 

3*JMAX*KMAX*(LSL+2)*3/8+JMAX*KMAX*LSL/8  clock  cycles. 

The  statements  at  1000  through  1020  also  reference  the  already 
mapped  arrays  XKL,  YKL,  and  ZKL  and  thus  proceed  at  maximum 
rate.  Meanwhile  the  map  operation 

RJ  = Q ( 2 : KMAX-1 , L : LSL , 6 , * ) 

would  be  issued  with  a dependency  key  of,  say,  ”04",  and  be 
fully  overlapped  with  the  operations  at  1000  through  1020.  If 
everything  issues  without  hidden  conflicts,  the  statements  at 
1030  through  1050  should  be  executed  without  waiting  since  the 
data  RJ  should  be  completely  mapped  into  Main  Memory  by  the  time 
the  Vector  Processor  is  ready  to  execute  statement  130.  If  an 
approximation  of  three  vector  instructions  for  each  gather 
record  (map)  instruction  is  used,  assuming  equal  vector  lengths, 
it  can  then  be  seen  that  the  map  instruction  for 

RR  = 1 . /Q (2 : KMAX-1 , L: L+LSL , 1 , * ) 

will  have  been  completed  by  the  time  the  Vector  Processor  is 
ready  to  proceed  with  the  divide  operation.  The  same  is  true 
for  the  other  map  operations  used  to  gather  data  for  arithmetic 
in  statements  1150  through  1210.  It  is  possible  then  to  compute 
the  prefetch  overhead  for  the  first  pass  through  the  J sweep  and 
L sweep  loops.  This  becomes 

3*JMAX*KMAX* (LSL+2 )*3/8-(2* JMAX*KMAX*LSL) /8  = 

( 7*LSL+1 8 ) *JMAX*KMAX/8  clock  cycles,  loop  overhead. 


1-101 


The  important  thing  to  note  here  is  that  this,  overhead  only 
occurs  during  the  first  trip  through  the  first  and  third  loops, 
and  constitutes  the  only  visible  cost  of  performing  map 
operations  on  the  FMP;  it  results  from  the  compiler  scheduling 
map  instructions  so  that  the  set  of  map  data  required  for  the 
next  trip  is  available  before  being  required.  (The  overhead  for 
loop  2 is  discussed  in  the  next  paragraph.)  Thus  in  the  example, 
where  JMAX  = KMAX  = LMAX  is  used,  the  number  of  slabs  (or-  trips 
through  the  loops)  is  17-  The  overhead  shown  is  therefore 
amortized  over  all  of  these  trips  through  the  loop  to  complete 
the  sweep. 

For  the  K sweep  direction,  the  single-element  gather  operation 
dominates  the  loop  overhead  to  a much  greater  degree;  all  of  the 
operations  for  statements  2090  through  2330  are  completely 
constrained  by  their  corresponding  map  operations.  In  this  case 
the  compiler  will  generate  23  arithmetic  operations  plus  one 
divide,  with  the  divide  requiring  the  same  number  of  cycles  as 
two  arithmetic  operations.  Thus  the  arithmetic  time  would  be 
approximately 

25*KMAX*LMAX*JSL  clock  cycles 

while  the  Map  Unit,  in  performing  the  corresponding  9 gather 
element  operations,  would  take 

9*KMAX*LMAX*( JSL+2)*6  clock  cycles. 

The  overhead  for  the  first  pass  would  then  be 

54*KMAX*LMAX*(JSL+2)-25*KMAX*LMAX*JSL  = 
KMAX*LMAX*(29*JSL+108)  clock  cycles. 

Total  overhead  for  all  three  sweep  directions  then  becomes 

OVERHEAD  = KMAX*LMAX*(29*JSL+1 08)  + JMAX*KMAX* (7*LSL+1 8)/8 
+ JMAX*LMAX*(7*KSL+l8)/8  clock  cycles. 


3. 2. 5. 2 INFERRED  TRANSPOSE  OF  MATRIX 

Aside  from  the  judicious  scheduling  of  map  and  vector 
instructions,  the  compiler  has  one  additional  burden  placed  upon 
it.  The  compiler  must  be  able  to  evaluate  loop  8 (statements 
1900  through  2020)  and  generate  the  implied  matrix  transpose 
operations.  The  design  of  the  Map  Unit  permits  a single  map 
instruction  to  perform  the  necessary  transpose  process.  The 
compiler  must  be  able  to  discern  that  construct  from  loops  of 
the  type  shown  in  loop  8.  The  alternative  is  to  add  an 
extension  which  calls  for  the  explicit  transpose,  but  is 
unnecessary  in  this  case,  since  the  loop  describes  the  actions 
desired . 

With  these  simple  attributes  the  compiler  should  produce  code 
that  permits  the  FMP  to  achieve  its  maximum  rate. 
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3.3  COMPILER  FUNCTIONAL  CHARACTERISTICS 

Volume  III  contains  a preliminary  document  describing  the  FMP 
FORTRAN  language  and  its  usage.  In  an  attempt  to  match  certain 
language  features  to  the  FMP  architecture,  the  parallel  nature 
of  the  processing  was  made  visible  to  the  programmer  through  the 
DYNAMIC  and  DEFINE  statements' and  subarray  references.  The 
final  responsibility  for  matching  the  problem  statement  to  .the 
FMP  hardware  rests  with  the  language  processor  (compiler), 
however.  To  achieve  the  NASF  effectivity  goals,  the 
characteristics  of  the  compiler  will  have  to  be  specified  in 
detail  by  NASA.  The  following  are  suggested  items  that  should 
be  included  for  elaboration  in  any  NASF  compiler  specification,  • 
or  used  in  consideration  of  any  compiler  development  proposal. 


3.3.1  SOURCE  CODE 

The  FMP  compiler  must  be  able  to  accept  input,  audit,  and 
produce  object  code  or  diagnostics  for  the  complete  FMP  FORTRAN 
language  as  described  in  Volume  III.  This  language  is  based  on 
ANSI  FORTRAN  77,  with  extensions  that  Control  Data  feels  should 
appear  in  standard  compiler  products,  such  as  "hexadecimal”  data 
types,  plus  extensions  felt  necessary  for  the  FMP,  such  as 
subarray  notation. 

The  compiler  should  provide  a-  mode  wherein  all  statements  not 
conforming  exactly  to  ANSI  77  standards  will  cause  a warning 
message  to  be  printed.  In  addition,  the  compiler  may  also 
provide  a mode  of  operation  wherein  other  extensions  available 
in  compilers  operating  at  Ames  (from  DEC,  IBM.,  and  CDC)  might-  be 
tolerated  to  provide  internal  programming  compatibility  at  Ames. 
The  extent  of  these  Tatter  augmentations  is  unknown  at  this  time 
and  they  do  not  appear  in  the  language  description  currently 
called  FMP  FORTRAN. 

The  32/61)— bit  nature  of  the  Control  Data  FMP  is  accommodated  in 
two  ways:  through  use  of  the  HALF  PRECISION  data  type  and 
related  FORTRAN  supplied  functions,  and  through  the  use  of  a 
corapile-time  option  which  can  compile  an  entire  program  with 
full  precision  (normal  mode)  being  64-bit  or  32-bit.  In  this 
latter  case  (32-bit=full  precision)  HALF  PRECISION  is  considered 
32-bit  also  (since  there  is  no  16-bit  floating-point  format  in 
the  FMP) . 

The  compiler  must  provide  some  form  of  "escape  mechanism"  to 
allow  the  programmer  to  invoke  specific  machine-language 
instructions  (except  for  monitor  mode  instructions)  when  the 
occasion  warrants.  Although  normal  applications  programs  should 
not  have  to  use  such  a facility,  it  is  certain  that  some  general 
applications  modules  will  be  "fine-tuned"  by  clever  .programmers 
and  will  need  access  to  explicit  instruction  control.  There  are 
two  means  for  this: 
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a)  Standard  subroutine  or  function  CALL  statements  to 
machine-language  subroutines — this  is  the  conventional 
means  for  handling  this  problem,  however,  it  implies 
access  to  a machine-language  assembler  by  many 
programmers,  and  can  cause  havoc  in  a large  system 
environment.  A second  drawback  is  the  execution  time 
cost  involved  in  subroutine  CALL  sequences.  If  a- 
programmer  desires  to  invoke  but  a single  peculiar 
machin'e  function  in  his  code,  the  encumbrances  of 
writing  two  separate  modules  and  taking  on  the 
subroutine  switching  overhead  at  ’’object  time"  may  be 
excessive . 

b)  Imbedded,  one-line  machine-language  statements  in  the 
FORTRAN  source  program,  where  the  instruction  uses  the 
variable  names  and  statement  labels  assigned  by  the 
programmer  in  his  FORTRAN  code--this  approach  was  used 
in  the  STAR  FORTRAN  language  employing  the  special  call 
notation  Q8xxxx  where  xxxx  was  a predefined 
machine-language  instruction  mnemonic.  The  parameters 
of  the  CALL  were  in  fact  the  symbolic  entries 
representing  each  field  in  an  instruction.  The 
machine-language  instruction  thus  specified  was  then 
inserted  directly  into  the  FORTRAN  object  code  at  the 
point  where  it  was  invoked,  without  the  need  for  an 
object-time  call  and  return  sequence  to  a separate 
subroutine.  Although  this  has  become  a powerful  tool 
in  STAR-100  programming,  there  are  several  drawbacks: 

• Possible  misuse  of  machine  resources--a  programmer 
can  unwittingly  deadlock  the  FMP  if  allowed  complete 
control  over  such  instruction  fields  as  the  read  and 
write  dependency  keys.  By  permitting  access  to 
register  file  oriented  instructions,  the  programmer 
may  accidentally  overflow  the  available  registers: 
Both  of  these  difficulties  can  have  disastrous 
consequences . 

• Impeding  the  compiler  ability  to  generate  optimum 
object  code — injection  of  an  "alien"  instruction 
into  a FORTRAN  sequence  may  make  it  impossible  for 
the  compiler  to  automatically  vectorize  a particular 
code  sequence.  In  other  places  such  in-line 
invocation  may  disrupt  the  entire  instruction 
scheduling  process  for  scalar,  map  and  vector 
operations. 

c)  A third,  and  the  recommended,  alternative  is  to  provide 
a special  call  syntax  similar  to  the  Q8xxxx  described 
above,  but  limit  its  application  to  invoking  one  of  a 
set  of  predefined  "special  functions",  which  the  user 
can  specify  at  will,  but  which  are  imbedded  in  tables 
in  the  compiler,  and  totally  under  the  compiler 
control.  An  example  might  be 
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PROGRAM  DEMO 


DIMENSION  ACIOO, 100, 100) 
DYNAMIC  B 


B=Q8XP0S(A) 


which  would  perform  the  transpose  of  the  entire  mesh  A 
into  the  dynamic  space  B.  The  significant  thing  is 
that  the  method  of  implementation  of  the  XPOS  is  left 
to  the  compiler,  which  might  choose  to  use  the  map 
instruction,  a series  of  vector  operations,  or  even  a 
scalar  loop,  depending  on  what  else  the  compiler  was 
scheduling  in  the  FMP  at  that  time. 

The  FMP  compiler  structure  should  permit  the  introduction  of  new 
functions  of  the  Q8  type,  by  means  of  simple  table  entries  that 
can  be  augmented  as  the  user  desires.  The  compiler  would  .then 
attempt  the  in-line  generation  of  appropriate  code  sequences 
from  the  table  "skeletons". 

A list  of  desired  Q8  functions  has  not  been  assembled  at  this 
time  for  the  FMP,  since  it  has  sufficed,  so  far,  to  efficiently 
utilize  the  standard  constructs  and  FMP  extensions.  The 
capability  should  be  built  into  the  compiler,  however,  along 
with  a well  defined  procedure  for  requesting  and  specifying  the 
desired  Q8,  FMP  intrinsic  function. 

A most  significant  aspect  of  restricting  the  programmer's  access 
to  machine  functions  in  this  manner  is  that  all  FMP  programs 
could  be  prototyped  on  machines  other  than  the  FMP,  given  that 
scalar  sequences  are  implemented  for  Q8  calls. 


3.3.2  OBJECT  CODE 

Specification  of  a compiler's  object  code  by  a customer  is 
necessarily  two-dimensional:  volume  and  speed.  For 
small- to-medium  computer  systems  the  amount  of  object  code 
generated  for  a given  application  can  significantly  affect  the 
space  remaining  for  data.  Even  in  these  times  of  large, 
relatively  inexpensive  memory  this  is  a continuing  concern  of 
many  users.  In  the  case  of  the  FMP  this  is  no  longer  true. 
Considering  the  amount  of  available  Main  Memory  the  expected 
object  code  is  of  such  moderate  proportions  that  this  factor  is 
not  a consideration.  Instead,  on  the  FMP  the  concern  is  for: 

1)  maximization  of  concurrency, 

2)  use  of  memory  space  for  problem  data  and  temporary 
data . 
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To  these  issues  a compiler  specification  might  address  itself 
with  some  of  the  standard  verbage: 

• nThe  compiler  will  utilize  the  most  advanced  techniques 
for  generation  and  scheduling  of  object  code,  including 
common  subexpression  analysis,  invariant  code  removal, 
extended  basic  block  optimization,  and  global  analysis 
of  all  program  modules  submitted  to  -a  s-i-ngie 
-compilation . " 

• "The  compiler  will  minimize  the  amount  of  storage 
required  to  hold  temporary  vectors,  and  will  optimize 
the  utilization  of  the  critical  Main  Memory  resource." 

• "The  compiled  object  code  should  optimize  throughput  by 
maximizing  the  utilization  of  the  Vector  Units; 
optimization  for  other  units  is  secondary." 

• "The  compiler  should  attempt  to  ’automatically 
vectorize’  all  DO  loop  constructs  that  do  not  include 
IF,  GOTO,  CALL,  and  function  references,  regardless  of 
the  presence  of  ’recursion’  or  non-unity  increment 
values  for  the  DO  statement." 

• "An  option  will  be  provided  for  the  compiler  to  produce 
object  code  which  uses  entirely  scalar  sequences  in 
place  of  either  or  both  the  Vector  Units  and  Map 
Units." 

The  "God  and  Motherhood"  nature  of  the  preceding  statements 
makes  clear  their  purpose,  and  quite  probable  their  inclusion, 
in  any  compiler  requirement,  proposal,  and  specification.  What 
additional  characteristics  should  be  highlighted  for  the  FMP 
FORTRAN  compiler,  however? 


3.3.3  CONSTRUCTS 

The  compiler  must  be  required  to  recognize  certain  source 
language  constructs  and  from  them  derive  FMP  instructions.  The 
simple  DO  loop  construct  described  above  would  yield' 

DO  10  1=1 ,100 

10  A(I)=B(I)+C(I) 

a simple  vector  addition  of  the  two  arrays  B and  C in  Main 
Memory,  with  the  results  going  back  to  memory.  By  adding  a 
simple  statement 

DO  10  1=1 ,100 

C(I)=3. 14159 

10  A(I)=B(I)+C(I) 
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the  compiler  should  generate  two  concurrent  operations  - one  map 
operation  transferring  the  constant  to  Main  Memory  array  C and 
one  vector  add  operation.  Adding  yet  another  statement 

DO  10  1=1 ,100 

D(I ) =E (I )+F ( I ) 

C(I)=3. 14159 

10  A( I )=B( I )+C ( I ) 

the  compiler  should  produce  again  two  concurrent  instructions  - 
one  map  operation  to  broadcast  the  constant  to  the  array  C and  a 
vector  operation  to  perform  the  pair  of  vector  adds 
simultaneously.  A sequence  such  as 

DO  10  1=1 ,100 

D1(I)=E(I)*F(I) 

C(I)=3. 14159  ' 

10  A(I)=B(I)+C(I)*D1(I) 

would  also  produce  one  vector  instruction  and  one  map 
instruction,  with  the  vector  instruction  producing  the  result  D1 
which  is  stored  to  memory,  then  using  that  result  internally  to 
form  the  result  A,  all  in  one  pass  through  the  data. 

A more  complex  sequence  must  also  be  vectorized: 

J = 1 

DO  10  1=1 , 100 

IF(A(I) .GT.B(I))G0  TO  10 

C(J)=A(I) 

J=J+1 

10  CONTINUE 

This  construct  and  its  variants  should  produce  a map  instruction 
which  performs  a vector  compress  operation,  based  on  the  stated 
conditions.  Taking  a key  example  from  lines  1900  through  2020 
of  the  implicit  code  in  appendix  B:  - 

DO  8 K=1 , KM AX 

•R J ( 1 : LMAX-2 , 1 : JSL , K)=Q (K , 2 : LMAX-1  ,6, J:  J+JSM) 


8 


I 


t 


CONTINUE 
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This  sequence  must  produce  a single  map  operation  for  each 
dynamic  variable  RJ,  XJL,  YJL,  ZJL  which  performs  the  transpose 
of  the  arrays.  The  transpose  is  accomplished  by  a gather 
operation  which,  for  each  K,  moves  LMAX  and  JSL  columns  and  rows 
into  a new  alignment  in  memory.  (See  implicit  code-  writeup, 
Division  2.) 

An  example  of  the  various  forms  of  object  code  generated  by  an 
F-MP-oriented  compiler  are  given  in  appendix  D.  The  object  code 
lines  are  denoted  by  a comment  card  of  the  form: 


at 

V EC 

nn 

op1:op2:op3  VL=n1 ; WK=kn,  RK=km 

or 

C# 

MAP 

nn 

op4:mm  NR=m1 , RS=m2 , ST=m3/rn4 ; WK=km, 

RK=kn 

or 

at 

MAP 

nn 

op5:mm  CVL=m5,  VL=n1 ; WK=km,RK=kn 

where: 


nn 

abbreviated  symbolic  name  of  destination 
vector 

o p 1 , op2 , op3 

mnemonic  vector  operation  codes 

op4 

mnemonic  code  for  gather  (GTHR)  or  scatter 
( SCTR ) 

op5 

mnemonic  code  for  compress  (CMPS) 

n 1 

vector  length  in  elements 

km 

write  key 

kn 

read  key 

mm 

memory  option  MM=Main  Memory  to  Main  Memory 
IM=Intermediate  Memory  to 
Main  Memory 
MI=Main  Memory  to 

Intermediate  Memory 
8I=Backing  Store  to 
Intermediate  Memory 
IB=Intermedia.te  Memory  to 
Backing  Store 
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ml  total  number  of  records  moved 

m2  record  size  (for  gather  and  scatter) 

m3/m4  length  of  stride  in  each  stride  direction 

m5  control  vector  length 

The  read  and  write  keys  may  be  omitted;  a key  of  0 (no  key)  is 
assumed.  If  any  specification  field  other  than  read  or  write 
key  is  omitted,  a value  of  1 is  assumed.  Only  the  number  of 
open  fields  necessary  to  specify  the  required  function  should  be 
used,  e.g.,  MUL:ADD. 

The  comment  line  does  not  include  all  of  the  parameters  needed 
for  an  actual  machine  instruction,  such  as  addresses,  but  the 
code  shown  represents  enough  data  to  feed  the  FMP  simulators. 
Where  it  was  desired  to  show  the  operation  relationships  to 
source  code  symbols,  a pair  of  brackets  "<" , ">"  is  used  to 
surround  a brief  comment  about  the  data  used. 

When  a vector  operation  produces  two  outputs,  one  on  AW1  and  the 
other  on  AW2,  two  lines  are  used  as  in  lines  4370  through  4383 
of  appendix  D: 

U 1 3=B 1 ( 1 ,3)*L11 
U 1 4=B 1(1 ,4)*L11 

C 

C#  VEC  U13  MUL.  VL=SSL*SSMAX 

C*  $$$  U 1 4 MUL 

Note  that  C*  indicates  a continuation  of  the  previous  line,  and 
$$$  indicates  a dual  vector  operation.  Only  one  vector  length 
is  used  for  both  operations  and  must  appear  on  the  first  line.. 

The  code  sequences  shown  in  appendix  D do  not  include  any  of  the 
scalar  code,  since  the  concern  was  primarily  with  the  vector 
operation  rates  for  simulation  purposes.  Analysis  shows  that 
all-  scalar  operations  can  be  "buried”  under  the  vector  execution 
umbrella  IF  THE  COMPILER  SCHEDULES  THE  CODE  PROPERLY  (see 
section  5TT 

Only  one  small  instance  of  the- compiler  scheduling  of  vector 
operations  is  shown  and  this  is  critical  to  the  performance  of 
the  implicit  code.  The  execution  of  each  sweep  calculation  in 
STEP  is  bound  to  the  data  transfers  from  Intermediate  to  Main 
Memory.  The  compiler  must  be  able  to  automatically  generate  and 
schedule  "look-ahead"  or  "fetch— ahead"- code.  For  a scalar 
example  that  is  common 
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DO  10  1=1 , 100 

D=A(I)**2+B(I)**2 

E(I)=D*(A(I)-B(I)) 

10  CONTINUE 

most  modern  compilers  for  multi-register  machines  will  generate 
a code  sequence  that  looks  like: 

FETCH  AC  1 ) to  register  A 
FETCH  B C 1 ) to  register  B 
1 = 1 


LOOP:  FETCH  A(I+1)  to  register  A’ 

FETCH  B(I+2)  to  register  B* 
MULT  A* A to  T1 
MULT  B*B  to  T2 
ADD  T1+T2  to  D 
SUB  A-B  to  T1 
MULT  D*T1  to  E 
STORE  E to  E(I) 

MOVE  A*  to  A 
MOVE  B'  to  B 
ADD  1=1+1 
TEST 

GOTO  LOOP  IF  NOT  DONE 


This  object  code  is  necessitated  by  the  time  required  in  many 
machines  to  bring  data  from  memory  to  a register.  The 
”prefetching”  operation  helps  overlap  the  time  to  get  the  next 
data  from  memory  with  the  calculations  on  the  current  data.  At 
the  end  of  the  computations  the  new  data  are  then  transmitted 
between  registers  (a  very  fast  operation  when  compared  with 
memory  transfers) . 

In  a similar  manner  vectors  can  be  "premapped”  so  that 
arithmetic  can  be  overlapped  with. the  next  map  operation.  This 
is  shown  in  lines  821  through  829  of  appendix  D where  the  first 
set  of  vectors  is  mapped  into  Main  Memory  before  the  loop 
starting  at  line  830  is  initiated. 


In  the  main,  the  remaining  ’’pseudo  object  code”  shown  is  left  in 
place  with  the  corresponding  FORTRAN  source  statements,  with 
small  exceptions  necessitated  by  the  need  to  combine  some 
operations  into  a single  Vector  Unit  function.  As  an  example, 
the  object  code  for  line  1150  is  shown  after  line  1160,  at  line 
1162,  and  is  combined  with  the  functions  invoked  by  line  1160 
and  shown  at  line  1163 


1150  U=RR*Q2 

1160  V=RR*Q3 

1161  C 

1162  C#  VEC  U MUL  VL= (KMAX-2 ) *LSL* ( JMAX-2 ) 

1163  C*  $$$  V MUL 
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In  actual  practice  the  compiler  must  be  able  to  shuffle  the 
generated  code  around  to  assure  maximum  utilization  of  the 
Vector  Units. 

The  compiler  must  provide  an  object  code  listing  on  request,  and 
some  method  must  be  provided  to  key  generated  code  to  the  source 
language  statements  that  generate  the  code.  This  is  essential 
because  more  than  one  source  statement  may  be  combined  into  a 
single  vector  operation  and  then  that  instruction  rescheduled 
elsewhere  in  the  instruction  stream. 


3.3.4  PERFORMANCE 

The  general  statement  that  a compiler  "must  produce  the  most 
efficient  object  code  possible”  is  not  adequate  to  meet  the 
needs  of  the  NASF  procurement.  Some  definitive  and  quantitative 
measures  must  be  established  and  specified  as  minimum  object 
code  performance  goals.  The  obvious  performance  goal  is  to  have 
the  compiler  and  FMP  hardware  marriage  produce  an  object  code 
execution  speed  that  can  complete  specified  metrics  in  a certain 
amount  of  time.  The  compiler,  however,  must  be  disengaged  from 
the  speed  of  the  hardware  if  it  is  to  be  properly  specified  as  a 
separate,  procurable  entity.  Other  measures  that  suggest 
themselves  are  percentage  utilization  of  Vector  Unit  capacity, 
percentage  used  of  available  concurrency  and  percentage 
vectorization . Each  of  these  have  some  deficiencies.  A 
compiler  can  generate  a totally  vectorized  code  which  is 
terribly  inefficient  in  use  of-  the  hardware.  A compiler  can 
also  generate  unneeded  vector  arithmetic  (failing,  for  example, 
to  eliminate  common  subexpressions)  which  keeps  the  Vector  Units 
100%  busy  to  no  benefit  of  the  actual  problem  solution. 

Finally,  in  a similar  manner,  the  compiler  can  generate  three 
inefficient  streams  of  code,  one  each  for  the  Map,  Scalar  and 
Vector  Units  which  provide  100%  concurrency. 

The  best  alternative  seems  to  be  specifying  one  or  more  of  the 
performance  metrics  (implicit,  explicit,  spectral  weather,  and 
finite  difference  weather  codes)  as  a measure  of  the  compiler 
capability.  Given  a coding  of  any  of  these  metrics  in  the  FMP 
FORTRAN  dialect  specified  for  the  NASF,  the  object  code  must 
execute  an  entire  solution  without  I/O  calls  in  no  greater  than 
120%  of  the  theoretical  execution  time  for  the  program.  This 
means  that  a method  must  be  derived  for  computing  the 
theoretical  time  allowed. 

If -the  peak  rate  of  the  FMP  hardware  is  1.5  gigaflops,  then  one 
can  count  all  arithmetic  computations  in  a metric  and  determine 
a best  time  for  execution  for  a given  set  of  parameters.  Where 
data  dependencies  exist  in  the  problem  solution  (as  in  the 
method  of  characteristics)  some  canonical  value  and  associated 
parameters  could  be  chosen  for  the  total  arithmetic  load. 
Functions  such  as  SQRT,  SIN,  COS...  would  each  be  assigned  an 
equivalent  floating-point  operation  count.  For  example,  if  a 
time  is  established  in  this  manner  for  the  subroutine  BTRI  in 
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STEP,  for  three  calls  and  mesh  dimensions  of  1 00x1  OOx.1 00 , this 
might  produce  a theoretical  execution  time  of  5.148  minutes. 

This  approach  on  the  part  of  the  NASF  customer  is  no  different 
than  the  method  for  setting  performance  goals  for  standard 
product  compiler  improvements.  A particular  benchmark  becomes 
crucial  to  a sale  and  the  FORTRAN  developers  are  launched- 
forthwith  to  achieve  some  real  timing  goal  for  that  benchmark. 

To  .be  useful-,  meaningful-  segments  of  production  codes  must  be 
used  for  this  measurement.  Note  that  the  use  of  I/O  was 
excluded,  an  attempt  to  decouple  the  object  code  performance 
objectives  from  the  operatng  system  performance  objectives.  Thee 
is  some  danger  in  this,  since  a good  deal  of  execution  time  is 
spent  in  that  grey  area  called  FORTRAN  object-time  I/O  routines 
which  are  not  generated  by  the  compiler  nor  claimed  by  the 
operating  system  developers. 

Instead  the  costs  of  I/O  interface  should  be  measured  separately 
by  creating  a heavily  I/O-oriented  benchmark  with  all  desired 
forms  of  I/O-formatted,  unformatted  and  direct-and  establishing 
some  measure  of  performance.  This  measure  should  include 
achieving  at  least  90%  of  the  total  I/O  hardware  bandwidth 
available,  while  reducing  the  execution  rate  of  a fixed  number 
of  map  and  vector  operations  by  no  more  than  5%  (due  either  to 
memory  interference  or  object  library  inefficiencies,  or  to 
object  time  call  sequences) . 


3.3.5  OBJECT  LIBRARY 

The  object  code  just  discussed  is  that  directly  produced  by  the 
compiler  from  input  source  code.  In  order  for  the  program  to 
execute  however,  an  array  of  support  software' is  needed  to 
provide  the  interface  to  the  operating  system,  1/0  system, 
exception  condition  hardware  (data  flag  branch  register),  and 
the  myriad  of  intrinsic  and  external  FORTRAN  functions  such  as 
ALOG,  MAX,  MIN,  and  the  like.  A compiler  specification  must 
include  these  items  and  should  establish  some  minimum  measurable 
goals  for  these  system  components. 

Generally,  object  library  routines  will  be  manually  fine-tuned 
using  either  the  Q8xxxx  FORTRAN  extensions,  a system  programming 
language  such  as  PASCAL  or  (ugh!)  assembly  language.  They  should 
therefore  make  the  best  use  of  the  machine  resources  of  any 
object  modules  executed  in  the  NASF.  For  the  FMP,  four 
considerations  should  be  taken  into  account  in  evaluating  object 
library  strategies: 

1)  The  compiler  should  be  able  to  optionally  incorporate 
any  of  the  FORTRAN  supplied  routines  (see  Volume  III, 
FMP  FORTRAN)  in-line-,  to  permit  better  overlap  and 
optimization  of  functional  unit  usage. 
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2)  When  incorporated  in  subroutine  form,  a maximum 
allowable  code  space  should  be  established  for  each 
named  routine. 

3)  A minimum  performance  level  should  be  established  in 
terms  of  machine  cycles  per  input  argument. 

4)  A set  of  standard  tests  for  function  correctness  should 
be  established  and  verified  on  existing  hardware 
systems.  Thus  a set  of  end-case  operands  would  be  set 
up  for  routines  like  ALOG  and  its  vector  counterpart. 

All  object  library  routines  should  use  the  data  flag  branch 
register  for  error  flagging  and  the  FORTRAN  supplied  data  flag 
manager  routine  for  reporting  errors  to  the  user.  When  vector 
functions  encounter  errors,  an  automatic  system  for  rescanning 
the  results  to  find  the  out-of-bounds  results  and  corresponding 
input  routines  should  be  invoked  so  that  the  user  is  relieved 
from  the  burden  of  analysis. 

The  FORMAT,  INPUT,  OUTPUT,  and  DEVICE  status  routines  usually 
involve  a great  deal  of  software  "chit-chat”  which  implies  many 
CALL  sequence  executions  wherein  no  other  useful  work  can  be 
done.  The  FMP  will  utilize  Backing  Store  to  perform  pseudo  I/O 
for  the  normal  production  job.  This  will  be  accomplished  with 
the  concurrent  Map  Unit,  and  implied  data  moves  using  LEVEL 
statements.  With  the  exception  of  FORMAT  processing  then,  these 
I/O  functions  should  be  performed  by  in-line  instruction 
sequences  which  can  be  scheduled  among  useful  vector  arithmetic 
operations . 

Formatted  Input/Output  should  be  either  performed  on-line  (that 
is  by  a function  call  to  the  cracking  routines  in  the  object 
code  sequence)  or  off-line  (transmission  of.  data,  pointers,  and 
the  raw  format  to  the  Backing  Store  where  it  is  blocked  up  and 
sent  to  another  processor  in  the  system  to  be  formatted  in  final 
form).  In  either  case,  formatted  Input/Output  requires  further 
design  analysis. 


3.3.6  LINKING  AND  LOADING 

All  programs  submitted  to  the  FMP  for  execution  will  be 
delivered  in  a complete,  prelinked  and  loaded  binary  form.  This 
block-loaded  form  is  called  a "controllee  file"  and  contains,  in 
additio.n  to  the  complete  set  of  binary  modules,  tables 
describing  the  regions  in  each  level  of  memory  assigned  to  the 
program,  beginning  location  of  the  Main  Memory,  Intermediate 
Memory.,  and  Backing  Store  dynamic  spaces. 

Integral  to  the  compiling  system  then,  must  be  a "loader" 
function  which  can  gather  separately  compiled  modules  with 
selected  obj.ect  library  modules  from  a variety  of  inventory 
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caches  (files),  link  the  data  and  entry  points  together, 
establish  local  and  global  working  spaces  for  each  module,  and 
generate  initializing  information  for  preset  data  areas. 

The  loader  performance  is  only  critical  when  a large  number  of 
" compile-and-execute"  jobs  are  passing  through  the  system 
(during  debugging  of  new  applications,  for  example).  Of  much 
more  concern  is  the  existence  of  extensive  diagnostics  which  the 
user  can  readily  understand  both  at  load  time  and  execution 
time'.  In  case  of  catastrophic  failures  (where  even  the  best 
program  goes  berserk)  some  degree  of  audit  trail  should  be 
salvageable  from  the  contents  of  the  various  memories  to  help 
the  programmer  find  his  error.  Each  module  should  therefore 
contain,  in  addition  to  the  executable  binary  code  and  data 
constants,  a series  of  tables  which  are  used  by  the  loader  to 
line  and  map  routines  into  the  controllee  file,  and  which  may 
electively  be  retained  in  the  binary  controllee  file  as  an  aid 
to  debugging  or  error  recovery. 

An  example  of  this  type  of  system  called  the  MODULE  HEADER 
TABLE,  is  shown  on  page  E-3  (appendix  E) . Each  table  begins 
with  the  ASCII  name  of  the  table,  in  this  case  "MODULE" , that 
can  easily  be  found  on  visual  scan  of  an  ASCII  dump,  or  by 
vector  scanning  memory.  The  module  length  in  64— bit  words  is 
found  in  word  2 of  this  table.  In  word  3 appears  the  ASCII  name 
of  the  module,  usually  the  PROGRAM,  FUNCTION  or  SUBROUTINE  name. 

A time  stamp  for  when  the  module  was  created  appears  in  word  4 
and  the  processor  name  and  version  number  can  be  found  in  word 
5.  The  header  points  to'a  series  of  additional  tables 
(diagrammed  in  the  remainder  of  appendix  E),  which  supply  loader 
information  and  debugging  information  for  object-time  debugging. 

Most  of  the  table  functions  are  self-explanatory  in  their  name 
(a  tutorial  on  the  loader  methodology  will  not  be  given  here), 
but  two  tables  deserve  a little  discussion  --  Interpretive  Data 
Initialization  and  Relocation  tables. 

There  are  two  techniques  for  performing  data  initialization  and 
initialization  of  relocation  pointers  at  LOAD  time.  When 
dynamic  loading  is  called  for  (load  occurs  at  time  of  CALL)  as 
might  occur  in  some  system  routines,  the  initialization  is  done 
by  a sequence  of  generated  objet  code  which  is  caled  the 
"executable  data  initialization  or  relocation  table".  For 
normal  static  loading  of  FMP  applications  programs,  the 
complexity  of  some  initialization  is  better  handled  by  the 
loader  interpreting  table  entries  one  at  a time.  Thus  constants 
and  relocation  pointers  can  be  scatter-gunned  around  memory  by 
the  loader,  or  loaded  in  nice  sequential  streams,  depending  on 
the  needs  of  the  code.  Relocation  pointers  are  addresses  in  the 
code  (relative  to  the  beginning  of  the- code)  where  non-relative 
branches  have  occurred  or  pointers  into  the  register  file  where 
static  addresses  point  to  code  segments  or  local  data 
quantities.  These  must  be  updated  as  the  module  is  placed  in 
memory  following  another  module,  and  all  addresses  thus 
relativized . 
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The  structure  given  here  permits  all  of  the  object  code  to  be 
aglutinized  in  a lump  with  only  the  two-word  header  '’CODE" 
intervening  between  modules.  The  remainder  of  the  tables  may  be 
kept  in  the  Backing  Store,  with  the  CODE  ponter  set  to  point  to 
its  particular  MODULE  header  in  Backing  Store.  In  the  event  of 
error  conditions  or  debugging  actions,  the  system  can  either 
locate  appropriate  tables  by  referring  backward  from  the  linked 
code,  or  locate  the  linked  code  by  searching  Backing  Store  for 
the  MODULE  header  and  then  using  the  memory  pointers  to  locate 
the  needed  information.  This  is  particularly  suited  to  the  use 
of  the  DEBUG  symbol  table  and  SYMBOL  definition  table  which  are 
used  by  the  symbolic  FORTRAN  DEBUG  option  on  the  FMP.  With  this 
option,  execution  can  be  breakpointed  (halted  on  a particular 
form  of  reference  to  a symbol,  including  execution  of  labeled 
FORTRAN  source  statements),  data  can  be  examined  or  replaced, 
and  formatted  dumps  with  symbolic  names  produced.  This  feature 
is  considered  essential  in  a system  as  large  as  the  NASF  and 
must  be  integral  to  the  design  of  the  compiler  and  loading  and 
linking  system.  Figure  E-1  (appendix  E)  shows  a mixed 
hexadecimal  and  ASCII  dump  of  a small  controllee  file  to 
demonstrate  how  the  tables  are  usually  allocated  in  memory  and 
how  data  can  be  located  by  the  programmer  or  an  analyzer 
program. 


3-3-7  OPERATIONAL  CHARACTERISTICS 

Another  aspect  of  the  compiler  must  be  specified  in  the  NASF 
procurement.  This  involves  the  execution  character istics  of  the 
compiler  itself,  its  performance,  code  space,  and  compiling 
features . 

This  leads  to  one  of  the  most  difficult  questions  that  has  been 
addressed  by  the  series  of  NASF  studies,  whereabout  should  lie 
and  labor  the  compiler? 

The  problem  with  situating  the  compiler  within  the  NASF  is  one 
of  strategy  and  not  of  technical  capability.  The  following 
discussion  will  reexamine  some  of  the  issues  that  have  been 
discussed  in  previous  reports,  and  in  meetings  with  Ames 
personnel . 

1)  The  development  of  a complex  and  yet  stable  compiler, 
plus  supporting  object  library,  is  a lengthy  and 
consuming  process.  If  at  all  possible,  an  existing 
compiling  system  should  be  used  on  which  to  base  the 
FMP  FORTRAN  in  order  to  reduce  cost,  schedule,  and 
reliability  risks. 

2)  Until  an  FMP  is  operational,  potential  users  and 
software  developers  will  have  to  rely  on  existing 
computer  systems  to  support  programming,  compiling,  and 
debugging.  The  availability  of  a complete  FMP  FORTRAN 
system  on  these  "interim”  mainframes  is  highly 
desirable  for  the  total  NASF  success. 
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3)  Compiling  on  a front-end  processor  intead  of  the  FMP 
might  be  a more  effective  use  of  the  FMP,  which  is  of 
course  designed  first  and  foremost  for  high  speed 
arithmetic  processing.  Certainly  the  turnaround  of 
compiler  detected  errors  and  code  listings  would  be 
quicker  when  processed  by  the  front-end  processor  than 
the  FMP. 

4)  The  specific  architecture  and  model  of  the  front-end 
processors  may  not  be  under  the  control  of  the  FMP 
developer  and  may  not  be  identified  until  late  in  the 
development  cycle.  It  can  be  expected  that  the  number 
and  qualities  of  the  front-end  processors  may  change 
over  the  lifetime  of  the  FMP.  Certainly  NASA  may  want 
the  option  of  varying  those  parameters  of  the  system  as 
interactive  workloads  and  front-end  software  features 
change . 

5)  "Cross-compilers",  which  operate  on  one  machine 
compiling  for  another  machine,  have  suffered  in  the 
past  from  the  need  for  two  machines  with  which  to 
experiment  and  develop  highly  refined  optimization 
tecniques  that  become  ever  more  important  in  the 
maturing  years  of  the  target  system. 

At  the  outset  of  this  projct  Control  Data  recommended  that  the 
compiler  reside  on  the  front-end  processors  and  produce  code  for 
the  FMP  (also  called  the  back-end  processor) . In  addition,  it 
was  suggested  that  the  loading  and  linking  function  also  reside 
with  the  compiler.  As  time  passed  it  became  obvious  that  the 
development  cycle  for  such  a compiler  pointed  toward  use  of  an 
existing  Control  Data  compiler  for  either  STAR  or  7600  as  a base 
compiler.  The  STAR- compiler  recommended  itself  because  it  was 
structured  to  support  expanded  automatic  vectorization  as  well 
as  vector  extensions.  One  of  the  reasons  for  dabbling  with  the 
STAR  language  as  the  FMP  language  arose  from  this  rationale. 
Retention  of  the  STAR  scalar  instructions,  addressing  schemes 
and  I/O  interface  schemes  gave  weight  to  the  possibility  that 
the  STAR  compiler  could  be  used  in  toto,  with  only  minor 
extensions  being  necessary.  When  the  FMP  FORTRAN  (described  in 
Volume  III)  finally  became  firm,  RADL  realized  that  major 
changes  would  have  to  be  made  in  any  compiler  to  meet  the 
requirements  for  the  FMP.  The  "almost"  free  solution  of 
compiling  on  the  FMP  for  the  FMP  became  no  longer  free  and  the 
"sitting"  suggestion  had  to  be  reopened  for  the  compiler  again. 

In  the  opinion  of  RADL,  the  optimum  solution  would  be  the 
development  of  a new  compiler,  written" in  a higher-level’ 
language  such  as  PASCAL,  designed  to  reside  on  more  than  one 
processor,  and  capable  of  cross-compiling.  The  compiler  should 
produce  object  code  which  can  be  debugged  and  tested  on  either 
the  front-end  processor  or  the  FMP.  Full  optimization  for  the 
multiple  functional  units  would  be  a selectable  optiorr  for  the 
compiler.  This  would  provide  the  flexibility  of  having  compile 
capablity  on  all  processors  in  the  system.  Another  advantage 
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of  this  would  be  reducing  the  need  for  FMP  availability  during 
its  early  checkout  period  to  assist  in  the  object  code 
generation  checkout. 

t 

This  optimum  solution  has,  as  stated  often,  the  risks  of  meeting 
the  system  implementation  schedule. 

Compiler  performance  should  also  be  specified  in  terms  of 
compile  rates,  at  least  those  of  the  CYBER  7600  or  CYBER  200 
family  compilers.  Statements  per  minute  for  an  average  FORTRAN 
program  and  for  fully  optimized  output  from  the  implicit  and 
explicit  metrics  should  be  required  of  any  proposed  compiler . - 

Compiler  space  is. not  a problem  for  the  FMP  but  could  present 
difficulties  when  used  on  a heavily  loaded  front-end  processor . 
The  compiler  should.  be  limited  to  a fixed  residence  no  greater 
than  that  which  the  current  7600  and  other  large  scale  systems 
FORTRAN  compilers  require  today. 

The  FMP  compiler  can  easily  rely  on  current  compiler 
technologies,  with  some  special  emphasis  placed  on  automatic 
vectorization , sceduling  of  vectors,  and  allocation  of  vector 
storage.  The  only  factor  in  the  compiler  development  that  needs 
to  be  given  considerable  attention  is  that  of  the  sheer  manhours 
and  elapsed  time  to  provide  the  exposure  and.  testing  of  the 
compiler  and  object,  code  prior  to  the  NASF  going  into  full 
production  status. 


3.4  OPERATING  SYSTEM  FUNCTIONAL  CHARACTERISTICS 


3.4.1  GENERAL 

In  preceding  studies  the  NASF  system  concept  and  structure  were 
described  and  diagrammed.  The  network  of  hardware  that  has 
finally  been  arrived  at  as  an  evolution  from  those  studies  is 
shown  in  figures  20  and  21.  Three  fundamental  ideas  have  formed 
the  basis  for  the  NASF  configuration  and  system  software 
analysis. 

1)  Distribution  of  function  among  a number  of  possibly 
dissimilar  processors  — A philosophy- governing  this 
distribution  is  summarized  in  the  precepts: 

a)  definition  of  system  resource  entities; 

b)  management  of  system  resources  by  intelligent 
(programmable)  processors; 

c)  proximity  of  resource  and  its  managers  should  be 
as  close  as  possible,  physically,  electronically, 
logically; 
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Figure  20.  NASF  Support  Processing  System 
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Figure  21 


NASF  Trunk  Network  with  FMP 


d)  resource  management  functions  should  be  moved 
outward  from  a central  computer  toward  the 
resource ; 

e)  ’’form  follows  function"; 

f)  processors  with  resource  management  functions  have 
only  knowledge  (i.e.,  tables,  pointers,  etc.)  of 
resources  directly  attached-; 

g)  each  processor  possesses  a unique  catalog  of 
functions  it  can  perform,  all  others  are  passed  on; 

h)  message  discipline; 

i)  common  sense  and  reality  must  dominate  any  design. 


2)  Flexible  interconnection  of  all  components  — Using  a 
new  Control  Data  system  called  Loosely  Coupled  Network 
(LCN),  all  system  components  can  be  connected  to  each 
other  using  high-bandwidth,  bit-serial  data  trunks 
which  can  extend  for  great  distances. 

3)  A "computational  engine"  or  highly  intelligent 
arithmetic  element  in  the  total  system  — The  FMP 
should  behave  as  a "slave  processor"  and  not  perform 
any  system  control  operations.  Its  internal  software 

• operating  system  must  be  absolutely  minimal  in  order 
that : 

a)  FMP  software  development  be  minimized; 

b)  other  system  software  have  a minimum  number  of 
interfaces  to  cope  with  in  the  FMP; 

c)  the  time  needed  in  the  FMP  for  system  interaction 
processing  can  be  reduced. 

This  last  principle  implies  that  the  NASF  will  rely  almost 
entirely  on  the  operating  system  and  system  support  software 
available  on  the  front-end  processors  for  management  of  the 
system  resources.  According  to  the  "distributed  system 
philosophy"  the  resources  owned  by  the  FMP  are  its  functional 
units  (Map  Unit  and  Vector  Unit)  and  its  storage  (Main  Memory, 
Intermediate  Memory,  and  Backing  Store). 

The  FMP  as  a single  entity  is  itself  a resource  that  must  be 
managed  by  some  other  processor.  The  management  function  has 
been  delegated  to  the  front-end  processors  or  support  processing 
system  (hereafter  called  the  SPS).  The  requirements  for  an 
operating  system  within  the  FMP  are  thus  reduced  to  bare 
necessities.  The  extent  of  these  necessities  can  be  derived 
from  an  examination  of  how  the  FMP  will  be  used  in  the  NASF 
environment . 
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3.4.2  JOB  FLOW 


The  following  provides  a recount  of  the  probable  sequence  of 
events  that  will  be  involved  in  the  processing  of  a flow  model 
solution. 

1)  The  user  will,  from  an  interactive  terminal  or  batch 
input,  initiate  the  execution  -of  a model  solution. 

2)  The  SPS  will  select  the  already  compiled,  linked,  and 
loaded  solution  program  from  the  file  system. 

3)  The  contiguous  binary  stream  representing  the  program 
and  its  locally  defined  data  will  be  transferred  to 

. the  819  disks  common  to  the  FMP  and  the- SPS. 

4)  The  initial  mesh  data  which  has  also  been  biding  its 
time  on  a disk  or  archival  file  belonging  to  the  SPS, 
will  then  be-  selected  and  moved  to  a block  of  storage 
on  the  819. 

5)  External  data  and  parameters  other  than  the  mesh 
information  will  be  transferred  to  another  set  of 
blocks  on  the  819s. 

6)  A "message”  (see  reference  2)  will  be  transmitted  to 
the  FMP  from  the  SPS  via  the  LCN  and  thence  stored  in 
the  Intermediate  Memory  of  the  FMP.  This  message  will 
contain  the  job  description  and  pointers  to  physical 
disk  addresses  for  each  of  the  job  components,  binary 
program,  mesh  data,  parameters,  and  location  where 
output  data  is  to  be  transferred. 

7)  The  FMP  monitor,  in  its  own  good  time  (when  in  idle 
loop,  or  when  performing  other  system  tasks) , will 
discover  the  message  in  its  queue. 

8)  The  monitor  will  then  schedule  the  transfer  of  all 
input  data  into  either  the  Backing  Store  (if  present) 
or  the  Intermediate  Memory. 

9)  Each  transfer  is  directed  by  a message  to  an  attached 
PDC  (Programmable  Device  Controller,  the  key  LCN 
interface  hardware) . 

10)  When  the  transfer  is  complete,  the  PDC  responds  to  the 
message. 

11)  When  the  transfer  is  complete,  the  monitor  marks  the 
job  "ready  for  execution" . 

12)  When  the  FMP  becomes  free,  the  monitor  scans  its  list 
of  jobs  "ready"  and  selects  the  highest  priority  job 
to  begin  execution. 
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13)  The  new  job  is  rolled  in  by  moving  its  binary  code 
into  Main  Memory. 

14)  Program  execution  is  begun. 

15)  The  FORTRAN  program  then  reads  it  parameters,  which  is 

accomplished  by  map  operations  from  Intermediate- 
Memory.  ' 

16)  Input  meshes  are  also  read  in  this  manner,  wherein  an 
unformatted  FORTRAN  READ  operation  becomes  a simple 
set  of  block  moves  of  data  from  Backing  Store  to 
either  Intermediate  or  Main  Memory. 

17)  Processing  is  begun. 

18)  Formatted  I/O  is  performed  by  subroutines  in  the 
object  program,  and  data  is  transferred  by  means  of 
map  operations  to  buffers  that  are  "psuedo-f iles" . 

That  is,  there  are  no  file  OPEN,  or  CLOSE  operations, 
nor  I/O  activity  implied  by  READ  and  WRITE 
operations. 

19)  Upon  program  termination,  PAUSE  or  interrupt  all  data 
in  the  Backing  Store  and  Intermediate  Memory  buffers 
is  rolled  out  to  fixed  positions  (described  by  the 
initial  job  initiation  message)  to  the  819  disks. 

20)  ‘ The  SPS  then  associates  each  of  the  rolled  out  areas 

with  actual  SPS  managed  files  to  which  the  data  is 
then  moved . 

21)  The  SPS  processes  the  remaining  job  commands,  either 
from  the  terminal  or  batch  job,  in  order  to  reduce  and 
display  the  result  data,  and  to  catalog  or  archive  all 
other  data  that  is  to  be  retained. 

In  this  scenario  the  819  disks,  the  Backing  Store,  and 
Intermediate  Memory  all  exhibit  one  common  characteristic  — 
they  are  managed  by  physical  address  and  stream  lengths,  not  as 
files.  Thus  from  a system  standpoint,  each  storage  medium  is 
interchangeable  with  any  other  (albeit  at  significant 
performance  differences) . This  makes  it  possible  for  the  system 
to  actually  operate  without  two  of  the  three  bulk  memories.  In 
a minimum  configuration  for  example,  with  constraints  on  problem 
sizes,  the  PDC  connected  to  the  FMP  could  intercept  data  storage 
and  retrieval  messages  meant  for  the  nonexistent  819s  and 
convert  them  to  block  addresses  and  lengths  in  the  Intermediate 
Memory. 

This  is  possible  only  if  the  819s  are  limited  to  containing 
transient  data  at  all  times  and  not  permanent  files.  The 
advantage  of  such  a scheme  is  obvious  not  only  for  purposes  of 
degraded  operation  (while  maintenance  is  being  performed  on  the 
819  or  Backing  Store,  for  example)  but  can  be  of  great 
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value  during  early  system  exercises  where  all  the  hardware  need 
not  be  present.  A phased  installation  of  the  NASF  is  thus 
facilitated . 


3.4.3  INTERACTIVE  OR  BATCH? 

The  large  amount  of  data  usually  ascribed  to  FMP  jobs  means  that 
a single  job  roll-in/roll-out  could  require  a significant  amount 
of  time.  Interactive  debugging  usually  implies  many  such 
roll-in/roll-out  actions  during  the  execution  of  a job.  Should 
such  activity  be  permitted  in  the  FMP  and  supported  by  operating 
system  functions?  Despite  the  inherent  inefficiencies  that  may 
arise  from  such  a strategy,  the  potential  impact  on  a high 
priority  project  that  may  need  interactive  debugging  facilities 
could  be  enormous  if  this  capability  is  not  present.  The 
"roll-in/roll-out"  facility  that  must  be  provided  in  the  FMP 
operating  system  to  support  the  staging  of  data  into  and  out  of 
the  FMP,  can  be  used  also  to  perform  ’’checkpoint-restart" 
recovery  dumps  of  the  data  base  and  code,  when  required  by  the 
system  or  the  programmer.  In  addition,  this  same  facility  could 
serve  in  special  circumstances  to  "roll-out"  an  executing  job, 
when  interrupted  by  the  user,  so  that  key  problem  parameters  can 
be  examined  to  determine  if  things  are  "going  right"  before 
allowing  the  job  to  consume  a great  deal  of  CPU  time.  Although 
the  FMP  is  best  used  in  a batch-mode  only  form,  there  must  be 
some  form  of  "escape-valve"  permitted  for  privileged  users 
(whose  privileges  are  determined  by  the  system-managing  SPS)  to 
STOP,  PAUSE,  and  CONTINUE  executing  jobs.  These  privileges  can 
have  a serious  effect  on  overall  FMP  efficiency,  and  therefore 
must  not  be  granted  lightly  by  the  system  manager  or  the 
operating  system.  The  need  for  this  capability  cannot  be 
overstated,  based  on  the  experience  of  the  many  large  STAR-100 
and  7600  user  communities  who  make  such  demands  of  what  would 
otherwise  be  a basically  "batch- job?*-  environment. 

Another  technique  related  to  this  question  is  that  of  a 
production  job  making  intermediate  result  "dumps"  which  are  to 
be  sent  to  an  output  device  (terminal,  plotter*;  or  printer)  for 
evaluation  while  the  program  is  still  in  progress.  Although  the 
system  load  model  provided  by  Ames  makes  no  mention  of  this 
requirement,  experience  with  large  code  indicates  that  such  a 
capability  is  highly  recommended  in  the  production  NASF. 


3.4.4  EXTERNAL  CHARACTERISTICS 

Given  the  basic  requirements  for  job  flow,  what  are  the 
necessary  external  features  as  seen  by. the  user  from  his 
terminal,  and  by  the  programmer  in  his  FORTRAN  code? 
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First,  an  aspect  of  the  external  characteristics  of  the  FMP 
operating  system  must  be  discussed  — COMPATIBILITY.  Since  the 
majority  of  human  interactions  with  the  NASF  will  be  with  and 
through  the  SPS  and  other  processors  (such  as  graphics 
subsystems) , the  bulk  of  operating  systems  commands  will  be 
directed  at  those  processors.  If  a function  is  to  be  invoked  on 
the  FMP,  it  should  be  described  by  the  identical  syntax  and 
format  as  used  on  the  SPS.  More  importantly,  the  relationship 
of  such  functions  to  the  system  should  be  the  same.  What  does 
this  mean-?  The  Control  Data  CYBER  operating  systems  are  "file 
oriented".  That  is,  data  files  — raw  binary  and  executable 
binary  data  — are  all  retained  in  streams  called  ’’files" . To 
invoke  a system  function  dr  initiate  execution  of  program 
involves  the  naming-  of  the  file  containing  the  desired  program.. 
That  file  is  opened,  brought  into  memory  and  execution  is 
commenced.  At  the  conclusion  of  execution,  the  space  used  by 
that  file  is  overlaid  by  the  next  file  invoked. 

Management  of  program  entities  is  thus  through  the-  same  file 
mechanism  as  is  used  for  data.  A control  statement,  whether 
submitted  via  a job  control  card,  terminal  or  an  executing 
program,  thus  consists  of  a file  name  followed  by  appropriate 
parameters.  If  the  FMP  is  to  be  front-ended  by  CYBER  machines 
then,  this  same  relationship  and  command  format  should  be 
maintained.  The  user  then  has  only  one  set  of  concepts  to 
assimilate  and  one  set  of  formats  with  which  to  deal.  The 
problem  with  this  is  that  two  effects  can  destroy  what  seems  to 
be  a nice  principle: 

a)  A NASA  choice  of  some  other  SPS,  at  the  outset  or 
later  in  the  project,  which  has  a completely  different 
philosophy  of  operating  system  relationships  and 
commands . 

b)  A change  in  operating  system  philosophy  for  the  same 
equipment,  a possibility,  quite  frankly,  demonstrated 
more  than  adequately  by  the  two  Control  Data  operating 
systems  for  the  CYBER  family,  NOS  and  NOS/BE. 

Although  both  are  basically  "file  oriented",  one 
adheres  to  that  philosophy  more  than  the  other. 

Only  one  solution  can  prevent  the  FMP  operating  system  from 
being  bent  in  the  winds  of  change  throughout  its  lifetime.  That 
solution  consists  of  eliminating  completely  any  ability  in  the 
FMP  for  interpreting  commands  from  the  job  stream,  or  to  have 
any  knowledge  of  resources  outside  itself  (no  concept  of  disk 
storage  or  SPS  hardware  permitted  to  invade  the  FMP).  This  is 
consistent  with  the  distributed  system  philosophy,  but  not 
consistent  with  current  system  practices  as,  for  example,  in  the 
"Symmetric  Link"  facility  of  NOS/BE.  In  this  case,  the  back-end 
processor  (such  as  the  FMP)  must  "drag  out"  its  own  data  base 
from  the  SPS  through  commands  such  as  GETPF  (get  permanent 
file). 
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All  command  language  processing  is  then  performed  by  the  SPS. 

The  FMP  and  its  819s  appear  to  the  rest  of  the  system  as  a block 
of  memory  to  be  loaded  with  data  and  programs  and  told  to 
execute  a specified  program.  Further,  the  user  has  access  to 
FMP  resources  when  executing  on  the  FMP  and  thus  the  only 
ex.ternal  interfaces  on  the  FMP  are  the  FORTRAN  language 
constructs  given  in  the  FMP  FORTRAN  Manual  (Volume  III).  The 
I/O  statements,  PAUSE  and  END,  provide  implicit  linkage  with  the 
operating  system  but  no  others  Will  be  countenanced. 


3.4.5  INTERNAL  CHARACTERISTICS 

Having  dismissed  the  subject  of  external  characteristics  so 
quickly,  it  would  seem  that  the  FMP  operating  system  has 
vanished'  completely.  There  are,  unfortunately,  sufficient  FMP 
management  tasks  that  must  be  handled  by  the  FMP  to  absorb  the 
energies  of  a good  sized  development  team-  The  FMP  hardware 
•contains  some  design  features  which  are  intended  at  once  to 
constrain  the  creative  expansiveness  of  such  developers  while 
also  assisting  their  efforts  in  simplification. 

a)  Fixed  memory  allocations  — One  65,536-word  block  of 
Memory  (beginning  at  address  0)  and  one  65,536-word 
block  of  Intermediate  Memory  (beginning  at  Intermediate 
Memory  address  0)  are  set  aside  for  the  operating 
system.  Job  mode  programs  cannot  access  either  of 
these  two  areas  for  program  execution  or  data  access. 
Monitor  mode  execution  of  code  is  limited  to  the  65,636 
words  of  Main  Memory,  while  the  monitor  is  permitted 
access  to  all  memories  in  their  entirety. 

b)  Single  interrupt  — • The  FMP  can  be  interrupted  having 
control  transferred  to  the  monitor  by  any  one  of  the 
external  PDC  attachments  to  the  I/O  ports.  While  in 
monitor  mode  no  other  interrupts  will  be  permitted. 

c)  In  the  event  that  a Backing  Store  block  that  is 
addressed  is  not  present  (because  of  reduced 
configuration)  or  the  Backing  Store  is  totally  absent, 
an  interrupt  occurs,  causing  monitor  to  deal  with  the 
attempted  Swap  operation.  If  a. Main  Memory  to 
Intermediate  Memory  map  operation  references  addresses 
not  present  in  the  Intermediate  Memory,  a similar 
interrupt  will  occur.  This  provides  a limited  form  of 
"virtual"  memory  to  the  FMP  operation. 

d)  Monitor  can  establish  upper  and  lower  boundaries  for 
data  access  to  Intermediate  Memory  and  Backing  Store  by 
the  executing  program. 
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e)  PDCs  have  universal  access  to  Intermediate  Memory  with 
the  following  restrictions: 

• Once  FMP  execution  has  begun  after  a deadstart 
condition,  the  PDC  cannot  access  addresses  0 through 
32,767  in  Intermediate  Memory.  This  is  to  prevent 
inadvertent  destruction  of  the  monitor  kernel. 

• In  deadstart  mode  the  PDCs  can  write  everywhere  in 
Intermediate  Memory. 

f)  All  addresses  in  user  programs  for  Intermediate  and 
Backing  Store  Memory  are  relative  to  address  0 of  the 
user  space  which  begins  at  address  ILBOUNDS 
(intermediate  lower  bounds)  for  Intermediate  Memory  and 
BLBOUNDS  in  the  Backing  Store.  Both  bounds  are 
assigned  by  the  operating  system  when  the  job  is 
scheduled  for  execution.  User  addresses  in  Main  Memory 
start  at  address  65,536  and  are  not  relative. 

g)  Any  attempt  to  read  or  write  outside  the  prescribed 
bounds  will  result  in  an  immediate  interrupt  to  the 
monitor . 


3.4.6  MANAGEMENT  TASKS 

There  are  a number  of  tasks  which  must  be  undertaken  solely  by 
the  FMP  itself  because  it  is  in  the  best  position,  or  only 
position,  to  make  judgments  about  resource  utilization. 


3.4.6. 1 STORAGE 

a)  Allocation  of  one,  two,  or  three  job  buffers  in 
Intermediate  Memory  to  permit  the  overlap  of  one  job 
execution  with  the  swap-out  of  another  — the 
allocation  scheme  must  consider  job  size,  priority,  and 
amount  of  swapping  required. 

b)  Allocation  (and  setting  of  bounds  register)  of 
Intermediate  Memory  for  the  job  going  into  execution. 

c)  Presetting  of  Main  Memory  and  Intermediate  Memory  to 
canonical  NULLs  (for  security  reasons  as  well  as 
execution  consistency) . 

d)  Allocation  of  Backing  Store  Memory  (and  establishing 
operating  bounds  for  the  job  in  process)  if  that 
element  is  present. 

e)  Processing  of  illegal  storage  access  requests  by  the 
user  program,  determining  the  nature  of  the  request  and 
transmitting  the  error  information  to  the  job's  error 
processor . 
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f)  Processing  "storage  not  present”  interrupts,  moving  data 
from  alternate  storage  devices  as  required  by  the 
hardware  instruction  (map)  that  caused  the  interrupt. 

g)  Degrading  the  software  storage  maps  when  directed  by  the 
maintenance  function  to  reduce  memory  so  that 
maintenance  actions  can  be  performed  on-line. 


3. 4. 6. 2 PROCESSING 


a)  Entering  JOB  requests  into  internal  .queue  in  priority 
order . 

b)  Aborting  an  executing  job  or  deleting  from  queue  on 
demand  from  front-end  processors. 

c)  Scheduling  and  execution  of  on-line  "confidence” 
diagnostics . 

d)  Initiation  of  job. 

e)  Processing  of  job  calls  for  systems  services. 

1)  Transmit  message  to  SPS. 

2)  Explicit  Input/Output. 

3)  Wait  on  external  message. 

4)  .Terminate  job  normally. 

5)  Abnormal  job  termination. 

6)  Initiate  checkpoint/restart. 

7)  Request  job  accounting  information  (date,  time, 
time  on , etc  . ) . 

8)  Increase  or  decrease  storage  allocation  in  any 
level  memory. 


f)  Trigger  job  roll-out  by  PDCs . 

g)  Linking  FORTRAN  "pseudo  files"  (TAPE  1 , TAPE2 , etc.)  with 
physical  memory  wspace  in.  Backing  Store,  Intermediate 
Memory,  or  local  RMS  (rotating  mass  storage) . 

h)  Executing  special  system  functions  requested  by  the 
Maintenance  Control  Unit.. 

i)  Transmitting  job  statistical  data  to  Maintenance  Control 
Unit. 

j)  Transmitting  exceptional  condition  status  to  Maintenance 
Control  Unit. 

k)  Management,  reorganization',  and  culling  of  processing 
queues . 

l)  Deadstart  system  initialization. 
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The  fairly  long  list  given  here  is  not  •as.  complicated  as  it 
might  seem  since,  in  most  instances,  the  FMP  monitor  consists  of 
a set  of  privileged  subroutines  each  of  which  is  called  either 
by  the  job  in  execution  or  by  a job  operating  in  the  SPS.  Thus 
the  SPS  message  "ADD  JOB" , invokes  a single  monitor  mode 
subroutine  in.  the  FMP  which  inserts  the  incoming  job  into  the 
execution  queue,  with  appropriate  11  time  stamps'*  and  then  returns 
control  to  the  executing  job.  * "Time  slicing"  is  not  permitted 
for  FMP  jobs,  and  roll-in  and  roll-out  are  controlled  by  the  SPS 
program  called  the  FMP  manager.  The  FMP  manager  has-  a- - total- 
responsibility  for  the  optimization  of  use  of  the  FMP  resource. 
Decisions  regarding  how  much  memory  at  each  level  to  allocate 
for  a given  job  are  done  in  the  SPS.  The  allocation  message  is 
then  sent  to  the  FMP  monitor  which  performs  the  actual 
allocation  act  (by  entering  data  in  appropriate  tables  and 
setting  internal  registers  when  required) . So  the  functions 
listed  above  are,  in  fact,  very  primitive  "slave"  operations 
which  behave  more  like  "drivers"  of  the  hardware  switches  and 
registers  in  the  FMP. 

The  FMP  "Operating  System"  therefore  exists  as  a job  on  the 
front-end  processors,  which  make  all  decisions  about  allocation 
and  scheduling.  This  makes  it  possible  to  begin  development  of- 
the  FMP  Operating  System  on  an  SPS  as  soon  as  the  final 
configuration  has  been  decided  upon.  The  FMP  manager  would 
definitely  be  written  in  a higher  level  language  (such  as 
PASCAL)  and  would  operate  as  a normal  user  job  on  the  SPS.  It 
would  deal  -with  the  FMP  as  if  it  were  a piece  of  peripheral 
equipment,  whose  controllable  functions  were  only  slightly  more 
complex  than  start,  stop,  transfer  data,  report  errors. 


3.4.7  PERFORMANCE  CRITERIA 

In  the  specification  of  an  operating  system  for  the  FMP,  some 
measurement  points  and  criteria  should  be  required  for  degree  of 
functionality,  storage  utilization  efficiency,  and  processing 
efficiency.  RADL  has  already  forced  a limitation  on  space 
utilized  by  the  FMP  Operating  System  itself  by  hardware  design 
"fiat".  Some  similar  criteria  - should  be  established  for  the  FMP 
manager  on  the  front-end  processors.  Maximum  memory  residency 
on  the  SPSs  should  be  limited  to  32K  SPS  words,  so  that 
sufficient  space  remains  for  the  other  system  management 
functions  on  those  machines.  The  FMP  manager  must  have  its 
critical  kernels  resident  at  all  times  in-  the  FMP  to  handle  the 
processing  load  expected  and  to  meet  the  response  time 
requirements. 
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If  a full  queue  of  completely  vectorized  jobs  in  the  FMP  is 
assumed,  then  it  can  be  required  that  the  FMP  monitor  perform 
the  servicing  of  such  a job  stream  with  no  more  cost  than  a 5% 
burden  of  additional  elapsed  (wall  clock)  time  over  the 
theoretical  time  to  complete  the  same  set  of  fully  vectorized  • 
codes.  This  means  that  the  Vector  Units  would  be  kept  busy  95% 
of  the  total  machine  hours  (assuming  the  compiler  has  100% 
vectorized'  the  codes)  in  an  operating  day. 

Minimum  system  response  times  for  functions  performed  outside 
the  FMP  can  be  established  for  each  message  type  listed  above. 
For  example,  in  the  case  of  “explicit  I/O"  requests,  the  time 
taken  away  from  the  job  for  the  monitor  processing  of  the  I/O 
message  must  be  limited  to  some  infinitesmal  period  like  20 
microseconds  (during  which  time  the  Vector  Units  could  have  been 
performing  up  to  60,000  calculations  except  for  the 
interruption).  Further,  the  time  required  to  service  the 
request  must  not  be  greater  than  5%  of  the  theoretical  service, 
time.  As  an  example,  take  a disk  read  request  of'  65,000  words 
from  the  819.  Given  the  average  latency  and  transfer  times,  the 
opeating  system  additional  time  for  the  transfer  cannot  exceed 
5%  of  the  theoretical  total  of  latency  and  transfer  time. 

In  the  same  way,  criteria  can  be  established  for  response  times 
from  the  SPS,  maintenance  units,  and  other  attached  processors, 
for  each  function  listed  in  the  preceding  discussion. 

Finally,  the  FMP  manager  must  be  bounded  by  minimum  performance 
standards.  Assuming  an  available  backlog  of  jobs  flowing  into 
the  system,  the  FMP  manager  must  keep  a minimum  queue  of  3 to  5 
jobs  built  in  the  FMP  (which  then  of  course,  must  guarantee 
efficient  processing  of  that  queue).  Response  times  for 
servicing  of  critical  messages-,  such  as  interactive  display  and 
interrogation  of  the  FMP  functions,  must  be  established  to  keep 
the  FMP  fully  busy.  If  the  FMP  manager. in  the  SPS  cannot 
respond  quickly  enough,  then  it  must  at  last  respond  to  the  FMP 
with  a "roll-out",  function  so  that  the  FMP  can  begin  arithmetic 
processing  as  soon  as  possible. 

Final  specification  of  these  attributes  of  the  FMP  Operating 
System  can  be  done  as  more  experimentation  with  the  system 
models  and  Ames  load  data  point  out  the  critical  spots  in  the 
network  that  must  be  controlled  during  system  development.  It 
is  expected  that  work  with  these  models  will  continue  into 
subsequent  phases  of  this  project  so  that  a sufficiently 
rigorous  specification  can  be  produced  to  guide  the 
implementation  of  the  FMP  Operating  System. 
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4.0  FLOW  MODEL  PROCESSOR  SIMULATION  AND  ANALYSIS 


4.1  FMP  SIMULATOR  • 

Before  construction  of  an  FMP  can  begin,  Control  Data  believes 
that  the  entire  assemblage  must  be  designed  and'  simulated  at  the 
fundamental  circuit  level.  This  simulation  would  necessarily 
involve  the  execution  of  diagnostic  sequences  (to  determine 
functional  adequacy)  and  the  execution  of  key  portions  of  the 
performance  metrics  (to  determine  the  execution  speed).  The 
design  process  for  Control  Data  super-computers  also  includes 
simulation  as  a tool  from  the  very  inception  of  the  effort 
through  actual  machine  checkout.  Even  with  the  most  powerful 
computers  available  on  which  to  execute  the  simulators,  the 
number  of  logic  events  simulated  consumes  more  computer  time 
than  is  reasonably  available. 

It  becomes  necessary  then  to  establish  a hierarchy  of  simulation 
systems,  each  one  capable  of  a certain  level  of  analysis  of  the 
design  and  FMP  machine  operation.  The  three  levels  identified 
are : 

a)  "Gate  level”  — This  simulator  is  used  by  the  hardware 

designers  to  check  the  behavior  of  the  actual  circuits 
and  wired  interconnections  with  a very  high  resolution. 
In  most  design  cases  the  resolution  of  the  signal 
analysis  is  carried  out  to  50-picosecond  intervals. 

This  level  is  used  to  verify  design  before  parts  are 
ordered  for  the  machine. 

b)  "Block-  level"  — This  simulator  represents  aggregates  of 

several  individual  components  as  "blocks"  of  logic,  for 
example,  an  adder  block  capable  of  performing  a two’s 
complement  add  operation  on  input  operand  pairs  of  16, 
32,  or  64  bits,  or  any  increment  between  16  and  64 
bits.  These  blocks  are  then  interconnected  by  the 
designer  with  the  same  diagnostic  and  performance 
sequences  then  run  through  them  as  for  the  gate  level. 
The  execution  speed  on  current  machines  for  this  level 
can  be  10-60  times  faster  than  the  gate  level,  thus 
larger  assemblages  of  logic  can  be  simulated  over 
longer  sequences  of  input  instructions.  The  processing 
of  a single  vector  operation  on  the  FMP,  however,  still 
consumes  extraordinary  amounts  of  time  even  at  this 
level  of  simulation. 

c)  "Functional  block"  — Many  events  in  the  preceding 

simulation-  occur  at  the  picosecond  or  nanosecond  level. 
When  one  tries  to  examine  the.  behavior  of  an  overall 
performance  metric  though,  the  effects  of  memory  data 
transfers  become  important  to  the  final  performance 
estimates  of  such  a machine.  In  a simple  case,  the 
moving  of  a single  slab  of  data  from  Intermediate  to 
Main  Memory  using  the  Map  Unit  requires  (for  the 
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implicit  example)  that  65,536  words  be  moved  at  the 
rate  of  eight  words  every  clock  cycle  for  a total  of 
8192  clock  cycles.  Performing  analysis  of  this 
activity  at  the  block  or  gate  level  is  prohibitively 
expensive  in  terms  of  simulator  time,  and  submerges  all 
of  the  more  refined  circuit  and  block  analysis,  as  far 
as  elapsed  time  is  concerned.  A third  level  model  is 
then  desired  which  allows  interaction  of  all  functional 
units  to  be  modeled  at  less  resolution  for  longer 
periods  of  time. 

This  approach  is  quite  similar  to  the  actual  design  process. 
First  the  architect  draws  out  the  overall  scheme  and  fragments 
it  into  logically  separable  entities  (functional  blocks).  Then 
estimates  are  made  as  to  the  performance  and  functional 
requirements  of  each  entity.  A computerized  model  is  then 
developed  for  each  entity,  and  the  lot  subjected  to  some  form  of 
programmatic  analysis.  If  the  architecture  holds  up,  the  design 
is  initiated.  Each  entity  is  then  broken  down  into  a set  of 
constituent  logical  blocks  and  this  breakdown  modeled  to 
determine  if  all  data  and  control  paths  are  in  place  and  timed 
to  the  nearest  clock  cycle.  Finally,  each  logic  block  is  broken 
down  to  circuit  elements  and  coax  and  foil  interconnect,  and-  the 
entire  assembly  is  ,,tuned',  to  the  nearest  50-100  picoseconds. 
Manufacturing  documentation  is  then  produced  automatically  from 
all  levels  of  the  simulation;  the  parts  design  is  extracted  from 
the  gate  level  model,  put  on  tape,  and  shipped  to  electronics 
vendors.  The  machine  is  then  constructed. 

At  each  stage  of  the  design,  the  higher  level  model  is  verified 
against  the  continually  refined,  more  detailed  models.  For 
example,  the  functional  model  of  a vector  unit  would  have  a 
sequence  of  vector  instructions  put  through  it  and  timings  would 
be  analyzed.  As  the  block  level  design  is  completed  for  a 
vector  unit  the  identical  sequence-is  put  through  the  more 
detailed  model  .and  the  timings  compared  to  the  higher  level 
model.  Where  necessary,  the  higher  level  model  is  adjusted  to 
reflect  the  actual  design.  This  is  carried  out  once  again  as 
the  gate  level  design  and  simulation  is  carried  out,  with  the 
more  gross  timings  of  each  higher  level  model  matched  against 
the  actual  hardware  design.  In  a well  structured  design 
environment,  all  three  models  use  the  same  interfaces,  control 
cards,  and  file  structures  so  that  a "mixed”  simulation  might  be 
executed  where  the  memory  system  and  scalar  unit  can  be 
simulated  at  the  functional  level,  the  vector  stream  control  at 
the  block  level,  and  a single  vector  unit  simulated  at  the  gate 
level.  This  interchangeability  permits  the  designers  and 
potential  users  to  evaluate  various  critical  networks  and 
performance  questions  without  having  to  run  the  entire  ensemble 
at  the  gate  level. 
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To  carry  out  the  FMP  design  for  this  study  period  of  the  NASF 
project  to  a degree  that  ensured  the  buildability  and 
performance  of  the  system,  all  three  levels  of  design  had  to  be 
explored  to  some  degree.  A modest  amount  of  gate  level  design 
was  undertaken  to  answer  some  design  questions  not  addressed  by 
LSI  design  already  in  progress  at  Control  Data.  A good  deal  of 
block  level  simulation  was  done  for  the  memory  system  (since 
that  is  the  crucial  element  in  the  FMP  bandwidth)  and  the  vec.tor 
units  (since  they  perform  the  useful  work  and  take  the  major 
amount  of  logic  in  the  FMP).  To  the  extent  that  detailed  design 
has  been  carried  out,  the  block  model  represents  the  actual 
behavior  of  the  FMP  to  the  clock  cycle  level.  This  model  was 
first  developed  for  Ames  in  the  second  study  period  of  this 
project  and  reflected  the  design  of  the  FMP  at  that  time. 
Throughout  the  summer  of  1978  this  model  became  known  as  the 
"Detailed  FMP  Simulator".  As  the  FMP  architecture  changed  from 
that  described  in  reference  2,  the  simulator  underwent  major 
changes,  some  structural  and  some  procedural  (input,  output,  and 
use) . Versions  of  this  simulator  have  been  delivered  for  -use  by 
Ames,  and  with  this  report  (Volume  IV)  the  simulator  is  formally 
delivered  to  NASA. 

The  functional  level  simulator  has  been  called  the  FMP 
High-Level  Simulator,  and  is  documented  in  Division  4 of  Volume 
IV  of  this  report.  For  significantly  long  code  sequences  where 
vectors  are  long  (1.00  or  longer),  the  high-level  simulator  is  an 
accurate  representation  of  the  current  FMP  design.  Where  short 
vectors  or  single  element  map  operations  are  to  be  analyzed,  the 
detailed  simulator  is  required  since  only  at  that  level  are 
specific  memory  conflicts  modeled.  The  current  detailed  model 
has  not  been  completely  verified  against  the  latest  design 
changes  in  the  Map  .Unit  so  it  is  possible  for  short  vector  data 
to  be  as  much  as  10%  in  error  from  what  the  actual  hardware 
would  yield. 


4.2  BENCHMARKS  FOR  THIS  STUDY 

Divisions  2,  3,  and  4 of  this  volume  contain  discussions  of  the 
four  codes  submitted  by  Ames  to  Control  Data  as  metrics  around 
which  the  FMP  was  to  be  designed  and  analyzed.  The 
characteristics  of  the  implicit  code — the  number  of  computations 
to  be  performed  can  be  estimated  exactly  for  any  set  of  input 
parameters- the  code  appears  to  be  the  best  candidate  for  long 
term  production  on  the  FMP — have  led  it  to  be  the  primary  focus 
for  all  hardware  and  software  design  efforts.  In  previous 
reports  the  characteristics  of  this  code  have  been  explored  and 
the  computational  behavior  analyzed  to  help  direct  FMP  design 
efforts. 

The  weather  codes  were  of  great  interest  at  the  outset  of  this 
phase  since  the  question  had  been  raised  as  to  the  suitability 
of  the  FMP  to  broader  applications  areas.  It  was  determined 
that  for  the  two  weather  codes  provided,  the  original  FMP design 
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(as  documented  in  reference  2)  would  not  achieve  the  1000 
megaflop  goal  for  the  FMP. 

Four  different  approaches  were  used  to  pursue  the  benchmark 
analysis.  This  was  due,  in  part,  to  the  experience  and 
specialties  of  the  staff  working  on  the  codes,  and  in  part 
because  of  the  very  nature  of  the  investigation. 

1 . The  implicit  .code  became,  the  central  theme  of  the  FMP 
design  and  the  language  and  compiler  specifications.  As 
a change  was  introduced  in  the  hardware  or  software, 
the  implicit  code,  or  a portion  thereof,  was  used  to 
test  the  idea.  The  simulators  were  first  exercised 
with  the  implicit  code.  A decision  was  made  to  treat 
the  entire  implicit  code  with  respect  to  language, 
compiling,  and  simulation  in  order  to  ensure  that  some 
design  feature  was  not  overlooked. 

2.  The  explicit  code  employs  solution  techniques  which' 
differ  in  some  ways  from  those  of  the  implicit  code. 

The  methodology  requires  convergence  of  the  solution,  a 
data-dependent  feature  which  controls  the  number  of 
calculations,  unlike  the  fixed  number  that  are  inherent 
in  the  implicit  code.  Apparent  recursion  relationships 
impact  the  amount  of  vectorization  that  can  be  readily 
attained  without  severely -restructuring  the  code.  It 
was  decided  to  turn  over  this  evaluation  to  a new  group 
of  analysts  and  have  them  attack  the  code  without 
predisposition  toward  the  FMP.  They  were  instructed  to 
vectorize  the  code  as  directly  as  possible  from  the 

. statements  in  the  original  source  language,  and  make 
the  code  operable  on  the  STAR-100.  The  conversion  of 
the  STAR-100  code  could  then  be  done  fairly 
mechanically  to  the  FMP,  since  the  primary  functions 
used  would  be  map  and  arithmetic  operations-.  The 
answers  obtained  on  the  STAR-100  would  be  checked  to 
make  sure  the  algorithm  conversion  was  "complete”  and 
then  simulator  input  for  the  FMP  detailed  and 
high-level  models  could  be  transliterated  from  the  STAR 
code. 

With  the-  limited  analyst  resources  available,  it  was 
decided  to  tackle  only  the  LX,  LYC,  LYI , and  CHARAC 
routines  for  the  purposes  of  recoding  and  simulation. 
The  LX  and  LYI  subroutines  were  vectorized  in  a direct 
manner,  rewriting  local  DO  loops  only.  All  data  passed 
between  these  subroutines  and  the  remainder  of  the  code 
was  left  in  the  original  scalar  allocation  so  that  the 
code  could  be  -run  with  and  without  each  of  the 
vectorized  codes,  on  the  STAR-100,  to  obtain  correct 
answers.  This  technique  led  to  object  code  for  the  FMP 
with  small  vector  lengths,  compared  to  the  implicit 
code,  but  the  exercise  did  provide  a vehicle  for 
testing  the  performance  that  could  be  gaind  by  making 
simple  first-attempts  at  vectorization.  The 
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TURBDA  subroutine  and  LYC  turned  out  to  be  vectorizable 
without  much  thought  or  effort  but  CHARAC  proved  to  be 
the  challenge  to  vectorization . Initial  efforts  at 
converting  the  code  left  most  operations  still  in 
scalar  mode  with  a performance  of  only  27  megaflops. 

By  calling  CHARAC  from  LYC  and  LZC  to  process  all  data 
in  the  I-K  plane  at  one  time,  CHARAC  could  be 
vectorized  using- the  control  vector  capabilities  of  the 
FMP.  -Estimation  of  performance  could'  not  be  done  using 
the  simulators,  because  the  degree  of  sparsity  of  the 
permissive  bits  in  the  control  vectors  has  a direct 
impact  on  the  gigaflop  rate.  Making  the  assumption 
that  for  every  pass  of  three  there  was  a reduction  by 
half  in  the  active  calls  to  CHARAC  (represented  by  the 
control  vector) , performance  of  CHARAC  was  estimated 
for  the  100x100x100  mesh  case  at  about  200  megaflops. 

3.  The  spectral  code  which  originated  at  MIT  was  analyzed 
to  determine  what  special  machine  characteristics  were 
needed  to  make  it  meet  the  performance  goals  of  the 
NASF.  The  FFT  and  SPCFOR  (Legendre  transform) 
routines  were  chosen  from  the  spectral  code  for 
simulation  because  they  constitute  the  computational 
heart  of  the  spectral  code.  These  routines  were 
vectorized  quite  directly  and  simulated  for  two  problem 
sizes.  The  first  problem,  with  relatively  low 
resolution,  represented  25  layers  of  atmosphere,  6 wave 
numbers  and  15  latitudes.  A more  reasonable  form  for 
useful  production  work,  in  the  opinion  of  CDC 
investigators,  would  consist  of  48  layers,  21  wave 
numbers  and  53  latitudes.  The  two  cases  were  simulated 
to  show  the  range  of  performance  for  this  code. 

4.  A shortcut  method  of  handling  the  GISS  model  was  tried 
in  order  to  reduce  the  resource  commitments  for  this 
secondary  phase  of  the  project.  The  GISS  model  had 
been  fully  vectorized  for  the  STAR-100  and  a copy  of 
that  model  was  available  to  us.  If  necessary  any 
segment  of  that  code  could  be  transliterated  from  STAR 
to  the  FMP  and  the  results  subjected  to  either  detailed 
or  high-level  simulation.  Instead,  Computer  Sciences 
Corporation  (CSC)  continued  to  project  FMP  performance 
on  the  codes  using  the  simulator  delivered  with 
reference  2.  As  a result  of  that  study,  the  FMP  was 
shown  to  be  substantially  lower  in  performance  on  the 
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GXSS  model  than  RADL  investigators  assumed,  based  on 
the  performance  of  the  fully  vectorized  version  on  the 
STAR-100.  One  example  unearthed  was  a routine  called 
LINKHO  in  the  GISS  model  which  ran  at  rates  far  less 
than  100  megaflops,  and  was  allegedly  unvectorizable . 
Shortly  after,  a correspond ing  vector  portion  was 
extracted  from  a current  STAR-100  version  and  simulated 
without  change  on  the'  FMP,  vintage  1979*  The  result 
rate  was  shown  to  be  700  megaflops  for  that  one 
routine!  The  LINKHO  and  AVRX  routines  were  thus  chosen 
for  further  study,  with  a representative  portion  of 
LINKHO  being  simulated  with  the  LVL1  simulator  for  the 
FMP.  AVRX  was  chosen  for  manual  extrapolation  because 
it  represented  the  physics  computations  of  the  GISS 
code  and  because  its  vector  characteristics  could  be 
estimated  by  hand. 

Mention  of  this  difference  is  not  meant  to  reflect  on  CSC's 
effort,  but  highlights  two  important  difficulties  in  this 
evolutionary  effort.  The  FMP  has  been  a moving  target  as- far  as 
design  is  concerned  since  the  inception  of  the  project,  and  thus 
estimates  made  in  summer,  fall  and  winter  of  1978  would  vary 
wildly.  The  second  problem  is  that  "vector  programming"  or  - 
"vector  thinking"  is  still  a young  discipline  and  still 
functions  more  as  an  art  than  a science.  In  this  case,  the 
author  of  the  original  code  was  able  to  see  and  recognize  the 
"parallel"  nature  of  some  of  his  own  constructs  and  thus  make 
certain  vector  judgments  in  the  GISS  recoding,  whereas  a new 
analyst,  confronted  with  a code  not  of  his  own  making  and  a 
machine  which  is  a bit  alien,  would  find  great  difficulty  in  his 
first  attempts  at  mapping  code. 

Neither  of  the  weather  codes  taxed  the  FMP  memory  system  as  did 
the  implicit  and  explicit  codes.  In  fact  they  can  be  completely 
contained  in  the  Main  Memory  of  the  FMP.  The  major  concern  in 
achieving  performance  on  these  codes  is  the  degree  to  which 
scalar  operations  have  to  be  employed,  where  no  overlap  of 
scalar  and  vector  can  be  done,  and  the  lengths  of  vectors. 
Simulation  results  for  some  segments  of  the  weather  codes 
achieve  only  100-300  megaflops  because  of  the  presence  of  short 
vectors  and  the  effect  of  vector  startup  time.  The  hardware 
design  attributes  that  contribute  to  startup  time  have  been 
discussed  previously  (in  the  hardware  design  section  of  this 
report),  and  relate  to  memory  access  time,  pipeline  lengths,  and 
interconnections.  The  detailed  FMP  simulator  imposes  an  average 
of  6 clock  cycles  per  startup  of  each  arithmetic  vector.  (Design 
analysis  to  date  indicates  that  6 cycles  is  a reasonable 
expectation  for  average  vector  startup.) 
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It  can  be  seen  that  if  vector  startup  time  were  zero  and  vectors 
could  be  scheduled  back-to-back  by  the  compiler,  then  the  actual 
computation  rates  would  in.  fact  be  the  same  as  the  theoretical 
rates.  Thus  rates  of  500,  1000,  and  1500  megaflops  could  be 
achieved  on  the  weather  code.  If  vectors  are  processed  which 
are  equal  in  length  to  the  number  of  levels  in  the  model,  then 
lengths  of  16-32  would  be  expected.  Given  a 1000  megaflop  peak 
rate  for  such  lengths  a table  of  statup  costs  would  show:. 


STARTUP  CYCLES  MEGAFLOPS  (vector  lengths  of  16) 

0 1000 

1 666 

2  500' 

3 400 

4 333 

5 285 

6 .250 

In  truth,  the  Control  Data  FMP  can  have  zero  vector  startup  for 
many  types  of  vector  operations,  in  particular  when  there  is  no 
"loop  back"  in  the  pipelines  between  functional  units,  or  mode 
changes  for  the  data  paths  in  the  Vector  Unit  between  vector 
operations.  It  is  possible  then  for  a carefully  coded  (yet 
brute  force)  conversion  of  the  weather  codes  to  achieve  close  to 
the  1000  me'gaflop  threshold. 


4.3  FUTURE  METRIC  STRATEGY 

One  of  the  significant  outcomes  of  the  FMP  investigation  has 
been  the  realization  that  the  tradeoffs  between  memory 
hierarchies,  processor  organization  and  interconnection,  and 
problem-  statement  (including  data  structuring  and  movement 
scheduling)  .create  complex  ensembles  about  which  some  decisions 
must  be  made.  In  particular,  the  FMP  structure  proposed  by 
Control  Data  offers  three  levels  of  memory,  with  consequent 
levels  of  bandwidth,  combined  with  functional  parallelism  which 
provides  concurrency  of  operation  based  on  the  separation  of 
functional  identity. 

A brief  examination  of  this  multi-faceted  architecture  in  the 
face  of  the  problems  expected  to  be  applied  to  the  NASF 
indicates  the  tremendous  variety  of  performance  that  can  be 
achieved.  The  small  problem,  which  could  be  used  as  a research 
tool  or  for  debugging  a new  set  of  parameters,  will  of  course 
fit  in  the  Main  Memory  and  operate  at  much  higher  map  rates 
while  possessing  shorter  vectors  that  have  commensurately  lower 
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throughput  rates  (hue  to  the  effect  of  the  spectre  of  vector 
overhead).  On  the  other  hand,  certain  research  codes  may  exceed 
the  LEVEL  2 memory  and  need  to  operate  at  lower  rates  than  1 
gigaflop,  in  order  to  achieve  the  goals  of  the  research  project. 
The  NASF  must  be  able  to  accommodate  the  entire  range  of 
programs  in  order  to  be  a viable  research  and  development 
center,  as  well  as  a high  capacity  production  facility. 

The  meaning  of  these  observations  is  clearly  that  the  set  of 
"benchmarks"  or  "metrics"  that  are  used  to  evaluate  prospective 
computer  systems  for  the  FMP  must  be  variegated  in  quantitative 
as  well  as  qualitative  spectrum.  Thus  there  should  be  a- 
two-dimensional  approach  to  the  "metricization"  of  evaluation 
programs  for  the  FMP. 

One  dimension  of  this  measurement  system  should  be  the  type  of 
processing.  Thus  the  implicit  and  explicit  aerodynamic  codes 
should  be  the  primary  evaluation  tools  for  design,  simulation 
and  actual  installation  of  the  NASF.  The  interest  and 
investment  in  the  weather  models  should  then,  of  course,  require 
the  inclusion  of  characteristic  approaches  to  the  weather 
projection  problem.  The  two  such  models,  spectral  and  finite 
difference,  are  offered  by.  NASA  as  representative  of  two  "poles 
of  thought"  in  weather  investigations.  Two  other  important 
models  that  were  not  investigated,  and  to  which  it  can  easily  be 
forecast  the  NASF  will  be  subjected,  are  the  "particle  in  cell", 
or  in  another  context  "Monte  Carlo  technique",  and  the 
"structural"  codes. 

Considering  the  massive  investment  in  financial  and  human 
resources,  as  well  as  the  extensions  into  other  disciplines  that 
are  planned  for  this  facility,  it  would  seem  that  a rationalized 
and  systematic  method  needs  to  be  employed  for  the  analysis  and 
evaluation  of  the  NASF  system  to  be  procured.  A suggested 
methodology  for  this  might  be:  

a.  Identification  of  type 

Implicit  Navier-Stokes , time-averaged,  algebraic 
turbulence; 

Explicit  Navier-Stokes,  time-averaged,  algebraic 
turbulence; 

Microscopic,  full  Navier-Stokes  turbulence  model; 

Finite  difference  weather  circulation  model, 
operational  forecast; 

Spectral  solution,  weather  circulation  model, 
operational  forecast; 

One  weather  model  for  research  purposes  (mathematical 
method  is  optional); 
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One  existing  structures  code,  finite  difference; 

One  particle  in  cell  model. 

b.  Identification  of  size 

Configurations  should  be  chosen  for  each  type  that 
represent 

1.).  an  ex-i-sting  configuration  that  can  be  run  on  and 
compared  with  numerical  results  and  performance  of 
existing  systems  (such  as  the  CDC  CYBER  76); 

2)  two  typical  configurations  expected  for  everyday 
production  work  (the  variance  of  any  one  of  the 
three  dimensions  in  the  implicit  code,  for  example, 
can  have  a-  substantial  effect  on  performance) ; 

3)  a maximum  production  run  that  is  conceivable  for 
the  1984-1989  timeframe; 

4)  a realistic  research  model  configuration. 

(For  example:  The  existing  flow  models  are  presently 
running  on  the  CYBER  76.  These  should  be  the  baseline  mesh 
sizes  for  these  models.  The  expected  50x80x80  mesh  should 
represent  the  production  data  base  sizing,  and  the 
100x100x100  should  represent  the  MINIMUM  THRESHOLD' of 
performance  benchmark.  Finally,  a research  model  of  at 
least  500x500x500  should  be  chosen  as  a "metric" 
configuration.) 

c.  Prioritization 

The  designers  proposing  a NASF  system  must  be  given  as 
many  degrees  of  freedom  as  is  possible,  given  the 
massive  national  attention  that  will  haunt  this 
project.  Therefore  it  is  imperative  that  a system  of 
evaluation  be  established,  AND  ADHERED  TO... NO  MATTER 
WHAT  THE  PRESSURE,  which 

1)  picks  the  main  emphasis  of  the  NASF  (thus  the 
minimum  performance  should  be  pegged  at  one 
gigaflop  for  the  3-D  implicit  code); 

2)  establishes  an  acceptable  mix  of  use  of  such  an 
implicit  code  for  1)  test  cases,  2)  production,  3) 
research  models; 

3)  identifies  the  relative  priority  of  interest  in  the 
other  codes  (explicit  Navier-Stokes , weather, 
structural,  etc..); 

4)  provides  measurement  specification. 
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The  implementation  of  the  NASF  will  proceed  through  three  more 
distinct  steps : 

1.  Proposal  of  candidate  architectures. 

2.  Design  of  candidate  architectures. 

3.  Construction  of  final  architecture. 

The  set  of  metrics  that  are  arrived  at  for  evaluation  must  be 
subjected  to  performance  analysis  at  each  of  these  phases  to 
determine  the  viability  and  reality  of  a given  design.  , In  the 
first  instance  (proposal),  all  parties  offering  candidates  must 
be  requested  to  provide  estimates  of  performance  broken  down  by 
section  of  probable  machine  code.  In  the  second  instance,  the 
analysis  should  consist  of  systematic  breakdown  and  simulation 
of  the  same  portions  of  the  code  that  were  analyzed  in  the 
proposal  phase.  This  simulation  should  be  accomplished  at  the 
detailed  level  of  'the  design  to  verify  that  the  hardware  to  be 
built  will,  in  fact,  meet  the  proposed  performance  objectives. 
The  cost  of  such  simulation  is  such  that  a complete  simulation 
of  a metric  run  is  impossible.  Instead,  the  candidate  design 
simulations  should  be  allowed  to  make  segmented  .analysis, 
without  requiring  all  trips  through  all  loops,  with  a 
specification  as  to  how  the  single-pass  results  may  be 
extrapolated . 

The  implicit  model  which  has  been  discussed  previously  may  be 
used  as  an  example.  A detailed  design  simulation  is  required 
of 

1)  the  first  trip  through  each  sweep  loop, 

2)  a subsequent  pass  through  each  sweep  loop, 

3)  the  last  pass  through  each  sweep  loop  (to  cover  any 
end  cases)  ,'  and 

*1)  one  trip  through  VISMAT, 

in  order  to  get  the  basis  for  detailed  estimates  of  the 
left-hand  side  computation.  Given  the'  sets  of  KMAX,  LMAX,  and 
JMAX  taken  from  the  sizing  task  (b..  above),  these  simulation 
results  can  be  extrapolated  for  each  sized  case.  The  method  of 
extrapolation  should  be  specified  by  the  consumer  (Ames)  so  that 
a uniformity  of  approach  is  guaranteed  from  all  candidate  design 
offerings . 

Finally,  each  metric  in  each  size  must  be  prepared  for  execution 
in  full  on  the  final  operational  machine.  In  addition  to  the 
reliability,  confidence,  and  other  specified  acceptance  tests, 
this  set  of  metrics  should  become  the  final  acceptance  test  for 
performance  of  the  FMP. 

Note  that  for  some  of  the  metrics  (particularly  the 
Navier-Stokes  research  models) , a data  flow  analysis  between 
memory  hierarchies  is  required  for  each  phase  of  the  design  and 
construction  effort,  as  well  as  the  computational  performance  of 
the  FMP.  This  data  flow  will  include  not  only  backing  storage 
modeling,  but-  I/O  transfer  and  support  processing  system 
activity  as  well. 
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All  evaluations  of  prospective  FMP  systems  should  then  start 
with  the  absolute  requirement  to  achieve  the  1 gigaflop  level 
for  test  cases,  production  runs,  and  100x100x100  maximum 
configurations.  ' The  remaining  cases  must  be  coded,  simulated 
and  estimated  for  their  individual  performances  without  a 
mandatory  performance  level  being  required.  All  prospects  then 
are  given  the  optimum  level  they  must  obtain  for  the  primary 
mission  stated  for  the  NASF , but  also  must  provide  data  relevant 
to  other  possible  uses. 

After  this  phase  is  concluded,  the  advice  of  all  contractors 
should  be  collated  to  form  the  quantitative  basis  for  the  other 
aspects  of  this  evaluation. 

A major  dilemma  facing  Ames  reseachers  is  the  decision  that  must 
be  made  in  the  event  that  one  candidate  could  be  shown  to 
perform  substantially  greater  (or  substantially  less)  than  all 
other  candidates  for  all  codes  other  than  the  implicit,  3-D, 
aerodynamic  code.  A weighting  factor  then  must  be  applied  to 
the  performance  of  the  NASF  which  not  only  includes  probable  mix 
results  but  also  NASA-Ames  priorities.  It  is  folly  to  think 
that  such  priorities  can  be  identified  strictly  by  money  or  its 
equivalent  in  machine  time.  There  are,  for  such  a national 
facility,  many  more  considerations  which  must  be  identified  and 
prioritized  by  NASA  before  a meaningful  competitive  analysis  can 
be  commenced  on  candidate  designs. 


4.4  BENCHMARK  SPECIFICATION 

In  the  preceeding  section  there  is  mention  of  the  problem  of 
properly  specifying  the  performance  benchmarks  to  be  used  for 
procuring  the  NASF.  The  problem  arises  from  the  scenario  which 
is  believed  to  be  the  best  approach  to  designing  and  evaluating 
the  FMP . 


Specification  of  at  least  two  production  codes 
representative  of  the  anticipated  NASF  workload * 

2.  Specification  of  at  last  one  code  representing  the 
research  environment  which  will  share  the  facility. 

3.  Specification  of  at  least  four  additional  codes  which 
demonstrate  computational  behaviors  different  from 
those  exhibited  in  the  preceding  three  codes. 

4.  Specification  of  a user-produced  full-function 
evaluation.  (This  would  demonstrate  to  NASA  that  all 
specified  functions  are  present  in  the  FMP  and 
operating  according  to  the  documentation.  These  would 
be  in  addition  to  the  vendor  produced  functional 
diagnostics . ) 

5.  Creation  of  the  FMP  and  system,  and  production  of 
high-level  simulators  for  both.. 
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6.  Execution  of  1 through  4 in  their  entirety  on.  both  the 
system  and  the  FMP  simulators. 

7.  Derivation  of  the  block  level  design  of  the  FMP,  and 
production  of  the  block  simulator. 

8.  Execution  of  1 through  4 on  the  block  model  to  verify 
functionality  and  performance  levels. 

9.  Detailed  design  of  the  FMP  and  production  of  the  gate 
level  simulation  of  the  FMP  from  that  design. 

10.  Execution  of  parts  of  1 -through  4 on  the  gate  level 
model . 

11.  Negotiate  price  and  schedule. 

12.  Order  parts  and  build. 

13-  Demonstrate  1 through  4 on  the  actual  hardware.  Real 
execution  must  match  the  three  levels,  of  simulation 
performance  within  a prescribed  allowance:  no  variance 
at  the  gate  level  permitted-  as  measured  by  clock 
cycles,  10%  variance  from  block  level  model  due  to 
unseen  conflicts,  and  15?  variance  from  high-level 
model.  These  variances  are  similar  to  those  that 
could  be  seen  comparing  the  gate  model  with  the  block 
model  and  the  high-level  model. 

This  process  would  minimize  the  risks  to  both  Control  Data  and 
NASA,  and  in  effect,  uses  the  simulation  model  as  a "met, a 
prototype" , obviating  the  need  for  the  construction  and 
demonstration  of  an  expensive  and  superfluous  hardware 
prototype.  Under  no  circumstances  should  NASA  anticipate 
entering  purchase  agreements  for  a system  of  this  magnitude 
without  insisting  upon  a "fly  before  buy"  demonstration.  The 
demonstration  can  be  valid  using  the  "meta  prototype"  if  the 
simulation  systems  can  themselves  be  validated  with  real 
results.  Each  stage  of  the  FMP  development  — high-level,  block 
and  gate--  can  be  evaluated  before  the  next  stage  is  initiated, 
thus  reducing  all  partner’s  risks  on  entering  the  next  stage'. 

As  previously  discussed,  however,  the  perfect  scenario  is  -marred 
by  the  fact  that  all  levels  of  simulation  absorb  more  computer 
power  than  can  be  economically,  or  even  practicably  realized. 

The  project  is  faced  with  the  need  to  scale,  first  the  actual 
production  runs,  and  then  the  runs  that  can  be  made  at  each 
level  of  simulation.  A summary  of  recommendations  might  be: 

1 . The  base  set  of  benchmarks  should  be  codes  now  in 

existence,  which  are  in  operation  on  the  7600.  Timings 
for  each  benchmark  on  the  7600  should  become  a baseline 
for  performance  comparisons. 
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2.  The  base  set  should  be  scaled  in  terms  of  mesh  sizes, 
time  steps,  and  iteration  counts  for  at  least  three 
levels  of  probable  production  runs  - small  (perhaps 
7600  size),  medium,  and  large.  The  medium  size  might 
represent  the  normal  workload  parameters  and  the  large 
might  represent  the  extraordinary  "research1*  models. 

3.  The  base  set  should  be  representative  of  existing  and 
pro.je_c.ted  computational  requirements'  In  functionality 
as  well  as  complexity. 

4.  The  entire  base  set  will  be  run  for  all  sets  of 
parameters  as  the  key  acceptance  test  on  the  actual  FMP 
hardware. 

5.  Each  benchmark  will  have  key  segments  extracted  for 
simulation  by  the  high-level  simulator.  These  segments 
can  be  entire  code  sequences  limited  to  one  pass 
through  a loop  or  nested  loop.  A multiplication  factor 
for  the  number  of  trips  can  then  be  manually  factored 
at  a later  time.  Where  code  sequences  contain  branches 
that  cannot  be  vectorized,  or  where  vector  contents  and 
lengths  are  dependent  on  the  opeating  data,  several 
different  passes  through  the  sequence  exercising  the 
strategic  (in  terms  of  performance  effects) 
alternatives  should  be  specified. 

6.  Sequences  of  code  from  these  prescribed  segments  will 
be  identified  as  "validation  code".  These  sequences 
will  be  run  on  the  block  model  to  v-erify  the  timing 
assumptions  used  in  the  simpler  high-level  model.  These 
will  normaly  be  limited  to  mixed  strings  of 
instructions  up  to  25  in  length  consisting  of  scalar, 
vector,  and  map  operations.  Vector  lengths  will  be 
limited  to  100  or  less. 

7.  Sequences  of  the  code  extracted  in  6 (above)  will  be 
further  distilled  to  provide  gate  level  validation 
code.  This  is  done  primarily  by  reducing  vector 
lengths  and  permitting  some  manual  multiplier  to  be 
used  to  extrapolate  operation  for  lengths  of  100,  when 
needed . 

8.  These  last  sequences  will  be  run  on  a gate  level  basis 
to  validate  the  performance  at  the  gate  level  of 
individual  units.  Using  mixed  simulation  with  all 
other  units  operating  either  at  the  block  or  high-level 
and  the  unit  under  study  runs  in  gate  simulation  mode. 

So  it  is  then  that  not  only  must  the  codes  be  sized,  but 
judicious  choices  must  be  made  of  selected  segments  to  be  used 
-for  validation  of  the  various  simulation  levels.  This  process 
has  already  been  engaged  during  this  study  period  as  it  became 
evident  that  the  GPSS  models  required  considerable  time  to  run. 
Code  analysis  has  consisted  of  breaking  up  the  programs  into 
sequences  and  then  manually  computing  the  combined  operation 
timing . 
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5.0  PERFORMANCE  ANALYSIS  AND  EVALUATION 


This  section  addresses  the  methodology  employed  to  evaluate  the 
FMP  design  when  subjected  to  the  four  metric  codes  — 
3-dimensional  implicit,  3-dimensional  explicit,  spectral 
weather,  and  finite  difference  weather  models.  The  major 
approach  for  all  four  codes  was  to  derive  performance  data  from 
runs  of  ’ pseudo-compiled 1 code  using  one  of  the  two  simulators 
developed  by  Control  Data  for  NASA-Ames.  Several  factors  acted 
to  limit  the  extent  to  which  this  was  possible. 

1.  The  machine  time  required  to  run  large  code  sequences 
at  the  detailed  (and  more  precise)  level  became 
prohibitive  in  some  cases. 

2.  The  number  of  FMP  machine  instructions  which  can  be 
handled  by  the  higher  level  (less  detailed)  simulator 
is  limited  to  2000  individual  instructions.  Loop 
structures  are  unrolled  into  linear  code  by  the 
simulator  and  thus  this  limit  of  2000  instructions 
constrained  loop  parameters  in  many  cases. 

3.  The  amount  of  code  that  could  be  pseudo-compiled 
exceeded  the  available  time  and  resources  allotted  to 
this  project,  due  primarily  to  the  priority  assigned  by 
Control  Data  analysts  to  the  detailed  analysis  of  the 
three-dimensional  implicit  code.  The  effect  of  this 
decision  was  to  absorb  considerable  time  and  talent  in 
the  reconfiguring  of  the  implicit  code,  recompiling, 
and  resimulating  of  the  governing  elements  of  the 
implicit  code. 

In  many  instances  then,  it  became  necessary  to  use  extrapolation 
techniques  based  on  simulator  results  and  reasonable  conclusions 
about  the  behavior  of  each  unique  code  sequence.  The  manner  in 
which  the  four  codes  were  each  addressed  is  discussed  below. 


5.1  THREE-DIMENSIONAL  IMPLICIT  CODE 

The  routines  BTRI,  VISMAT,  VISRHS,  MUTUR,  and  the  FILTRX/AMATRX, 
FILTRY/AMATRX,  FILTRZ/AMATRX  segments  of  the  STEP  routine  were 
simulated  and  analyzed  for  a variety  of  vector  lengths,  to 
determine  the  sensitivity  of  floating  point  performance  to  the 
length  of  arithmetic  vector  operations.  This  was  of  paramount 
concern  because  of  the  well-known  effect  of  ’vector  startup’ 
time  on  ’short  vector’  performance  in  machines  like  the  CDC 
FMP. 
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It  was  discovered  that  detailed  level  simulation  of  BTRI  would 
have  to  be  limited  to  processing  sequences  of  code  taken  from 
BTRI,  summarizing  the  simulator  results,  and  then  manually 
computing  the  probable  behavior  of  BTRI  in  its  entirety. 

The  same  was  true  for  FILTRX,  FILTRY,  and  FILTRZ  when  simulation 
at  the  lower  (more  detailed)  level  was  desired.  It  became 
obvious  that  the  detailed  model  of  the  FMP  yielded  results 
within  1%  of  the  high-level  model  when  map  operations  (and  hence 
unavoidable  memory  conflicts)  were  minimized.  This  was  true  in 
BTRI,  and  thus  a simulator  run  was  made  for  the  complete  BTRI 
using  the  high-level  model;  these  figures  are  used  in  subsequent 
tables . 

The  heavy  use  of  map  operations  to  perform  the  tranpose  and 
gather  operations  from  Intermediate  Memory  to  Main  Memory  in 
FILTRX,  FILTRY,  and  FILTRZ  required  one  simulation  pass  of  these 
routines  at  the  detailed  level  and  comparing  the  result  with  a 
similar  pass  made  at  the  higher  level.  For  the  vector  lengths 
given  later,  the  difference  between  simulator  results  in  the 
high-level  model  and  detailed  model  was  ten  percent  or  less.  In 
all  cases  the  detailed  model  (which  simulates  memory  accesses 
and  memory  busy  exactly)  would  run  slower  (more  clock  cycles  for 
the  same  number  of  floating-point  operations)  than  the 
higher-level  model. 

The  data  obtained  from  the  individual  sequence  runs  was 
summarized  and  used  to  compare  against  other  forms  of  runs  for 
the  implicit  code  to  validate  the  manual  extrapolations  that  had 
to  be  made. 

BTRI  is  broken  into  4 different  segments  of  code  to  facilitate 
simulation  runs;  these  segments  are  identified  as  BTRIO,  BTRI1, 
BTRI2,  BTRI3-  The  segments  are  then  combined  into  code 
sequences  representing  the  pseudo-compiled  lines  which  can  be 
found  in  the  listings  of  simulator  input  in  appendix  F.  The 
simulation  results  for  each  segment  are  then  combined  to  form  a 
total  operation  count  and  total  clock  cycle  count  for  those 
sequences  in  BTRI.  These  can  be  found  in  the  table  below  where 
the  first  line  for  each  segment  represents  the  number  of 
floating-point  operations  credited  to  that  sequence.  The  second 
line  for  each  segment  gives  the  number  of  clock  periods  for  that 
sequence.  The  floating-point  result  rate  is  given  for  each 
subsequence  as  an  indication  of  how  that  particular  form  of  code 
would  perform  on  the  FMP. 
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VECTOR  LENGTHS 

100 

200 

400 

1600 

1600 

600 

64-MODE 

32-MODE 

4330-4815  BTRI0 

U900 

23800 

4760  0 

190400 

190400 

21400 

CLKP0 

885 

1561 

2861 

10661 

5461 

4161 

BTRI1 

22500 

45000 

90000 

360000 

360000 

135000 

CLKPD 

1361 

2401 

4401 

16401 

8401 

6401 

TOTALOPS 

34400 

68800 

137600 

550400 

550400 

206400 

TOTALCLK 

2246 

3962 

7262 

27062 

13862 

10562. 

4330-4815  FPRATE 

0*957E9 

1 •085E9 

1.184E9 

1.271E9 

2.481E9 

1 #22159 

4820-5476  0TR12 

30000 

60000 

120000 

400000 

480000 

180000 

CLKPD 

2041 

3601 

6601 

24601 

12601 

9601 

8TR10 

11900 

23800 

47600 

190400 

190400 

71400 

CLKPD 

885 

1561 

2861 

10661 

5461  . 

4161 

8TRI1 

22500 

~ 45000 

90000 

360000 

36Q000 

135000 

CLKPD 

1361 

- 2401 

4401 

16401 

9401 

6401 

TOTALOPS 

64400 

128800 

257600 

1030400 

1030400 

386400 

totalclks 

4207 

7563 

13863 

' 51663 

25463 

20163 

4820-5476  FPRATE 

0.938E9 

1.064E9 

1.161E9 

1.24TE9 

2.434E9 

1*198E9 

5490-6015  STRI2 

30000 

60000 

120000 

*00000 

480000 

180000 

CLKPD 

2041 

3601 

’ 6601 

24601 

12601 

9601 

8TRI0 

11900 

23800 

47600 

190*00 

190400 

71400 

CLKP0 

685 

1561 

2861 

10661 

5461 

4161 

TOTALOPS 

41900 

83800 

167600 

670*00 

670400 

251400 

TOTALCLKS 

2926 

5162 

9462 

35262 

18062  : 

13762 

5490-6015  FPRATE 

0 4 S94E9 

1.015E9 

U107E9 

1.1B0E9 

2*32059 

1.142E9 

6020-6100  BTRI3 

5000 

10  o 00 

20000 

30000 

30000 

30000 

CLKPO 

341 

601 

1101 

4101 

2101 

1601 

6020-6100  FPRATE 

0 *916£9 

1 *03459 

1.13SE9 

1.219E9 

2.380E9 

1.171E9 

Note  that  lines  4820  through  5476  and  lines  6020  through  6100 
are  executed' IMAX  times,  where  "IMAX”  is  the  maximum  length  of 
the  column  vector  being  solved  by  the  tridiagonal  algorithm. 
Thus  IMAX  will  become  either  JMAX,  KMAX,  or  LMAX  depending  on 
the  sweep  direction.  Summing  the  values  for  the  two  sets  of 
subsequences : 


4330-481565490-6015 

CLKPD 

76300 

5172 

1S2600 

9124 

305200 

16724 

1220800 

62324 

1220800 

31924 

457800 

24324 

4020-54761.6020-6100 

CLKPO 

60400 

4620 

138800 

8164 

277600 

4964 

1110400 

55764 

1110400 

28564 

416400 

21764 

To  find  appropriate  values  for  the  execution  of  the  full  BTRI , 
the  values  of  IMAX  that  are  reasonable  must  be  determined.  This 
is  attacked  by  establishing  characteristic  mesh  sizes  for 
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the  entire  implicit  solution.  Since  the  primary  interest  is  in 
the  sensitivity  of  the  FMP  to  small  vector  sizes,  parameters,  are 


chosen  as  follows: 

VLENGTH 

DIMENSIONS 

SLAB  SIZE 

IMAX 

BTRI  VL 

loo 

6*6*6 

2 

- 6 

12 

200 

8*8*8 

3 

’ 8 

25 

400 

10*10*10 

4 

10 

40 

1600  • 

16*16*16 

6 

16 

100 

57626- 

100*100*100 

6 

100 

600 

The  purpose  of  this  relationship  chart  is  to  pick  the  lengths  of 
operations  in  BTRI  depending  on  the  vector  lengths  used  in 
FILTRX , FILTRY,  RHS,  etc.  Obviously,  the  mesh  dimensions  chosen 
for  all  but  the  last  case  are  smaller  than  would  be  normally 
used.  However,  it  is  equally  obvious  that  if  the  FMP  can 
perform  well  on  these  small  meshes,  and  even  better  on  larger 
meshes,  then  the  threshold  of  one  g'igaflop  can  be  attained  by  a 
broad  range  of  problem  models. 

The  number  of  planes  appearing  in  a 'slab',  a function  in  the 
program  of  the  variables  JSL,  KSL,  LSL,  is  based  on  the  memory 
space  available.  In  the  case  of  the  first  meshes  given,  it  can 
be  seen  that  the  entire  mesh  could  be  held  in  Main  Memory  and 
thus  no  'slabbing'  would  be  necessary.  In  addition  all 
transposes  would  be  performed  in  Main  Memory  instead  of  between 
Main  and  Intermediate  Memories,  with  a consequent  .increase  in 
Map  Unit  performance.  For  the  purpose  of  this  report  however, 
all  operations  are  performed  as  if  the  mesh  variables  had  to  be 
retained  in  Intermediate  Memory,  regardless  of  the  "typical" 


dimensions  chosen 

far  the 

flow 

variable 

arrays 

. Using 

the 

values  of  IMAX  and 

vector 

lengths  given 

above : 

* 

VLENGTH-IMAX 

100-6 

200-6 

400-10 

1600-16 

1600-16 

600-100 

64-MOOE 

32-MODE 

.BTRI  TOTAW  OPS 

6927.00 

1263000 

3081200 

18987200 

18937200 

42097800 

BTRI  TOTAt.  CUKS 

32940 

74436 

166364 

954548 

486948 

2200724 

BTRI  GF1.0PS 

0.935 

1.064 

1.158 

1.243 

2.427 

1.196 

Thirty-two-bit  simulation  was  limited  to  the  set  of  runs  at 
vector  lengths  of  1600.  This  seems  to  represent  a reasonable 
length  for  some  problem  solutions,  and  was  chosen  as  a midpoint 
in  the  studies  of  FMP  performance  done  for  this  report. 
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To  provide  data  for  analysis  of  the  behavior  of  the 
three-dimensional  implicit  code,  simulation  was  performed  on  the 
following: 


FILTRX/AMATRX 

BTRI 

FILTRY/AMATRX 

BTRI 

FILTRZ/AMATRX 

BTRI 

RHS  • 


VISMAT 

VISRHS 


MUTUR 


Subtotal  for  implicit  without  viscosity 

Subtotal  for  implicit  with  viscosity, 
laminar  flow 

Total  for  implicit 


The  pseudo-compilation  of  FILTRX,  FILTRY,  RHS,  VISMAT,  VISRHS, 
and  MUTUR  were  translated  into  simulator  input  (see  appendix  F) 
and  run  for  the  vector  lengths  mentioned  previously.  As  can  be 
seen  from  the  pseudo-compilation  there  are  a set  of  map 
operations  that  must  be  accomplished  at  the  beginning  of  each 
sweep  loop.  The  results  of  these  map  operations  are  interlocked 
to  subsequent  arithmetic  operations  by  use  of  the  read  and  write 
keys.  The  remaining  map  operations  are  performed  concurrently 
with  arithmetic  operations  during  the  remaining  passes  through 
the  loop.  Since  each  FILTRX/AMATRX  sweep  is  simulated  only  down 
to  the  BTRI  call  ■ statement , the  times  given  by  the  simulator 
assume  that  all  map  and  vector  operations  must  be  completed 
before  entry  into  BTRI.  Since  this  is  not  the  actual  case  the 
timings  given  are  considered  worst  case,  since’ in  fact  the  last 
few  vector  and  map  operations  can  proceed  concurrently  with  the 
initial  functions  appearing  in  BTRI. 


The  timings  for  FILTRX  and  FILTRZ  are  essentially  the  same, 
since  they  are  governed  by  the  ''gather-record”  operations. 

FILTRY  requires  "single  element  gather”  operations  however,  and 
must  be  simulated  separately. 

All  simulation  of  the  implicit  code  assumes  that  the  code  and 
the  flow  variables  have  been  staged  to  Intermediate  Memory  from 
either  disk  or  backing  storage,  whilst  a previous  code  is 
running  on  the  FMP.  Thus  no  explicit  I/O  is  calculated  into  the 
analysis  since  all  data  transfers  to  the  "outside  world"  are 
assumed  to  be  overlapped  with  other  program  executions. 

Thus,  simulation  results  for  a single  run  of  BTRI  for  all 
desired  vector  lengths  (described  previously)  must  be  multiplied 
by  three.  Likewise  the  FILTRX/AMATRX  simulation  results  can  be 
multiplied  by  two  (to  represent  FILTRY/AMATRX  as  well);  the 
remaining  runs  are  then  factored  in  on  a one-for-one  basis.  The 
following  matrix  summarizes  the  results  from  the  set  of  runs  for 
the  implicit  code  that  can  be  found  in  appendix  F.  The 


1 -1 4.7 


multiplication  factor  used  to  form  the  subtotal  for  the 
left-hand  side  appears  in  the  left-hand  column  of  the  chart.  The 
values  given  for  each  code  segment  represent  the  single-run 
counts  for  that  code. 

The  data  that  appears  in  the  chart  for  FILTRX  and  FILTRY  are 
taken  directly  from  the  simulation  output  and  represent  two  - 
iterations  through  the  slab  processing  loop,  in  order  to 
amortize  the.  .startup  -costs  -of  the  initial'  map  operations.  Since 
the  chart  represents  only  one  pass  through  each  sweep  for  one 
single  slab,  the  multiplication  factor  must  be  reduced  by 
one-half  for  each  FILTRX,  FILTRY,  and  FILTRZ.  Since  the  data 
for  FILTRX  and  FILTRZ  are  the  same,  the  factor  for  that  line  is 
0.5*2  (FILTRX  + FILTRZ)  = 1,  while  the  factor  for  FILTRY  is 
0.5*1  = 0.5. 


FACTOR  VLENGTHS  100  200  400  1600  ' 1600  57624 

64-MODE  32-MOOE 


3 BTRI  OPS 

492700" 

1263000 

3081200 

18897200 

18897200 

42097800 

3 BTRI  CLK 

32940 

74436 

16636* 

954548 

J 488940 

2200724 

FPRATE  . BTRI 

0.93SE9 

1.060E9 

1*158  59 

1.243E9 

2.427E9 

1.19659 

l FILTRX 

24200 

40400 

96000 

396300 

396300 

13945006 

1 CLKP.O 

3102. 

5128 

9426 

34536 

17656 

1268201 

FPRATE  FILTRX 

0.487E9 

.0,590  E9 

0.64159 

0.701E9 

1*37059 

0.71559 

.5  FILTRY 

24200 

48400 

96800 

396300 

396300 

13945006 

.5  CLKP0 

10697 

' 20021 

39331 

•162271 

81371 

4532209 

FPRATE  FILTRY 

0.141E9 

0.151E9 

0.153E9 

0, 149E9 

0.297E9 

0*19359 

1 RHS  OPS  ' 

21300 

42600 

85200 

340800 

344)800 

12273911 

l RHS  CLK 

1724 

3051 

5626 

21076 

12276 

742385 

FPRATE  RHS 

0.772E9 

0,872E9 

0.94659 

1.011E9 

1.735E9 

1.03359 

SUBTOTAL  ops 

1S35700 

3904200 

9474000 

5762850 

5762850 

1 .59558 

subtotal  clks 

108994 

241497 

533809 

' 3000391 

1-537461 

10144296 

FPRATE  W/0  VISC 

0.881E9 

1.010E9 

1.10959 

-1.200E9 

2*34359 

0.98359 

VISHAT— VISRHS 

58300 

117600 

235200 

940839 

940839 

33882908 

CLKPD 

4218 

7442 

13642 

51028 

25700 

1787586 

FPRATE  W/VISC. 

0.871E9 

0.9B7E9 

1.07859 

1.1S2E9' 

2.288E9 

1.18559 

SUBTOTAL  OPS 

1S94500 

4021800 

9709200 

58567689 

5856768,9 

1.93458 

SUBTOTAL  clks 

113212 

248*39 

547451 

3101359 

1588091 

10933SI 0 

FPRATE  W/V1SC' 

0 .880E9 

' 1.010E9 

‘ 1*10859 

1.180E9 

2.304E9 

1.10659 

MUTUR  OPS 

26050 

52100 

1 *264525 

4.993E5 

4*99355 

1501100 

MUTUR  CLKS 

7000 

- 8140 

12370 

43464 

♦2.2554 

1,52956 

FPRATE  MUTUR 

0.2SE9 

0.40E9 

0.63959 

0.718E9 

1 *38459 

0,75559 

GRAND  TOTAL  OPS 

1620530 

4073900 

9813400 

58984489 

58984489 

2.00458 

GRANO  TOTAL  CLKS' 

120212 

257079 

560476 

3094819 

1586841 

13374882 

TOTAL  FPRATE 

0.S43E9 

0.990E9 

1.09459 

1.191E9 

2.32359 

0,97459 
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As  the  chart  shows,  the  minimal  one-gigaflop  rate  is  achieved  at 
vector  lengths  of  400.  The  anomalous  behavior  of  the  long 
vector  case  is  due  to  two  effects.  First,  if  one  examines  the 
FPRATES  for  FILTRX  and  FILTRY,  .the  rate  seems  to  drop  off  at  the 
maximum  vector  length.  This  is  due  to  the  simplification  used 
to  run  the  codes.  It  turns  out  that  the  final  map  operation 
(line  800  in  the  FILTRX  and  FILTR.Y  simulation  input)  dominates 
the  Map  Unit  behavior.  As  was  mentioned  previously,  the 
disengagement  of  the  BTRI  CALL  from  the  FILTRX/AMATRX  sequence 
for  simulation  purposes  imposes  an  additional  penalty  at  the  end 
of  the  simulated  sequence  while  the  simulator  is  'idling'  dqwn. 
This  can  be  seen  by  executing  the  sequence  with  repeat  factors 
of  1,  2,  and  3,  where  the  'idling*  will  be  amortized  over  the 
total  execution. 

The  second  effect  is  seen  in  BTRI.  The  vector  lengths  used  in 
BTRI  are  actually  only  600,  since  the  iteration  within  BTRI  is 
recursive  in  the  sweep  direction.  Thus  while  all  -of  the  other 
data  reflects  increasing  vector  lengths  from  100,"  200,.  400, 

1600,  and  60000,  BTRI  lengths  are  actually  100,  200,  400,  1600, 
and  600.  This  was  an  unfortunate  choice  of  parameters,  but  was 
established  early  in  the  stud.y  to  ease  analytical  evaluation  of 
the  implicit  algorithm.  The  effect  of  the  tapering  of. the 
"performance  curve"  which  could'  be  plotted  from  the  above 
results  is  then  due  to  two  unnecessary  and  eliminatible 
elements.  The  first  can  be  resolved  by  resimulating  the  entire 
mass  with  other  parameters;  the  second  can  be  resolved  by  moving 
the  gather  operation  (at  line  800)  earlier  in  the  code  (a  task 
for  the  compiler) , and  including  the  first  sequence  from  BTRI  as 
part  of  FILTRX,  FILTRY,'  and  FILTRZ . The  FPRATE  shown  for  vector 
lengths  of  57624  is  not  as  high  as-  the  original  one-gigaflop 
objective.  This  was  mostly  due-  to  the  effect  of  the  slow 
Intermediate  Memory  to  Main  Memory  transpose  operations  required 
by  the  data  just  described,  which  led  to  a new  series  of  runs 
with  a slightly  revised  version  of-STEP. 

In  this  version  the  Q,-  X,  Y,  and  Z meshes  are  fully  transposed 
into  a form  suitable  for  direct  processing  by  FILTRY.  This 
transposition  is  performed  from  Intermediate  to  Intermediate 
Memory  during  the  BTRI  computations  in  the  FILTRX  pass,  and 
requires  hand-coding  of  the  gather  operations  immediately 
preceding  the  CALL  to  BTRI  in  FILTRX.  Once  this  transpose  is 
complete,  FILTRX,  FILTRY,  and  FILTRZ  all  execute  in  the  same 
manner,  and  thus  their  rates  will  be  identical. 

To  prove  this  was  possible  it  was  necessary  to  merge  the 
simulation  input  files  for  BTRI  and  FILTRX,  so  that  the  code  can 
be  run" as  it  would  be  executed  on  the  FMP  (with  the  shutdown 
times  imposed  by  the  simulation  system-  being  overlapped  by 
following  code) . 
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Unfortunately  this  scheme  generates  too  many  simulator  input 
cards  for  reasonable  values  of  IMAX  (in  BTRI).  Therefore,  a set 
of  runs  were  made  with' the  revised  FILTRX/AMATRX/  TRANSPOSE/ BTRI 
aglutinized,  and  the  following  results  were  obtained: 


VLENOTH' 

-BTRIVL 

*00-40 

1600-9* 

60000'»600 

1600-96  (32BIT1 

IKAX»1 

-PLOPS 

1.064E5 

3.337ES 

8 « 130E6 

3.335ES 

I MAX el 

CLKPO 

1.08E4 

2.83E4 

7.29E5 

1.578E4 

IMAX»2 

FLOPS 

1.349E5 

4.001E5 

S'543E6 

4.000ES 

IHAXsg 

CLKPO 

1.36E4 

3.29E* 

7#51E5 

1.877E4 

1MAX.5 

FLOPS 

2.177E5 

6.001E5 

9.805E6 

6.001E5 

IMAXi.5 

CLKPD 

2.17E4 

4.S8E4- 

8.16E5 

2.77SE4 

IMAX.7 

FLOPS 

2.737ES 

7.329E5 

10.636E6 

7.329E5 

IMAX.7 

CLKPO 

2.72E4- 

S.60E4 

8.60E5 

3.373E4 

Extrapolated 

data 

was  then 

determined  for 

IMAX  values  of  10,  16, 

and  100  using 

the 

following 

extr apolation 

equations : 

DELFLOPS 


FLOPS (IMAX=7 ) - FLOPS (IMAX=1 ) 
6 


DELRATE  = The  asymptotic  FPRATE  as  a function  of  IMAX 

for  the  additional  FLOPS  (determined  graphically 
to  3 significant  digits) . 

XFLOPS (IMAX  > 7)  = DELFLOPS* (IMAX  - 7) 

XFLOPS (IMAX) 

XCLKPDS (IMAX  > 7)  = 

16E-09*DELRATE 


FPRATE (IMAX  > 7) 


FLOPS (IMAX  = 7)  + XFLOPS 
1 6E-09* ( CLKPDS (IMAX  = 7)  * XCLKPDS) 


XMAX»lo 

IMAX. 10 
IMAX*! 0 

FLOPS 

CLKPO 

FPRATE 

3.S92ES 
3*55864 
0.631  GFLOP 

!MAX«16 
IMAX* 16 
IMAX.16 

FLOPS 

CLKPD 

FPRATE 

1.331E6 
9.7SE4 
0.853  GFLOP 

U331E6 

6«064E4 

U388E9 

IMAX*I00 

IMAX.100 

IMAXwloO 

flops 

CLKPO 

FPRATE 

S2.236E6 
3.03E6 
1.08  G FLOPS 

where  the  pair  of  vector  lengths  shown  represent  the  typical 
lengths  in  FILTRX,  AMATRX,  RHS , VISMAT,  VISRHS,  MUTUR , and 
appearing  in  BTRI,  respectively.  The  purpose  for  using  this 
range  was  to  find  the  'knee*  of  the  curve  of  performance  versus 
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mesh  sizes.  The  range  of  IMAX  was  dictated  by  the  maximum 
number  of  input  statements  manageable  by  the  simulator.  Thus, 
the  values  had  to  be  extrapolated  for  the  entire  code  block  for 
IMAX  values  of  10,  16,  and  100  which  represent  the  mesh  sizes 
given  in-  the  previous  table.  It  was  determined  from  the  runs 
that  for  any  value  of  IMAX,  the  K direction  transpose  is 
completely  covered  by  the  BTRI  calculations.  This  is  due'  to  the 
fact  that  the  map  operations  in  BTRI  are  Main  Memory  to  Main 
Memory,  while  the  transpose  operation  requires  only  the 
Intermediate  Map  Unit. 

The  extrapolation  was  tested  against  the  previously-run  implicit 
data,  which  required  hand-aggregated  values  for  vector  lengths 
of  57624,  and  was  found  to  be  within  1 % of  that  data.  Taking  the 
values  of  FLOPS  AND  CLKPD’  for  RHS , VISMAT-VISRHS , and  MUTUR  from 
the  previous  table  for  vector  lengths  of  400,  1600,  and  60000 
results  in 


vlengths 

voo-io 

1600-16 

60000-100 

1600-16 

3 2-mODE 

filtrx 

Flops 

3.592E5 

1.331E6 

5 .223E6 

1.33166 

filtrx 

CLKPD 

3.558E4- 

9.75E4 

3.03E6 

6.06464 

3*FlLTRX  FLOPS 

1.07866 

3.99366 

U567E8 

3.99E6 

3*FILTRX  CLKPO 

X.067E5 

2.92565 

9* 108E6 

1.8265 

RHS 

FLOPS 

85200 

340800 

U227E7 

3.4165 

RhS 

CLKPO. 

5626 

21076 

TA2385 

1.23E4 

STEP'  W/0  VISC 

1 <16366 

4.334E6 

1.69E8 

4.3366 

STEP 

CLKPO 

1.12365 

3.136E5 

9.85QE6 

1.94E5 

STEP 

fprate 

0.647E9 

0.86469 

U072E9 

1.39569 

VISMAT 

-VISRHS 

235200 

940839 

33882908 

9.41ES 

CLKPD 

13642 

51028 

1787586 

2.5764 

MUTUR 

FLOPS 

1.265E5 

4.993E5 

— 1.847E  7 

4,9965 

MUTUR 

CLKPO 

1.237E4 

4,34664 

1.S29E6 

. 2.2SE4 

total' 

flops 

1.525E6 

5.77466 

2.214E8 

5.771E6 

TOTAL 

CLKPO 

1.33365 

4.08165 

1 *317E7 

2.43E5 

FINAL 

RATE 

0.68969 

0.88469 

1.051E9  • 

1.487E9 

The  counts  shown  above  are  for  one  pass  through  each  sweep 
direction  (or  one  full  slab  processed).  Extending  these  numbers 
for  all  slabs  and  256  time  steps  gives  the  following: 


TOTAL  RUN  FLOPS  1.17E9  4,4369  9.07E11  4,4369 

TOTAL  RUN  CLKPO  6.64E6  3.13E8  5,39610  1.87E8 


The  final  revision  of  the  simulation  input  which  yields  the  FLOP 
rate  shown  here  is  felt  to  be  practicable  in  terms  of  both 
programmability  and  compilab ility . It  takes  into  account  the 


1-151 


gather  operations  needed  for  collecting  the  data  for  each  slab 
and  includes  three  extra  gather  operations  to  represent  the 
initial  gather  functions  which  must  be  accomplished  before  the 
first  pass  of  the  loop  can  be  processed.  If  this  sequence  were 
to  be  extended  to  the  proper  number  of  passes,  then  the  loop 
count  would  be  16,  for  16  slabs  needed  in  the  100x100x100  mesh 
case.  In  one  experiment  with  the  simulator  the  three  initial 
map  operations  were  removed  and  the  FILT-R-X,  FILTR'Y,  and'  FILTRZ 
timings  were  reevaluated.  The  difference  in  execution  time  of 
the  entire  ensemble  due  to  the  additional  map  operations  turns 
out  to  be  less  then  4%,  which  is  less  than  the  probable  accuracy 
of  the  total  estimates. 

From  the  several  attempts  at  recoding  and  simulating  the 
implicit  code,  it  appears  that  all  transpose  and  gather 
operations  could  be  overlapped  completely  with  careful 
* hand-coding  * or  'extremely  sophisticated  compiling'.  In  this 
instance  the  execution  rate  could  become  as  high  as  the  1.12 
gigaflops  achieved  by  the  unadorned  BTRI  routine  by  itself. 

An  important  concern  in  any  of  these  code  simulations  is  the 
degree  to  which  the  system  is  balanced.  That  is,  are  there  any 
major  components  idle  or  nearly  idle  while  others  are  at  maximum 
utilization?  Examination  of  the  simulation  results  will  disclose 
two  quantities  of  interest  beyond  the  FPRATE  and  CLKPD — VECBZ 
and  MAPBZ  which  reflect  the  percentage  utilization  (degree  unit 
is  busy)  of  the  Vector  and  Map  Units,  respectively.  In  the 
results  for  the  implicit  code  it  can  be  seen  that  the  Map  Unit 

is  occupied  for  at  least  half  the  time,  and  the  Vector  Unit  is 

over  90  percent  busy.  As  long  as  the  Map  Unit  is  never  busier 
then  the  Vector  Unit,  and  the  Vector  Unit  is  busy  between  93  and 
98  percent  of  the  time,  one  can  be  confident  that  consumers  are 
getting  their  money's  worth. 

Another  observation  of  interest  is  that  the  curves  of 
performance  versus  vector  length' (or  mesh  size)  yield  some  data 
that  points  to  an  asymptotic  behavior  of  the  GIGAFLOP  curve. 
Unfortunately  project  time  hasn't  permitted  investigation  of  the 
location  of  the  exact  knee  of  the  performance  curve.  It  would 

seem  that  a simple  graphing  of  the  points  for  lengths  of  400 

(dimension  10x10x10),  1600  (dimension  16x16x16),  and  60000 
(dimension  100x100x100)  will  show  that  at  vector  lengths  of  6400 
(dimension  24x24x24)  and  greater,  the  FLOP  rate  of  the  proposed 
FMP  will  hover  around  1.000  gigaflop.  The  implication  is 
obvious  that  for  the  range  of  reasonable  mesh  sizes  --  30x30x30 
through  100x100x100  — the  performance  curve  is  relatively  flat 
and  close  to  one  gigaflop  (plus  or  minus  10%).  This  range  is 
achieved  even  when  all  arrays  are  kept  in  Intermediate  Memory 
throughout  the  computation! 

As  mesh  sizes  grow  too  large  to  be  held  entirely  in  Intermediate 
Memory  they  can  be  held  in  the  Backing  Store  and  swapped  into 
Intermediate  Memory,  then  transposed  by  the  Intermediate  Map 
Unit.  Although  this  has  not  been  simulated,  the  excess 
capability  available  in  the  current  map  operations  points  to 
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the  likelihood  that  meshes  on  the  order  of  200x200x200.:  up  to 
240x240x240  could  be  processed'  at  close  to  the  one-gig’aflop 
rate.  It  should  be  obvious,  however,  that  the  total  problem 
solution  time  for  the  largest  case  will  be  greater  by  far  than 
the  acceptable  threshold  of  10-15  minutes  CPU  time  for  the 
nominal  100x100x100  problem. 

The  reality  of  the  above  conclusions  rests  on 

1)  the  degree  to  which  the  simulation  systems 
representing  the  CDC  FMP  are  true  and  valid 
engineering  models  of  the  actual  hardware  design; 

2)  the  sufficiency  of  the  object  code  produced  for 
simulation; 

3)  the  validity  of  the  extrapolations  made  based  on  the 
simulation  results. 

It  is  expected  that  analysts  at  NASA  and  CDC  will  continue  to 
exercise  these  simulators  for  their  own  research  to  determine 
the  quality  of  the  aforementioned  issues,  and  perhaps  to  locate 
more  accurately  the  knee  of  the  performance  curve. 


5.2  THREE-DIMENSIONAL  EXPLICIT  CODE 

As  stated  previously,  the  explicit  code  was  considered  in  a 
different  light  than  the  implicit  code.  In  particular,  the 
vectorizations  attempted  were  limited-  to  those  available  on  the 
STAR-100  computer.  This  permitted  measuring  the  ability  of 
programmer,  compiler,  and  machine  architecture  while  assuring 
that  the  metric  conversions  yielded  the  same  answers  as  the 
original  code.  The  characteristics  of  the  explicit  code  of 
interest  to  this  study  have  been 

1)  the  implicit  sections  (LZI,  LYI)  which  in  mathematical 
form  are  similar  to  the  implicit  portions  of  the 
implicit  code,  but  are  constrained  to  smaller  vector 
lengths ; 

2)  the  explicit  solver  schemes  (LX,  LY,  and  LZ)  which 
limit  the  potential  vector  lengths  because  of  J and  L 
recursion; 

3)  the  method  of  characteristics  (CHARAC)  which  exhibits 
conditional  processing  of  data,  based  on  the  data. 

As  in  the  case  of  the  implicit  code,  the  routines  of  interest 
were  vectorized,  then  actually  compiled  (not  pseudo-compiled  as 
in  the  implicit  code)  using  the  STAR-100  compiler.  The  STAR 
object  code  was  then  transliterated  directly  into  FMP  object 
code  and  the  results  were  simulated.  The  simulation  involved 
fragmenting  the  sequences  into  smaller  portions  for  processing 
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by  the  detailed  level  simulator  (LVL2),  then  aggregating  them 
into  whole  strings  for  simulation  at  the  higher  (LVL1)  level. 
The  first  attempt  at  this  led  to  FPRATES  which  were  100-300 
megaflops  for  the  30x30x30  case.  This  resulted  from  the 
transliteration  yielding  very  few  dyadic  and  triadic  operations 
in  the  pipelines.  The  simulation  input  was  then  subjected  to  a 
"sophisticated  compiler"  consisting  of  an  experienced  FMP' 
programmer.  The  resulting  input'  was  resubmitted  to  the 
high-level  simulator  and  the  following  results  were  obtained. 
(See  appendix  F for  the  simulator  runs  and  FMP  FORTRAN  source 
code . ) 

The  routines  VLX  and  VLYI  were  run  through  the  high-level 
simulator  (LVL 1 ) for  a variety  of  vector  lengths  to  demonstrate 
the  performance  range  for  those  sequences.  Runs  for  vector 
lengths  above  100  were  difficult  to  do  for  VLYI  because  of  the 
overflow  of  the  simulator  instruction  buffer.  From  this  raw  • 
data  a table  of  total  performance  is  developed  later. 


VLENGTH 

ao 

100 

600 

1000 

VLX 

FLOPS 

8833 

'29677 

H9670 

CLKPD 

1129 

2398 

7672 

28622 

FPRATE 

0.489E9 

0.773E9 

0.974E9 

1.040E9 

VLYI 

FLOPS 

1.31S6 

3.04E6 

.4.S7E7 

1.17E8 

CLKPD 

1 • 09E5 

2.57E5 

3.26E6 

8.82E6 

FPRATE 

0.750E9 

* 0*  730E9 

0.824E9 

0.826E9 

The  VLX  rates  given  for  vector  lengths  of  30  and  100  correspond 
to  the  mesh  sizes  30x30x30  and  100x100x100,  respectively.  The 
FLOP  and  clock  period  counts  for  the  corresponding  VLYI 
simulation  runs  reflect  the  processing  of  planes  of  data  in  the 
J by  K planes  only.  The  repeat  counters  at  lines  840,  1680,  and 
1900  of  the  VLX  simulation  input  had  to  be  scaled  by  one-fifth 
to  make  the  simulation  fit  within  the  GPSS  code  limitation.  The 
effect  of  this  scaling  is  to  reduce  the  effective  FPRATE  by 
0.01%  from  what  should  be  the  actual  rate.  In  order  to  provide 
correct  values  of  FLOPS  and  CLKPD  for  the  100x100x100  case,  the 
quantities  must  be  increased  as  follows:  lines  840  through  950 
yield  a total  of  182000  FLOPS  for  the  VLENGTH=1 00  case  in  the 
simulation  results.  This  number  should  be  five  times  greater, 
due  to  the  scaling  used,  or  910000  FLOPS.  The  total  clocks 
periods  required  for  a 5X  extension  of  these  loops  is  1.42E5  for 
a revised  FLOP  rate  of  0.73E9. 
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The  raw  data  above  was  further  extended  by  the  factors  30  and 
100  respectively  to  reflect  the  number  of  operations  needed  for 
all  three  dimensions  for  that  particular  mesh.  TURBDA,  LYC,  and 
CHARAC  were  estimated  by  hand.  First,  CHARAC  could  not  be 
estimated  with  the  simulator  since  the  number  of  operations 
credited  by  the  simulator  is  100£  rather  than  the  number  of 
one-bits  in  the  control  vector.  Second,  TURBDA  and  LYC  are 
obvious  vectorizable  entities  whose  performance  can  be  estimated 
easily  and  directly  from'  the  code. 


EXPLICIT  COOE  SUMMARIES 


MESH  SIZES 

30X30X30 

100X100X100 

TUR80A  . 
FLOPS 

4.87E5 

1.81E7 

CLKPD 

4.05E4 

1 .4666 

FPRATE  • 

0.7SE9 

0.775E9 

LYC 

FLOPS 

. 9.98E5 

3.07E7  s 

CLKPD 

1.4065 

•2.5466 

FPRATE 

0.44E9 

0.7SE9 

LYI 

FLOPS 

3.93E7 

3.13E8 

CLKPD 

3.27E6 

1.93E7.' 

FPRATE 

0. 75069 

1.015E9 

LX 

FLOPS 

7.98E6 

2.97E8 

CLKPD 

1.0 1E6‘.  , 

2.40E7 

FPRATE 

0-,  48969 

0.773F9 

Extrapolation  of  full  explicit  performance  is  fraught  with 
problems  due  to  the  lack  of  accounting  for  overlap  of  operations 
from  the  end  of  one  routine  into  the  beginning  of  another 
routine,  or  on  the  contrary,  the  conflicts  that  delay  the  start 
of  a routine  due  to  a previous  routine.  Time  and  resources 
didn’t  permit  a complete  evaluation  via  simulation.  Instead,  the 
simplification  used  for  extrapolation  was  to  assume  that  LY,  LX, 
and  LZ  all  execute  about  the  same  number  of  cycles  for  the  same 
number  of  operations  on  a symmetrical  mesh.  The  same 
simplification  was  used  for  LYC,  LZC  and  for  LYI,  LZI.  Grand 
total  then  consists  of  a linear  combination  of  LX,  TURBDA,  LYC, 
and  LYI  routines  as  follows: 

6*LX 

2*TURBDA 

4*LYC 

4*LYI 


grand  totals 

FLOPS  2.168 

CLKPD  K97E7 

FPRATE  .0.664E9 

TOTAL  RUN  FLOPS  ' 5.38E10 

TOTAL  RUN  CLKPO  5.06E9 


3.1969 
2.3468 
0 .8569 
8.17E11 
5.99610 


5.3  SPECTRAL  WEATHER  MODEL 

The  FFT  routine  and  Legendre  (SPCFOR)  routines  were  simulated 
with  the  following  mesh  parameters 


FFT  length  32 
FFT  length  100 
FFT  length  200 
FFT  length  2000 

FFT  32-bit  100 
FFT  32-bit  500 
FFT  32-bit  2000 


0;518  GFL0P 
0.858  GFL0P 
0.973  GFLOP 
1.145  GFL0PS 

1.326  GFLOPS 
2.027  GFLOPS 
2.246  GFLOPS 


Legendre  transform  — 25  layers,  6 waves,  15  gaussian  latitudes 
0.837  GFLOP 

Spectral  model  overall  estimate  in  its- present  configuration 
0.879  GFLOP 
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The  spectral  code  was  extrapolated  by  assuming: 

The-  FFT  and  SPCFOR/FORSPC  routines  constitute  the  bulk 
of  the  processing; 

The  remaining  code  sequences  are  vectorizable  to  the  same 
degree  as  the  FFT  and  SPCFOR  routines; 

FORSPC  data  can  be  estimated  from  the  simulated  data  for 
SPCFOR. 

A formula  from  reference  3 was  then  used  to  estimate  the  total 
number  of  FLOPS.  Two  problem  sizes  were  used  to  establish  the 
performance  range.  The  first  — 25  layers,  6 waves,  and  15 
gaussian  latitudes  — was  the  scaling  in  the  original  spectral 
metric  provided  by  Ames.  The  second  size  is  one  determined  by 
CDC  and  the  code  originators  to  be  reasonable  for  actual 
production  runs  of  this  type  research  model — 48  layers,  21 
waves,  and  55  gaussian  latitudes.  The  following  table 
summarizes  the  data  and  extrapolation. 


PROBLEM  SIZE 


25*  6*15 

48t2W55 

TOTAL  flops 

3.22E6~  \ 

8.65E7 

FFT 

FPRATE 

0.970E9 

1.11E9 

% OF  TOTAL.  FLOPS 

0.67 

0*41 

FLOPS 

2.16E6 

3.55E7 

CLKPOS 

1.39E* 

2.00E6 

SPCFOR  . 

FPRATE 

0.6I0E9 

1 « 14£9‘ 

% OF  TOTAL  FLOPS 

0.14 

0*34 

FLOPS 

4.S1ES 

2.94E7 

CLKPOS 

4.62E4 

1 * 6 12E6 

FORSPC 

FPRATE (ESTIMATE) 

- 0.5  - 

0.9 

% OF  TOTAL  FLOPS- 

0,06 

0.17 

FLOPS 

1.93ES 

1.47E7 

CLKPOS 

' 2.42E4 

1.0E6 

TIME  WEIGHTED'  SUM 

OF  FFT.  SPCFOR* 

AND  FORSPC 

% OF  TOTAL  FLOPS 

0.86 

0.92 

FLOPS 

2.T7E6 

7.96E7 

CLKPOS 

2.09ES 

Vf6lE6 

FPRATE 

0.827E9 

1.08E9 
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5.4  FINITE  DIFFERENCE  WEATHER  MODEL 

Only  one  routine  from  the  GISS  code  was  simulated.  LINKHO  had 
become  the  major  concern  of  CDC  analysts  when  original 
projections  showed  performance  below  50  megaflops  for  that 
routine.  The  size  of  the  GISS  code  had  prohibited  a complete 
analysis  to  the  recoding,  compiling,  and  simulation  level’.  As  a 
result,  LINKHO  and  AVRX  were  studied  to  see  if  there  were  some 
fundamental,  problems  that  existed  in  the  code  which  reflected 
serious  problems  in  the  FMP  architecture.  The  LINKHO  subroutine 
was  analyzed  and  the  first  computational  section  was  chosen  for 
simulation  (due  to  the  sheer  volume  of  code  in  LINKHO)  and  a 
single  page,  felt  representative  of  the  majority  of  the  routine, 
was  subjected  to  the  simulator.  The  simulation  input  data  can 
be  found  in  appendix  F. 

The  AVRX  routine  was  estimated  by  hand,  with  the  inclusion  of 
the  effect  of  vector  startup  times.  The  extrapolation  used  is 
based  on  the  code  as  presented  in  figures  7 and  8 of  Division  4, 
the  analysis  of  the  weather  codes.  There  are  4*23*5*2+6*4*2=968 
floating  point  operations  reflected  in  figure  7.  There  are 
( 23*5*2+6*2) *2=484  floating  point  operations  reflected  in  figure 
8.  Assuming  the  compiler  is  capable  of  scheduling  simultaneous 
scalar  execution  with  the  Vector  Unit  for  some  computations, 

( l3+6)*2*2=76  machine  cycles  would  be  required  to  complete  the 
sequence  in  figure  7>  for  a rate  of  0.8  gigaflop.  The  sequence 
in  figure  8 would  require  (3+6)*2*2*2=72  machine  cycles,  for  a 
rate  of  only  0.42  gigaflop  due  to  the  inherently  short  vector 
lengths.  Together,  a total  of  1452  floating  point  operations, 
requiring  148  machine  cycles,  yields  a rate  of  0.62  gigaflop. 
Note  that  these  timings  are  for  64-bit  mode,  while  32-bit  mode 
is  sufficient  for  the  mathematics  in  the  AVRX  code. 

The  rate  given  is  for  a relatively  course  grid;  using  the 
resolution  present  in  the  original— Ames-supplied  metric  results 
in  a grid  of  46*72.  This  denser  grid  should  require 
24*43*5*2+624*2=10608  floating  point  operations  based  on  the 
sequence  in  figure  7 and  (43*5*2+6*2) *2=884  operations  in  the 
sequence  in  figure  8.  The  length  of  vectors  in  this  fine  grid 
model  in  figure  7 is  1104  elements,  and  that  in  figure  8 is  43 
elements. 

With  the  longer  vector  lengths  it  is  expected  that  the  Scalar 
Unit  will  sustain  parallel  execution  with  the  Vector  Units.  This 
last  example  would  require  ( 1 38+6 ) *2*2=576  machine  cycles  for 
the  sequence  in  figure  7 and  (6+6 )*2*2*2=96  cycles  for  the 
sequence  in  figure  8.  Thus,  if  the  greater  resolution  given  in 
the  original  model  is  permitted,  the  FMP  could  achieve 

( 10608+884)/(576+96)=1 .07  gigaflops 
for  this  portion  of  the  GISS  code. 
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5.5  REFLECTIONS  ON  THE  PERFORMANCE  ANALYSIS 

The  process  of  analyzing  the  performance  of  a candidate  computer 
system  for  this  report  has  become  more  involved  than  originally 
anticipated.  This  can  be  attributed  to  two  factors: 

1 . . The  simulator  system  could  not  process  a total  program; 

programs  had  to  be  broken  into  pieces,  and  each  piece 
run  independently.  Some  runs  had  to  be  made  with  the 
overlapping  code  between  pieces  to  determine  if  the 
independent  runs  are  valid.  (The  effect  of  splitting 
code  is  to  create  ’end-case*  values  for  some  cases,  as 
the  simulator  counts  all  cycles  needed  to  complete  the 
last  operations.  In  a non-split  case  thi3  last 
operation  may  be  overlapped  with  operations  from  a 
subsequent  piece  of  code.  The  question  then  becomes 
how  to  compute  the  aggregate  total  of  clock  cycles  in 
these  ’end-case*  situations.)  In  any  event  the 
composite  timings  must  be  computed  by  hand,,  with  the 
attendant  risk  of  manual  error.  The  simulator  should 
be  modified  to  accept  a much  larger  sequence  of 
instructions,  both  by  eliminat.i-ng  the  expansion  of 
input  cards  that  now  takes  place  when  an  R card  is 
encountered  and  by  enlarging  the  instruction  buffer 
itself.  Using  the  CYBER  175  revealed  that  the  computer 
time  required  for  the  high-level  (LVL1)  simulator  to 
process  large  programs  is  quite  within  reason  ( 1 to  2 
minutes  for  the  entire  implicit  code  perhaps) . In 
addition,  the  FPRATE,  FLOPS,  and  CLKPD  values  must  be 
output  in  some  machine-readable  form  so  that  further 
extension  or  computation  can  be  performed  with  a 
FORTRAN  or  BASIC  program  to  produce  final  outputs  for 
analaysis . 

2.  Until  the  full  data  for  a given  code  had  been 
aggregated  and  analyzed,  weak  points-  in  the  hardware 
complex,  or  the  coding  or  compiling  scheme,  could  not 
be  evaluated  properly.  The-  result  of  this  was  that 
after  laborious  simulation,  aggregation,  and 
projection,  an  area  of  the  software/hardware  was  found 
to  be  eligible  for  more  'tuning*.  Once  the  code  was 
modified  the  same  process  was  repeated  again,  and 
again,  and  again.  In  addition  to  the  LVL1  runs, 
segments  had  to  be  submitted  to  the  LVL2  simulator  to 
make  sure  that  the  memory  conflicts  and  scalar 
interactions  of  the  detailed  simulator  produced 
consistent  performance  figures  at  both  levels  of 
simulation.  Computer  time  did  not  prove  to  be  the 
limiting  factor  -in  this  process;  instead  the  resources 
able  to  perform  the  analysis  and  system  design 
modification  became  the  scarce  commodity  on  this 
program. 

If  time  had  permitted,  the  range  of  problem  sizes  should  have 
been  expanded  to  encompass  the  key  areas  of  the  performance 
curve  (the  area  of  the  knee)  so  that  the  optimal  problem  sizing 
could  be  determined.  It  was  felt  that  establishing  the  range 
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was  a more  important  objective  than  proving  the  performance  for 
a given  problem  statement.  (Hence  no  attempt  was  made  to  make 
complete  runs  for  the  100x200x50  grid  sizes.)  The  symmetrical 
grids  of  30x30x30  and  100x100x100  were  used  as  end-points 
because  they  represented  two  -worst-case  situations  --  one  with 
extremely  short  vector  lengths  in  all  dimensions,  the  other  with 
maximum  data  storage  and  mapping  operations  in  all  directions. 

In  the  CDC  FMP,  if  all  problems  could  be  restricted  to  forms 
li-ke  100x200x50,  the  flow  mesh  would  be  stored  and  processed 
differently,  with  worst-case  map  operations  being  performed 
along  the  short  (50  element)  axis  only. 

For  future  consideration,  any  data  dependent  features  of  metrics 
should  be  identified  and  some  method  of  parameterization  of  the 
simulation  and  performance  analysis  developed.  For  example,  in 
the  CHARAC  routine  extrapolation,  a simple-minded  scheme  for 
determining  how  many  operations  to  CREDIT  to  the  simulation  was 
introduced. 

Certainly  a better  set  of  criteria  could  be  developed  for  later 
simulation  runs.  Similar  parameters  could  be  provided  for 
routines  such  as  MUTUR  in  the  implicit  code. 

Some  ambiguity  exists  in  the  manner  in  which  FLOPS  are  counted. 
Some  analysis  will  credit 

A=-1 

A=ABS (B) 

as  one  floating  point  operation  each;  this  has  not  been  done  in 
this  report.  Other  .vendors  claim  that 

B=1/C 

is  one  floating  point  operation  while 
B=A/.C 


is  counted  as  two  operations.  More  complicated  to  analyze  is 
the  presence  of  a hardware  function  such  as  SQRT.  How  many 
floating  point  operations  should  be  credited  to  this  operation? 
Some  analysts  claim  one,  others  claim  5,  and  some  even  claim  13. 
In  the  codes  simulated  for  this  report,  the  SQRT  approximation 
took  11  vector  operations  (where  the  divide  is  counted  as  one 
operation) . It  should  thus  be  claimed  that  SQRT  be  counted  as 
11  operations  if  a hardware  SQRT  were  to  be  implemented.  A 
standard  set  of  criteria  should  be  developed  for  this  aspect  of 
performance  analysis  for  any  future  studies. 

If  a variety  of  simulators  is  to  be  used  to  evaluate  a variety 
of  candidate  architectures,  it  would  be  desirable  for  NASA-Ames 
to  develop  a simple  'validation*  routine  which  could  be  used  to 
provide  a measure  of  total  FLOPS,  FPRATE,  and  CLKPD  (clock 
periods)  for  a variety  of  functions  whose  totals  could  be 
computed  reliably  and  .canonically.  This  would  provide  a form 
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of  'performance  diagnostic'  to  verify  certain  characteristics  of 
the  simulation  and  extrapolation  system  being  used.  I;t  is  only 
after  confidence  can  be  established  in  the  modeling  system  that 
the  results  of  analyses  such  as  these  can  be  viewed 
realistically. 


5.6  BOTTOM  LINE 

A few  general  comments  should  be  made  about  the  results  just 
presented. 

1.  The  implicit  and  explicit  codes  run  in  about  the  same 
amount  of  time.  For  the  64-bit  version,  the  implicit 
code  would  require  14.4  minutes  for  256  time- steps 
while  the  explicit  version  requires  15.9  minutes  for 
256  time  steps.  • 

2.  The  explicit  code  runs  substantially  less  than  the 
one-gigaflop  rate  in  the  form  simulated  for  this  study. 
It  was  discovered  that  if  a hardware  square  root  were 
employed,  the  explicit  code  FPRATE  could  be  improved  to 
0.93  gigaflop,  as'  long  as  11  FLOPS  could  be  credited  to 
that  operation.  If  the  explicit  code  were  to  be 
restructured  to  process  slabs  similar  to  those  in  the 
implicit  code,  yielding  minimal  vector  lengths 
(excluding  CHARAC)  of  600,  the  overall  .rate  for  the 
explicit  code  can  be  elevated  to  1.004  gigaflops  (even 
without  the  hardware  square  root) . This  is  due  to  the 
fact  that  the  LX,  LY,  LZ , and  TRIDIA  vector  lengths  of 
100  are  below  the  critical  point  in  the  FMP  performance 
curve,  while  lengths  of  600  are  at  the  'knee*  of  that 
curve . 

3.  A wide  range  of  problem  sizes  can  be  accommodated  by 
the  FMP  with  performance_rates  at  or  near  the 
one-gigaflop  threshold,  for  the  implicit  code. 

4.  The  minimal  rate  for  any  of  the  ’small  problems', 
regardless  of  whether  the  'aero'  codes  or  weather  codes- 
are  being  dealt  with,  is  greater  than  600  megaflops. 
This  is  for  mesh  sizes  of  less  than  those  expected  to 
be  employed  on  the  actual  FMP  for  production  work. 

5.  The  user'  of  * 32-bit  forms  for  the  codes  can  yield 
substantial  benefits,  no.t  only  a factor  of  almost  2 in 
performance,  but  in  the  ability  to  store  larger 
problems  in  the  available  memory. 
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6.  With  some  effort,  even  essentially  ’non-vector*  code 
forms  such  as  MUTUR,  CHARAC,  and  LINKHO  can  be 
structured-  to  provide  reasonably  effective  ’parallel’ 
operations.  The  ’physics’  solutions  in  this  arena  have 
not  been  attacked  as  yet,  however. 

7.  The  effective  use  of  the  hardware  system  involves  a 
process  of  ’rethinking’,  ’ restructuring ’ , and  code 
’tuning’  to  achieve  o.ptimal  results.  The  burden  of 
achieving  maximum  performance  with  the  current 
generation  of  technology  must  be  shared  by  the  software 
and  hardware  developers  alike. 

8.  A reliable,  approachable,  valid,  and  credible 
computerized  simulation  system  is  essential  to  the 
successful  evaluation,  as  well  as  implementation,  of 
candidate  architecture  for  the  NASF . 
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6.0  SYSTEM  DESIGN 


One  of  the  few  unchanging  proposals  by  Control  Data  for  the  NASF 
is  the  overall  system  design.  It  is  based  on  an  interconnection 
scheme  called  the  Loosely  Coupled  Network  (LCN)  which  was 
described  in  detail  in  reference  2.  A more  recent  discussion  of 
the  LCN- and  the  hardware  and  software  support  using  -the 
Programmable' Device  Controller  (PDC)  may  be  found  in  Division  4, 
Volume  II  of  this  report.  At  the  outset  it- was  realized  that 
the  NASF  would,  realistically  involve  an  amalgam  of  dissimilar  - 
computing  equipment,  including  equipment  alien  to  Control  Data 
Corporation.  The  fundamental  underpinning  of  the  LCN  is  its 
ability  to  interconnect  a wide  variety  of  equipments  spread  over 
a vast  geography.  It  is  this  property  that  makes  the  LCN 
immediately  attractive  for  the  NASF.  Figures  20  and  21,  shown 
in  a previous  section,  illustrate  the  overall  system  . 
organization,  with  the  FMP  represented  as  a single  functional 
entity.  The  front-end  processors,  or  Support  Processing  System 
(SPS),  are  attached  to  the  network  trunk  and  thus  share  a number 
of  the  global  resources  (such  as  the  819  disks)  with  the  FMP.  A 
certain  number  of  peripherals  are  attached  directly  to  each  SPS 
as  a locally  managed  resource.  The  LCN  makes  use  of  one  or  more 
serial  data  trunks  which,,  using  existing  products,  can  transfer- 
data  at  peak  rates  of  50  megabits  per  second. 

The  serial  trunk  can  accommodate  up  to  32  attachments  so  that 
all  entities  on  the  trunk  become  members  of  a "party  line"  and 
can  thus  communicate  with  complete  flexibility,  with  the 
possibility  that  trunk  contention  may  reduce  effective 
bandwidth.  To  solve  this  problem  the  LCN  has  a unique- contention 
resolution  system  which  is  discussed  in  Appendix  A,  Division  4, 
Volume  II.  Aside  from  the  archival  storage  and  graphics 
subsystems  which  are  attached,  the  key  system,  resource  is  the 
phalanx  of  high  performance-  disks  which  are  attached  to  the 
trunk  and  serve  as  the  medium  of  staging  jobs  to/from  the  FMP' 
from/to  the  SPS. 

Specifications  for  the  systems  components  in  this  design  can  be 
found  in  Volume  II.  The  choice  of  SPS  is  highly  dependent  upon 
the  amount  of  activity  that  is  anticipated  from  interactive 
operation  and  upon  the  decision  as  to  where  the  functions  -of 
mesh  generation  and  compiling  should  be  performed.  For  this 
report  both  functions  are  assumed  to  be  done  on  the  SPS.  The 
sizing  of  the  SPS  at  this  point  seems  to  require  machines  of  the 
CYBER  175  class.  Using  standard  software  components  the 
configuration  of  two  such  machines'  sharing  an  ECS  memory  for 
coordination  and  residence  of'  system  wide  tables  is  called  for. 
Perhaps  later  generations  of-  hardware  may-  be  configured 
differently  but,  for  purposes  of  costing  and  sizing  the 
installation,  it  is  expected  that  this- level  of  SPS  is 
necessary. 
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As  there  is  much  redundancy  planned  for  the  FMP,  so  too  is  the 
system  designed  around  redundant  trunks,  processors,  and  disks 
so  that  it  can  survive  one  or  more  failures  without  losing 
function,  or  in  most  cases,  without  significant  degradations  in 
performance.  The  trunk  capacity  has  deliberately  been  designed 
for  excess  performance.  The  major  reason  is  the  expectation 
that  future  peripheral  and  SPS  technology,  will  -provide  hardware 
capable  of  taxing  the  system. 

Job  flow  has  been  discussed  previously,  however,  the 
relationship  of  the  redundant  components  was  not  considered.  It 
is  imperative  that  all  components  in  such  a complex  system 
continually  undergo  strenuous  exercise  to  make  sure  they  are 
still  viable.  One  important  way  to  accomplish  this  is  to  rotate 
each  redundant  component  into  operational  use  on  a regular 
basis,  or  better  still,  to  have  redundant  components  share  the 
workload  on  a continuous  basis.  This  latter  system  is  employed 
in  the  Control  Data  NASF  design.  There  are  no  "stand-by" 
components;  instead,  all  elements  of  the  system  work  on  the 
problem  at  hand,  with  the  option  to  shut  down  or  be  shut  down 
and  have  the  load  automatically  assumed  by  a partner.  Thus  all 
trunks  will  carry  data  over  the  execution  of  a job.  When  one 
trunk  encounters  a failure  it  goes  off-line;  without  changing 
status  tables,  data  transfers  continue  using  the  remaining 
trunks.  The  system  can  withstand  the  loss  of  an  entire  trunk 
and  still  maintain  its  throughput.  In  the  case  of  an  SPS  going 
out  of  action,  some  loss  in  throughput  may  be  sensed,  but  with 
proper  sizing  the  loss  of  ability  will  be  nearer  10%  than  the 
apparent  50%. 

The  proposed  configuration  is  certainly  open  to  many  alternative 
strategies,  with  the  provision  that  everything  must  adapt  to, 
and  be  harmonious  with  the  LCN.  Several  smaller  processors  may 
be  indicated,  rather  than  a pair  of  SPS  processors.  It  is 
important  to  view  the  blocks  in  the-diagram  more  as  functions 
than  as  actual  hardware  components.  For  example,  the  FMP  is 
provided  with  a CYBER  18  or  similar  class  computer  whose 
existence  is  dedicated  to  serving  as  the  Maintenance  Control 
Unit  for  the  FMP.  If  the  ultimate  NASF  consisted  only  of  an  FMP 
provided  from  Conrol  Data,  with  all  other  equipment  being  alien, 
then  the  CYBER  18  would  be  considered  integral  to  the  FMP 
design.  However,  the  fact  has  been  stressed  that  all 
maintenance  functions  are  communicated  to  the  FMP  via  standard 
LCN  messages.  Thus  software  that  can  be  interfaced  to  such 
messages  can  reside  anywhere  in  the  system.  In  fact,  even  with 
a CYBER  18  stand-alone  MCU  present,  certain  functions  such  as 
deadstart  and  recovery  must  also  be  provided  on  the  SPS  as  a 
backup . 

In  a similar  manner,  the  function  of  FMP  manager  can  reside  on 
the  SPS  or  be  distributed  among  a number  of  processors.  As  an 
example,  the  FMP  manager  function,  or  critical  portions  thereof, 
like  the  job  start  and  stop  and  memory  allocator,  might  be 
provided  in  backup  software  form  on  the  CYBER  18  MCU.  Then  in 
the  event  of  a catastrophic  failure  of  the  SPS  or  perhaps  when 
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the  SPS  is  undergoing  some  special  off-line  tests,  jobs  could 
still  be  pushed  through  the  FMP. 


6.1  SYSTEM  TRAFFIC  FLOW 

To  determine  the  efficacy  of  the  system  design  in  concert  with 
the  FMP,  a simulation  system  was  created'  to  assist  in  the 
analysis  of  job  flow  through  the  entire  ensemble.  Again,  as  for 
the  FMP,  it  was  found  to  be  advantageous  to  create  two  levels  of 
simulation  one  highly  detailed  in  areas  of  design  concern,  the 
other  intended  to  demonstrate  the  overall  performance  of  the 
system.  The  simulators  have  been  used  to  verify  the  sizing  of 
the  system  components  as  well  as  the  probable  flow  of  control 
message  and  data  traffic  throughout  the  system  due  to-  workloads 
projected  Ames  study  personnel. 

Divisions  1 and  2 of  Volume  IV  contain  descriptions  of  these 
simulators  and  reference  information  in  the  form  of  a "user's 
manual".  As  with  the  FMP,  the  more  detailed  model  was  used  to 
validate  certain  assumptions  used  in  the  higher  level  model. 
Among  the  design  conclusions  drawn  from  this  model  were  early 
decisions  regarding  the  size  of  data  buffers  needed. at  each  PDC 
node  in  the  system  (1536  words  or  three  disk  sectors),  and  the 
effective  transfer . rates  of  the  major  peripherals,  with  details 
such  as  latency,  message  turnaround  and  trunk  contention  taken 
into  account.  Effective  transfer  rates  for  the  819  class  disk 
to  the  SPS  were  found  to  be  7-67  megabits  per  second,  for  the 
graphics  subsystem  about  1.94  megabits  per  second,  at  worst,  and 
the  effective  streaming  rate  to  the  FMP  was  found  to  be  17.4 
megabits  per  second  per  disk  controller . 

These  numbers  were  used  to  construct  the  higher  level  model 
which  was  then  subjected  to  the  workload  analysis  provided  by 
NASA-Ames  (NASF  Usage  Model,  Version  79.001).  A discussion  of 
the  results  of  this  simulation  run  will  be  found  in  Division  11, 
of  this  report.  The  bottom  line  of  this  analysis  is  that'  while 
the  network  trunk  is  underutilized,  the  SPS  and  the  FMP  are 
involved  in  a tight  race  to  see  which  one  will  be  the  bottleneck 
in  the  system.  This  is  a good  sign  because  it  indicates  that 
the  key  resources  are  in  balance  in  the  system.  A second,  and 
obvious  observation  from  the  simulation  results  is  that  a full 
20  hours  of  actual  FMP  work  cannot  be  done  on  the  FMP  during  a 
continuous  20  hour  interval  due  to  the  variety  of  activities 
needed  to  start  such  a session  into  operation  and  to  wind  it 
down . 

Another  obvious  observation  is  that  the  tradeoffs  between 
turnaround  and  throughput  are  clearly  evident  in  the  workload 
simulations.  As  long  as  a queue  can  be  maintained  at  the  FMP, 
the  FMP  can  be  kept  busy  and  throughput  maximized.  The  very 
existence  of  such  a queue  precludes  the  FMP  being  able  to 
produce  fast  turnaround  in  any  given  random  case.  In  fact,  with 
all  the  SPS  and  trunk  activity  requirements  in  this  system,  the 
overhead  imposed  on  turnaround  amounts  to  about  50?  of  the  job 
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execution  or  more.  Thus  a 20-minute,  large  scale  production  run 
may  require  10-15  minutes  of  additional  processing,  measured 
from  startup  in  the  system  to  emergence  of  the  results  at  a user 
output  device. 

As  noted  in  the  writeup,  the  turnaround  conclusions  were  reached 
without  employing  any  form  of  priority  algorithm,  although  the 
simulator  is  capable  of  handling  priorities.  It  is  expected 
that  as  the  behavior  of  the  system  becomes  understood,  RADL  and 
Ames  will  employ  some  of  the  other  options  and  different 
workload  schemes  to  test  the  system  in  more  realistic  and 
comprehensive  ways. 


6.2  SYSTEM  SOFTWARE 

The  resource  commitments  involved  in  even  moderate  software 
development  projects  preclude  the  intrusion  of  elegance  or  a NIH 
(Not  Invented  Here)  attitude  in  the  NASF  system.  This  is 
particularly  true  in  the  area  of  system  software,  which  includes 
all  software  elements  not  residing  on  the  FMP  except  the  FMP 
compiler,  loader,  and  FMP  manager  (which  will  reside  on  the 
SPS). 

A hardheaded  approach  must  be  pursued  in  the  specification  and 
development  of  the  system  software  because  of  the  magnitude  of 
such  efforts  and  the  far  reaching  impacts  on  the  NASF  of 
software  maintenance,  compatibility,  training,  and  effectivity. 
First,  the  identification  and  specification  of  any  system’s 
software  function  that  is  not  already  in  existence  and  proven  in 
at  least  one  operational  environment  must  be  avoided  like  "the 
plague”.  Given  the  scope  of  FMP  oriented  systems  and 
applications  software  that  must  be -developed  in  the  short  period 
of  this  development,  the  project  can  ill-afford  to  experiment 
with  "just  one  more  good  idea".  Therefore  it  is  strongly  urged 
that : 

1)  functional  requirements  for  the  system  software  include 
no  more,  nor  less,  than  those  functions  already 
demonstrated  and  available  in  standard  computer 
software  offerings; 

2)  the  system  software  not  be  "based"  on  an  existing 
system,  but  instead  be  limited  to  that  system  and  its 
standard  derivatives  as  provided  by  the  system's 
manufacturer ; 

3)  in  particular,  the  CDC  NOS  (Network  Operating  System) 
which  manages  and  controls  a wide  variety  of  large 
scale  and  super  computers  (the  CYBER  170  and  CYBER  200 
families)  provides  a good  model  to  be  used  to  specify 
functional  and  performance  criteria  for  the  NASF. 
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The  choice  of  NOS  comes  about  because  of  the  considerable  number 
of  machine-years  that  have  been  engaged  in  its  development  and 
maturity  as  a large  scale  operating  system.  The  high-throughput 
in  interactive  mode  makes  it  an  excellent  choice  for  SPS 
functions  which  must  manage  and  direct  the  myriad  of  terminals 
which  will  ultimately  be  attached  to  the  NASF.  The  NOS  system 
will  provide  a standard  software  "package”  which  will  include 
PDC  and  LCN  support  software  for  interconnection  to  a 
multiplicity  of  attached  processors. 

If  the-  NASF  is  severely  limited  to  using  an  extant  system,  then 
many  applications  can  be  transferred  directly  from  CYBER  family 
systems  to  the  NASF  for  execution.  Users  thus  need  to  become 
familiar  with  only  one  set  of  functions  and  command  language 
constructs.  Debugging  of  NASF  software  (with  the  exception  of  - 
actual  FMP  debugging)  can  take  place  in  any  system  supporting 
NOS.  The  FMP  manager  then  becomes  just  another  job  to  be 
scheduled  for  execution  under  the  NOS  system,  and  no  special 
interfaces  need  be  written  for  the  FMP  and  thus  imbedded  in  the 
basic  operating  system.  Instead  the  software  provides  a 
standard  communications  methodology  for  the  FMP  manager  and  the 
FMP. 

The  specification  of  systems  software  functionality  can  then  be 
drawn  from  the  current  Control  Data  NOS  documentation  with  the 
following  additions  that  are  under  development  for  release  well 
in  advance  of  the  NASF  availability: 

1.  Loosely  Coupled  Network  system,  permitting  connection 
of  a multiplicity  of  devices  and  processors. 

2.  Common  data  base  manager  which  controls  a-  common  pool 
of  shared  mass  storage  devices  on  the  network  trunk. 

3.  A graphics  support  system  similar  in  function  to  the 
standard-  SCOPE  offering  called  GODAS. 

4.  An  archival  storage  management  system  based  on  the 
Control  Data  MSS  (tape  library)  concept. 

Because  of  its  conceptual  position  in  the  NASF  structure,  the 
heart  of  the  system  will  be  the  SPS.  Therefore,  if  more  than 
one  vendor  is  to  be  identified  to  supply  hardware  for  the 
system,  it  is  urged  that  the  SPS  vendor  be  held  responsible  for 
integration  of  all  alien  hardware,  and  adapting  the  alien 
hardware  "drivers"  (or  local  operating  systems)  into  the 
system's  software  structure  provided  by  the  SPS. 


6.3  SYSTEM  AVAILABILITY 

Division  6 of  this  report  provides  an  update  of  the  analysis  of 
Reliability,  Availability,  and  Mantainability  factors  that  are 
expected  to  influence  the  operational  use  of  the  FMP.  Some  of 
this  discussion  has  had  further  elaboration  in  the  hardware 
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design  portion  of  this  division  of  the  report.-  There  .are  three 
probabilities  that  are  of  interest  to  the  consumer  of  such  a 
large  system. 

1.  The  probability  of  a single  failure  occurring  anywhere 
in  the  system  during  operational  use  time. 

2.  The  probability  of  a failure  occurring  which  causes  an 
interruption  in  system  service. 

3.  The  probability  that  an  undetected  error  will  occur 
which  will  affect  result  data  in  a significant  way. 


As  will  be  seen  from  the  supplementary  discussions  on  this 
subject,  the  first  item  is  directly  related  to  the  total  parts 
and  interconnection  count  of  the- hardware.  Since  system  failure 
can  occur  in  software,  some  factor  must  be  generated  for  t'hat 
aspect  which  can  be  combined  with  the  hardware  factors.  If  a 
standard  operating  system  such  as  NOS  is  used  for  extrapolation 
of  the  software  error  rate,  it  can  be  seen  that  from  100-200 
hours  of  production  time  elapse  between  software  errors, 
compared  with  the  9-20  hours  for  the  hardware.  Thus  the 
hardware  failure  rate  dominates  in  this  arena. 

The  second  probability  is  related  directly  to  the  first 
probability  but  includes  the  effects  of  redundant  hardware 
components  and  other  error  controls  such  as  SECDED.  From  the 
RAM  study  it  can  be  seen  that  without  SECDED  the  FMP  is  totally 
infeasible,  for  the  MTBF  is  far  too  short  to  ensure  a high 
system  availability.  Software  and  firmware  error  recovery  and 
restart  are  essential  also  to  prevent  an  unacceptable  period  of 
machine  interruption.  A system  interruption  is  one  that  takes 
all  the  resources  out  of  action  for  any  job  submitted.  It  is 
permissible  then  to  abort  a particular  job  because  of  the  loss 
of  a single  disk,  or  an  unrecoverable  error  in  data  trunks,  and 
immediately  start  another  job  without  calling  the  event  a 
’’system  interruption". 

This  second  probability  is  also  highly  dependent  on  the 
maintenance  strategies  employed,  also  discussed  in  the  hardware 
design  section  of  this  report. 

The  third  probability  is  the  most  difficult  to  measure,  and  is 
dependent  on  how  much  checking  can  be  done  in  the  total  system. 
In  the  FMP,  SECDED  and  the  variably  redundant  Vector  Units  are 
attempts  at  providing  checking  in  crucial  areas.  It  cannot  be 
expected  that  the  pair  of  SPS  machines  could  be  checking  each 
other,  since  they  will  both  be  kept  quite  busy  managing  the 
system.  It  is,  however,  worthy  of  consideration  to  postulate  a 
more  powerful  pair  of  SPS  processors  which  would  each  be  able  to 
perform  redundant  checking  of  the  partner  machine  on  a variable 
load  basis  (much  as  in  the  FMP  Vector  Unit) . This  has  not  been 
pursued  further  because  of  the  implication  of  insideous  change 
in  the  kernels  of  the  otherwise  standard  software. 
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7.0  FACILITIES  STUDY 


In  previous  reports  (refs.  1,  2)  the  various  aspects  of  the  NASF 
design  and  construction  were  addressed  in  some  detail.  For  this 
report  an  update  of  the  schedule  and  cost  information  are 
provided.  The  scheduling  methodology  is  PERT  based  and  contains 
certain  data  relating  to  lead  times  of  proprietary  Control  Data 
technologies.  For  this  reason  the  PERT  schedule  and-  cost  update 
information  will  be  supplied  under  separate  cover  (as  Volume  V) 
for  limited  distribution  as  an  adjunct  to  the  body  of  this 
report . 

The  basic  principles  of  the  schedule  still  hold  true  from  the 
previous  studies;  however,  some  adjustments  to  times  have  been 
made  as  continued  investigation  mandated. 

a)  A. 30-month  detailed  design  and  simulation  effort  is 
needed  before  final  commitments  can  be  made  on  costs 
and  reliability. 

b)  Approximately  19  months  after  design  completion,  the 
NASF  should  be  available  for  limited  production  work. 
Four  months  later  the  entire  NASF  should  be  in 
full-time  production. 

c)  Phased  installation  of  NASF  components  is  recommended 
and  projected.  A first  installment  of  one  SPS,  a set 
of  819  disks,  at  least  one  archival  storage,  one  LCN 
trunk,  and  one  graphics  support  system  should  be 
installed  at  Ames  for  software  development  during  the 
FMP  design  phase. 

d)  The  FMP  installation  would  also  be  phased,  with  one-half 
the  Intermediate  Memory  and  no  Backing  Store  being  in 
the  first  increment.  The_Backing  Store  would  be  added 
in  two  increments  with  the  final  increment  of  the 
Intermediate  Memory  being  scheduled  as  needed.  This 
permits  spreading  out  costs  and  resources  over  several 
years  while  still  having  production  capacity  on-line  as 
early  as  possible. 

e)  Software  development  is  predicated  on  the  strategies 
outlined  previously,  that  is,  the  only  developments 
being  the  compiler,  loader,  and  FMP  manager,  all  of 
which  can  be  developed  on  the  SPS.  This  effort  must 
start  at  the  same  time  as  the  FMP  design. 

The  implication  of  these  latter  points  is  that  the  parallel 
procurement  strategy  being  contemplated  by  NASA,  which  proceeds 
to  the  point  where  detailed  FMP  designs  are  pursued  and  a single 
one  chosen  for  construction,  must  consider  the  lead  time  for 
software  development;  this  must  begin  concurrently  with  the 
design  phase.  This  means  that  not  only  machine  design  must  be 
evaluated  and  conducted  during  the  parallel  phase,  but  that 
software  development  will  be  going  on  also.  Who  pays  for  this 
effort  with  the  attendant  risks  that  the  resulting  effort  will 
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be  discarded  is  a subject  that  needs  to  be  fully  explored  before 
any  further  procurement  action  is  undertaken. 


7.1  RISK  ANALYSIS 

As  evidenced  by  the  fairly  conservative  design  approaches-  taken 
on  the  FMP  during  this  phase  and  the  restriction  of  software 
development  for  the  NASF,  Control  Data  has  labored  to  reduce  the 
risks  of  this  project  to  a level  acceptable  to  rational  customer 
and  manufacturer  management.  The  only  technological  risk 
presently  permitted  has  been  in  the  Backing  Store  area  where  a 
component  is  not  yet  available,  but  for  which  two  backup  schemes 
are  viable  — use  of  a less  aggressive  memory  part  that  is  now 
coming  into  production,  with  a consequent  reduction  in  memory- 
capacity  or  reliability;  delay  of  delivery  of  the  Backing  Store 
until  a mature  part  is  available,  since  the  Backing  Store  can  be 
absent  in  the  initial  configuration  without  severe  penalties  to 
performance. 

Production  of  the  CYBER  200  family  using  the  memory  and  logic 
technologies  planned  for  the  FMP  has  now  given  real  data  points 
for  production  costs  and  lead  times  for  the  central  processor. 
Assuming  that  the  Control  Data  schedule  and  cost  objectives 
become  the  project  goals,  then  it  can  be  stated  unequivocally 
that  the  risks  would  be  below  those  for  a new  machine  product 
line  development.  This  is  primarily  due  to  the  fact  that  90%  of 
the  technical  effort  will  be  based  on  existing  systems,  software 
and  manufacturing  techniques.  The  compiler,  loader,  and  FMP 
manager  development  are  the  primary  software  risks,  and  the 
costs  and  schedules  for  these  can  be  conservatively  rated  at  par 
with  risks  undertaken  on  any  Control  Data  project. 

Note  that  this  risk  assessment  is  substantially  more  "upbeat" 
than  past  analyses  which  have  reflected  some  degree  of  overly 
conservative  "gloom  and  doom".  The  major  reason  is  that  the 
number  one  emphasis  of  this  project  phase  has  been  to  create  an 
FMP  and  NASF  that  can  be  built  with  great  confidence  of  meeting 
the  cost,  performance,  and  schedule  objectives. 


7.2  LOGISTICS  SUPPORT 

The  operation  of  a large  complex  of  equipment  that  necessarily 
characterizes  the  NASF  engages  many  disciplines  and  involves 
many  cost  factors  that  can  easily  be  missed.  Assistance  was 
obtained  for  this  report  from  the  CYBERNET  DATA  CENTER 
specialists  who  have  experience  with  large  systems.  In 
particular,  advice  was  sought  from  the- STAR  data  center  managers 
who  provide  "computational  engine"  services  on  STAR  via  a set  of 
CYBER  170  front-ends,  much  like  the  FMP  will  be  made  available 
to  the  NASF  user.  The  resulting  paper  (Division  9)  describes 
the  major  considerations  and  probable  resources  required  for 
long  term  operation  of  an  NASF-scale  system. 
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The  figures  given  in  this  report  and  in  the  report  on 
maintenance  strategy  should  be  considered  conservative  in  light 
of  the.  fact  that  the  availability  and  mantainability  of  the  NASF 
is  expected  to  be  much  greater  than  existing  systems.  Factors 
included  for  systems  upkeep,  therefore,  may  well  be  reduced  in 
the  final  analysis  to  50?  or  less  of  the  projected  figures.-  It 
would  be  well  to  expect  that  at  the  outset,  and  for  the  first  24 
months  of  NASF  operation,  the  consevative  approach  to  systems 
operation  and  support  should  be  adhered  to  until  enough 
experience  is  accumulated  to  guide  cost  reductions  which  are 
sure  to  lurk  in  the  projections  offered  here. 


7.3  PHYSICAL  REQUIREMENTS 

As  part  of  the  initial  study  (ref.  1)  Control  Data  was  asked  to 
determine,  to  as  great  a level  of  detail  as  possible,  the 
physical  requirements  for  the  actual  installation  site.  The 
result  of  that  effort  was  the  prototype  planning  of  an  actual 
site  containing  the  hardware  projected  for  the  NASF  as 
considered  in  this  study.  Most  of  the  equipments  that  absorbed 
the  bulk  of  that  installation  have  remained  unchanged  in 
quantity  and  configuration  since  that  initial  effort.  The  FMP 
has  undergone  the  greatest  change  due  to  a reorganization  of  the 
memory  systems,  reduction  of  pipeline  hardware  and,  quite 
signf icantly,  due  to  a change  in  the  packaging  system  for  the 
FMP  Main  Memory  and  logic.  Figures  3.1-2  and  3*1-3' of  the 
functional  specification  (Division  1,  Volume  II)  show  the 
revised  floor  plan  of  the  resulting  FMP. 

The  overall  power  and  cooling  requirements  are  quite  similar  to 
those  reported  previously  (ref.  1),  and  the  floor  plan  for  the 
proposed  installation  has  been  left  unmodified,  since  the 
revised  NASF  will  fit  into  essentially  the  same  area  originally 
reserved  for  the  NASF.  The  FMP  power  requirements  differ 
somewhat  from  that  proposed  in  the  early  study  but  the  aggregate 
power  for  the  installation  is  affected  very  little.  Division  10 
provides  some  detail  and  a summary  of  space,  power,  and  cooling 
requirements  for  .the  proposed  NASF. 
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APPENDIX  A 


CLOCK  RATE  AS  A MEASURE  OF  COMPUTER 
PERFORMANCE 


The  rapid  tick— tick-tick  of  a wrist  watch  is  certainly  different 

from  the  slow  TOCK  TOCK  of  a grandfather  clock.  That  is,  the 

two  different  timepieces  have  different  clock  rates,  yet  when 
properly  tuned  to  their  respective  rates,  they  both  have  the. 

same  performance  keeping  accurate  time,  one  revolution  of 

the  minute  hand  per  hour.  The  performance  of  a timepiece  cannot 
be  judged,  however,  on  the  basis  of  its  rate  alone.  It  is 
necessary  to  have  some  other  information  such  as  what  is  inside 
the  timepiece  (to  know  what  is  accomplished  per  tick  or  per 
TOCK),  or  what  its  output  is  (is  its  performance  - timekeeping  - 
accurate).  Without  this  additional  information,  a rapid  rate 
cannot  be  judged  good  or  bad  since  it  may  mean  simply  that  the 
timepiece  is  not  properly  adjusted  and  therefore  is  not  keeping 
accurate  time. 

In  order  to  compare  one  computer  with  another,  an  oft-used 
measure  is  to  compare  the  clock  rates  of  the  computers.  The 
assumption  is  that  if  one  computer  has  a clock  rate,  say  twice 
as  fast  as  another,  then  it  will  produce  twice  the  result  rate 
as  the  comparison  machine.  In  fact,  however,  the  performance  of 
a computer  should  be  measured  in  the  number  of  basic  functions 
accomplished  in  some  unit  time.  To  derive  this  by  only  counting 
clock  periods/unit  time  assumes  that  basic  f unctions/elock 
period  is  constant.  It  does  not  take  much  thought  to  show  that 
this  is  not  constant,  but  rather  a function  of  machine 
architecture,  inherent  power  of  the  chosen  logic  family  and  the 
specific  logic  design  rules  used. 

The  following  explanations  and  examples  point  out  some 
differences  in  machines  not  reflected  in  clock  rates. 

1 . Difference  in  Architecture 

a)  Size  of  machine:  number  of  gates.  No  one  expects  an  8080 
microprocessor ' to  match  the  power  of,  say,  a middle 
level  370  machine  even  if  they  have  comparable  clock 
rates  (in  fact  they  do).  (The  number  of  gates  in  a 
machine  is  often  very  difficult  to  quantify  as  will  be 
discussed  later.) 

b)  Concurrency:  How  much  of  the  machine  is  in  use,  on 
average,  during  a small  unit  time.  For  example,  a 
machine  with  a 10-ns  clock  but  only  30%  of  the  machine 
in  use  at  any  one  time,  is  very  likely  slower  in  overall 
throughput  than  a machine  with  a 20-ns  clock  but  with 
70%  of  its  gates  in  use  at  a time. 
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2.  Differences  in  Logic  Family 

It  may  seem  obvious  that  the  clock  rate  of  a computer  should 
be  set  by  the.  number  of  gates  that  must  be  traversed  to 
accomplish  some  basic  function.  This  is  not  true  and  one  of 
the  reasons  is  the  difficulty  in  determining  what  to  call  a 
gate.  For  example  most  variations  of  ECL  allow  both  the 
true  and  complement  results  to  be  generated  by  most  gate 
elements  at  no  cost  in  size  or  speed.  This  contrasts  with 
other  logic  families,  e.g.,  TTL,  that  require  another  gate 
function  to  produce  the  logical  complement  of  a function. 

This  extra  gate  appears  generally  in  series  to  some  signal 
and  thus  slows  down  the  machine.  Even  if  the  gate  can  be 
put  in  a parallel  structure  to  reduce  the  total  delay,  the 
machine  may  still  be  slower  because  the  larger  number  of 
gates  may  increase  the  physical  size  of  the  machine. 

Another  feature  of  most  ECL  families  is  the  ability  to  tie 
the  outputs  of  gates  together.  This  accomplishes  an  'AND* 
or  ’OR'  function  at  virtually  no  cost  in  logic  delay  and  no 
gate  cost  because  the  connection  is  just  wire. 

The  point  here  is  that  even  with  equal  clock  rates,  a 
computer  may  have  higher  performance  because  it  is  able  to 
do  more  in  a clock  cycle  than  another  computer  using  similar 
architectures  and  numbers  of  gates  because  it  is  able  to  get 
more  done  per  unit  time  no  matter  what  the  unit  time  — just 
because  of  differences  in  the  logical  power  of  differing 
logic  families.  Many  other  attributes,  unmentioned,  also 
will  affect  the  logical  power  available  to  a designer  — 
fan-in  and  fan-out  limits,  packaging,  etc.,  etc. 

3.  Design  Ground  Rules 

In,  the  design  of  high  speed  computers,  a conflict  exists  in 
the  interplay  for  fastest  speed  versus  fastest  throughput. 
Fastest  speed  means  the  minimum  time  for  completion  of  a 
function,  a multiply  for  example.  The  fastest  throughput 
means  the  most  results  for  a function,  per  unit  time.  . These- 
two  requirements  are  not  the  same!  To  satisfy  the  first 
design  requirement  a designer  wants  the  clock  cycle  to  be 
relatively  long.  This  is  to  reduce  the  overhead  caused  by 
addition  of  gates  that  do  not  contribute  to  computation  but 
are  required  for  shorter  clock  periods.  The  throughput  of  a 
set  of  logic  can  be  increased  by  reducing  the  number  of 
levels  of  logic  allowed  between  clocked  latches.  For 
example,  assume  that  to  perform  a particular  function,  such 
as  an  addition,  9 levels  of  logic  are  required.  A designer 
can  choose  a clock  period  of  16  ns-,  say,  and  can  perform  the 
addition  in  one  clock  cycle.  Another  designer,  using  the 
same  logic,  may  choose  to  limit  the  number  of  logic  levels 
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between  clocked  ranks  to  7 in  order  to  have  a faster  clock 
(say  13  ns).  The  adder  design  then  requires  a clocked  latch 
rank  somewhere  within  the  adder.  This  results  in  two 
things: 

a)  Addition  now  takes  two  cycles:  26  ns. 

b)  The  number  of  gates  rn  the  second  design  is  greater, 
resulting  in  greater  logic  cost  and  design  time. 

Of  course  the  second  adder  design  has  higher  throughput, 
i.e.,  it  can  accept  a new  input  every  13  ns  instead  of  every 
16  ns  as  in  the  first  design. 

The  set  of  design  ground  rules  chosen  depends  on  many 
things;  among  them  are:  cost,  size,  power,  speed 
requirements,  etc. 

As  can  be  seen  from  the  above,  the  raw  comparison  of  clock  rates 
is  a vast  oversimplification  of  the  question  ’how  fast  is  it?’  A 
whole  array  of  other  questions  must  be  asked  at  the  same  time. 
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IMPLICIT  LEFT-HAND-SIDE  SUBROUTINES 


SUBROUTINE  STEP 

COMMON/BASE/NMAX*UMAX*KMAXtlMAX*JN*KH*LM,DT*GAHHA.GAMI»$MUfFSMACH 

1 iOXl>OYliOZlfND*N02fFVt5>*FO<5J  *HO* ALP.GD*OMEGA*HDX*HOY*HOZ 

2 *RM,CN0R*PI * ITR  * XNVISC iLAM|N*NP* IHTl « INT2»JNT3*LSL»JSL 
COMMON/GEO/NBl*N02»RFRONT,ftMAX.XR,XMAX,ORAO*OXC 

cqhmon/reao/ireao*iwrit»ngri 
CONMON/VlS/RE*PR*RMUE*RK 
COKMON/VARS/Q (24*30*6*30) 

CONMON/VARo/S (24,30*5*30) 

CONMON/VARl/XT24t30t30)*Y<24*30*30UZ<24. 30*30) 

COMMON  /VAR3/PU20*30)  *XX(A)  *YY(4)  *22(4) 

CONMON/COUNT/NC.NC1 

COMMON/8TRIO/A<5*5) *0(5*5) #C<5*5) *0(5*5),F 
LEVEL  2 OtS.XfYiZ 

DYNAMIC  A*fl*C*0*S*SD*XX(4) »YY (4} *ZZ (4) ,XKL  *Y*L 
DYNAMIC  F*F1(5).F2*S1(5> 

DYNAMIC  ZKL 

DYNAMIC  XJL  *YJL  *ZUL  *XKj-*YKJ  tZKO 

DYNAMIC  QTlfQT2.QTJ*QT4*0TS,TV 

DYNAMIC  RJ*RR  *U* V»**UU*UT *Cl*C2'C3*C4«CS«C6*C7 

DYNAMIC  RMJ*RFtXK*YK,ZK.XL#TL*ZL*XJ,YJ*Zj 

DYNAMIC  oPLUS (5*5) ♦0MIN(5*5l *Q0ES<8>2) *XYZ(3*2) 

DYNAMIC  01 »Q2*Q3t  Q4*Q5 
DYNAMIC  X1*Y1*ZI 

INTEGER  QINPOS*QOUTPOS*XYZPOS*FDESC£5) *SD£SC(S) 
c 

CALL  BC 
CALL  RHS 
CALL  SMOOTH 
C 

C COMPUTE  L2  RESIOUAL 

c 

C the  CONDITIONAL  branch  code 
I F (NC«EQ« 1 ) Go  TO  5 
C***  IF(NC-(NC/IO)«10)5,S*6  . 

c**«  5 CONTINUE 

CAN  BE  REPLACED  BY 


IF(MOOfNC*10) *NE.0)GO  TO  6 


10 


RES10  « o*0 
KMH  a KM 
LMH  a LM 
00  10  N t US 
00  10  L * 1»LMH 
00  10  K * UKHH 
DO  10  Ja2»0M 

RES  10  * RESID*S(K*L*N,J) *«2 

R6SI0  * R£SID/(  (JM-1  )*(KMH-*i)«(LHH-l)  i 

RESID  * SORT (RES ID) / (DT* , 00005) 


C 

C CAN  0£  VECroRIZEO  AUTOMaTICALLY*HOWEVER  THE  THROUGHPUT  OF  THIS  LOCAL 
C LOOP  WILL  BE  LIHITEO  TO  THE  BANDWIDTH  QF  THE  INTERMEDIATE  STORAGE 
WRITE  (6*100)  NC*RESID 

100  FORMAT ( 1H0 «3HN*  *IS*3X*I3HL2  RESIDUAL*  .F16,8) 

6 CONTINUE 


C 

c 


RM  * SMU 


C8  * 1 • *2**RM 
GAM2  « 2, -GAMMA 
C THE  NESTED  00  LOOP) 
C*»*  00  20  L * 2>LM 


000X00 

ooono 

000X20 

000130 

000X40 

000150 

000160 

000170 

000X80 

000190 

000200 

000210 

000220 

000230 

000240 

000250 

000260 

000270 

000260 

000290 

000300 

000310 

000320 

000330 

000340 

000350 

000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 

000480 

000490 

000500 

000530 

000540 

000550 

000560 

000570 

000560 

000590 

000600 

000610 

000620 

000630 

000640 

000650 

000660 

000670 

000680 

000690 

000700 

000710 

000720 

000730 

000740 
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DO  20  K * 2 * KM 

C CAN  8£  VECTORIZED  IN  SEGMENTS  AS  FOLLOWS! 

C 

C 

c***filtrx 

C 

JA»2 

J8*UHAX^1 

DO  1000  L*2»LMAX*lSL 

C LSL  IS  THE  NUMBER  OF  SLICES {COLUMNS)  IN  L PER  PROCESSING  PASS 

lsm.lsl-x 

C 

DO  S N«1*S 

DEFINE  (FUN)  tF(2tftMAX-l,LrL4LSMtN'2!JMAX-l)} 

S OEFINE  (SUN)  »$<2lKHAX-l,LlL*LSMtN*2lJMAX-I>  J 
QI*Q  ( »*L 1 L+LSM* 1 *2  j UMAX-1 ) 

Q2*Q(**LlU*LSMt2.2IUHAX-l>, 

Q3«Q (**L 1L+LSM *3*  2f UMAX-1) 

G4»U { « « L 1 L«LSM  1 4* 2 1 UMAX- I ) 

QS*Q(»'L!L*L5M'5»2!JMAX«1) 

RJ«Q{2IKMAX-l,LlL*LSMt6»*) 

XKL*X (• *L*1  lL*LSM*  1 *2 1 UMAX-1 ) 

YKL*Y (**L^I IL*LSM*1 * 2 ! JMAX^l) 

ZKL*Z{**L-llL*LSM*i*2UMAX-l> 

XK*{XKL(3lKMAXt2lLSL*lt»)-XKL{l IKMAX-2* 2 1 LSL* 1 • *1 )«0Y2 
YK* ( YKL {3lKMAX*2 IL^L* 1 **) -YKL { 1 JKMAX-2*2 I LSL* 1 **> )*OY2 
ZK* ( ZKL { 3 ! KMAX e 2 I LSL* 1 **) -ZKL { 1 IKMAX-2  *2 1LSL* I * ^ ) ) *0Y2 
XL»{XKL{*f3lLSLf*)-XKL{*«ULSL-2»*n*0Z2 
YL»(YKL(«*3!LSL»*)-YKL(**ULSL-2**n*OZ2 
ZL*(ZKL(**3!LSL**)'*ZKL(*f  lltSL-2»*)  )*0Z2 
XX (1 ) * (YK#ZL-ZK*YL) *RU l * * ♦ * 2 ! JM  AX- 1 } 

XX 1 2)  * ( ZK*XL-XK*ZL > *RU  ( * * ♦ * 2 UMAX- 1 ) 

XX  (3)  *<XK*YL-YK*XLJ  *RJ  (•*«*2UMAX-1) 

XX (4) *-OMEGA*  <ZKL {2 iKMAX-1 * 1 iLSL * 2 UMAX- 1 ) *XX { 2 ) 

1 -YKL  <2 1KMAX-1 * ULSL *2* UMAX-1)  *XX  {3)  ) 

OU*2)  aAX(l)»HOX 
D ( 1 « 3)  aXX<2)#H0X 
0(1*4)  »XX<3)*HDX 
D £ 1 e 1 3 *XX{4)#H0X 
C 

c«###***aHAThx 

c 

RR*l/Gl 

U*RR*G2 

VsRR»Q3 

W»RR»G4 

UU  a U*0(h2)*V*0a.3)*«*0(l»4) 

UT  * U**2*V*»2***«2 

Cl  * GAHI*UT*.5 

C2*RR*GAMMA*Q5 

C3*C2-Cl 

C4*D(l» 1) *UU 

C5«GAMl«U 

C6«GAMI«V 

C7»GAMI*W 

DEFINE  (OUtS)  i ( I jKMAX-2  • 1 1 LSL®2  * l J JMAX-2)  ? 

0(lt5)*0 

0(2*1)  a 0<1*2)*C1-U«UU 
0(2*2)  « C4*0 ( 1 ♦ 2) *GAM2*U 
D ( 2 » 3 3 » -0<l#2)*C«J*0(lt3)*U 
0(2*4)  * -0U*2)*C7*0Ut4)*U 
0(2*5)  * 0(1*2) #GAHt 
0(3*1)  ft  0a*3)*Cl^V«UU 


000750 

000760 

000770 

000780 

000790 

000800 

000010 

000820 

000630 

000840 

000841 

000850 

000660 

000670 

000880 

000890 

000900 

000910 

000920 

000921 

000930 

000940 

000950 

000960 

000970 

000980 

000990 

001000 

001010 

001020 

001030 

001040 

001050 

001060 

001061 

001070 

001080 

001090 

oonoo 

001110 

001120 

001130 

001140 

001150 

001160 

001170 

001180 

001190 

001200 

001210 

001220 

001230 

001240 

001250 

001260 

001270 

001280 

001290 

001300 

001310 

001320 

001330 

001340 
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0(3,2)  = 0 ( 1 »2)  { 1 *3)  *CS 

001350 

0(3,3)  * C4*0 (1,3)  #GAM2*V 

001360 

o(3*4)  , -oa,3)*c7*oa,4i*v 

001370 

0(3,5)  a 0(1i3)*GaM! 

001380 

0(4*1)  a D«ltAJ*Cl-V<*UU 

00 1 390 

0(4*2)  a 0(1*2) *W«0 ( 1 , 4 | *CS 

001*00 

0(4,3)  « 0(1,3) *W^0 (1*4) #c6 

001*10 

D (4*4)  n C4*0  ( 1 1 4)  • GAM 2* 3 

001*20 

D (4,5)  * 0(1*4) *GAM J 

‘001430 

0(5,1]  a (^C2*2«  *C1) *UU 

001440 

0(S,2]  a DQ*2)*C3-C5*UU 

001*50 

0(5,3)  a 0(1*3) •C3*C6*UU 

001*60 

0(5,4)  * 0(1,4) *C3-C7*UU 

001470 

0(5,5]  a 0 ( 1 i 1 ) ♦3AMWA«UU 

001480 

c 

001490 

CIM»#***EN0  0P  AMATRX 

001500 

c 

001510 

JmAX-1 > 

001520 

RR*RHJ*RJ(*,*,1 lJMAX-2) 

001530 

RF*HMj*RJ(3t*,3l UMAX) 

001540 

00  23  N«l»5 

001550 

DO  22  M.ltS 

001560 

DEFINE  ( 9 (N,N)  , (1  [KMAX-2*ULSH,1  IJMAX-2) 

001570 

OEFINE  (D1,0(N,H)) 

001500 

A(N,M] jMAX-2) 

001590 

C(N,M]30l(*,*,3lJMAX) 

001600 

22 

B <N,M] 30 

0016)0 

A (N«N)  a A(N,N)-RR 

001620 

B (N  * N]  n C8 

001630 

C(N,N]  « C(N,N)-RF 

001640 

23 

F1(N]*S1(N) 

001650 

C 

001660 

*£N0  OF  FJLTRX 

001670 

c 

001680 

c s 

MUST  0E  ZERO  ON  3*C* 

001690 

c 

001700 

c 

001710 

CALL  BTRI  (2,«JM) 

001720 

00  24  N*i*5 

001730 

SKNJ.Fl  (N) 

001740 

24 

CONTINUE 

001750 

c 

001760 

c 

001770 

1000 

CONTTNUE 

001780 

c 

001790 

•♦FILTRT 

001800 

c 

ooiaio 

'KA  » 2 

001820 

KB  3 XHAX-1 

001830 

JSM  * USL*1 

001840 

00  2000  J«2*JHAX,JSL 

001850 

00  6 N*l,5 

001860 

OEFINg  (F1(N) ,F(2jLMAX-l,JIJ*jSH,N,2lKHAX-i>  ) 

001870 

6 

DEFINE  (SI (N) *F(2)LNAX-l,JlJ*jSH*N*2tKMAX-l) ) 

ooiQao 

c 

001690 

RJ  « PJT(2lLHAX«l,JtJ«JSM*2tKHAX) 

001910 

XJL  * XJT 

001920 

YUL  « YJLT 

001930 

ZJL  » 2jur 

001940 

01  » QlT 

001950 

02  - Q2T 

001960 

03  « Q3T 

001970 

04  3 Q4T 

001980 
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Q5  * Q5T  001990 

C 002000 

C 002010 

DO  9 N*liS  002030 

DO  9 K*1»KMAX  002040 

DEFINE  (F2*Fl (N) ) 002050 

9 F2(»t»»K)»5(K*2lLHAX*l,N*JlJ«JSH)  002060 

c This  accomplishes  the  move  of  s to  the  f array  002070 

C 002080 

XJ* (XJL  <2 lEMAXM  *3  * JSL*2»2  tKMAX-1) -XJL ( 2 lLMAX»l « 1 T JSL * 2 1 KMAX^l > ) 002090 

1 *0X2  002091 

YJ»(YJL(2lLMAX-l*3iJSL42*2tKMAX-l)-XJL(2»LMAX-l*l |JSL,2IXHAX-1) ) 002100 

l *0X2  002101 

ZJ» (ZJL (2f LMAX*1 • 3 t JSL*2*2 IKHAX-1 ) *XJL ( 2 I LMAX^l f 1 1 JSC » 2 T KH AX-*  1 ) ) 002110 

1 *0Y2  002111 

XL»(XjL(3*LMAX*2ijSL*lt2lK8l-XJLUtLMAX-2,2|JSL*l*2tK8)  >*0Z2  002120 

YL*<YjU(3lLMAX»2ljSL*U2tK8)-YJLaiLHAX«2,2lJSL*lf2tK8> ) *OZ2  002130 

002134 

ZL* (ZJU (3 ( LMAX  * 2 1 JSL*  1 # 2 f K9)  - ZJL  ( 1 1 UMAX -2 » 2 1 JSL  ♦ 1 *2  tK8)  ) *OZ2  002140 

YYU)*(ZJ*YU-Yvl*ZL)*RJ(*»*»2lKMAX-n  002150 

YY(2)«(XJ*ZL-XL*ZJ)*RJ(*t*t2TKMAX-»l)  002160 

YY(3)*(YJ*XL-XJ*YL)#RJ(****2lKMAX-l)  002170 

YY(4)»«0MEGAMZJL(2lLMAX-l*2ljSM*2lKMAXM)*YY(2)  002180 

1 YJU2*CMAX-l»2:jSM*2IKMAX-l>*YYt3> ) 002190 

oa.2)  *YY(1)*H0Y  002200 

DU,3>  *YY  (2)  *HOY  002210 

0(1*4)  »YY (3) *HOY  002220 

O(lil)  »YY ( 4) ®HDY  002230 

C 002240 

C******AMATRX  002250 

RRai/01  002260 

UsRR«Q2  002270 

V«RR«Q3  002280 

W*RR*Q4  002290 

UU  * U*D(i*2) ♦V*0(l,3)*W*0(l*4)  002300 

UT  * U»»2*V**2*w**2  002310 

Cl  « GAMI*UT*,5  002320 

C2*RR*GAMMA*Q5  002330 

C3»C2“Cl  002340 

C4*0 < 1 r l > *UU  002350 

C5*GAHl*U  002360 

C6*GAMI*V  002370 

C7*GAH|*W  002380 

OEFINE  <0 < 1 .5) * < l iLMAX-2, 1 1 JSL» 1 * KMAX-2J)  002390 

0(1*5)  » 0*  002400 

0(2*1)  « 0(1*2)*C1-U*UU  002410 

0(2*2)  • C4*0 (1*2) *GAH2*U  002420 

, 0(2*3)  * -0(l*2)*C6*0U*3)#y  002430 

0(2*4)  * ®0 ( 1 • 2) *C7*0 ( 1 *4) *0  002440 

0(2*5)  « 0(l*2)*SAHt  002450 

00*1)  ■ 0(1*3I*C1-V*UU  002460 

0(3*2)  » Q(1*2)*V-QU*3)*CS  002470 

0(3*3)  « C4*0(1*3)*GAM2«V  002480 

00*4)  * *0(1*3)  *C7*0 ( 1 *4) *V  002490 

00*5)  * D(l»3)*GAMl  002500 

0(4*1)  * QU*4)*C1~W«UU  002510 

0(4*2)  « Q(1*2>«W*Q(1»4>*C5  002520 

0(4,3)  * 0(1*3)*V-0U*4)*C6  002530 

0(4*4)  * C4*0(lt4) *GAM2*W  002540 

0(4*6)  ■ 0(1*4) *0AHl  002550 

0(5*1)  * (-C2*2.*C1)*UU  . 002560 

0(5*2)  * 0(1,2) *C3*C5*UU  002570 

0(5*3)  * 0(1*3)  *C3-C6*UU  002580 
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DCS**)  * D ( 1 *4) *C3»C7*UU  002590 

D(StS)  * 0(1.1) *GAMMA*UU  002600 

c 002610 

C«**«*ENO  or  AMATRX  0026H0 

C „ 002630 

C Rvl  IS  RETAINED  FROM  THE  DIFFERENCING  CALCULATION  002640 

RHJ«RH*RJ(*»»t2lKHAXwl)  002650 

RR«RMJ*RUl*t*tilKHAX-2)  002660 

RF»RMJ*RJ(*.*,3IKMAX>  002670 

DO  34  N* I « 5 002680 

00  33  Hwi*5  002690 

OEFINE  (01 «0 (N.M) ) 002700 

DEFINE <9 (N. Hi  t ( 1 UMAX-H. 1 1 JM*X-2. 1 IKHAX-2)  ) 002710 

C 002720 

C NOTE  THAT  8 HAS  CHANQEn  SHAPE  AS  "E  ARE  0EALING  WITH  002730 

C THE  TRANSPOSED  MESH  FOR  THIS  SWEEP  002740 

llKMAXw2>  002750 

B(N.M)«0  002760 

33  C<N,H)«D1 (*»**31KMAX1  002770 

A(N*N)  * A(NtN)-«R  002780 

B (N.N)  * C8  002790 

C(N,N)  » C(N.N)-RF  002600 

34  CONTINUE  002810 

C F HAS  BEEN  PREMOVED  AT  TOP  OF  LOOP  002820 

C . 002830 

C«*****«ENQ  OF  FILTRY  002840 

c 002850 

CALL  BTRI(2,KM)  002860 

00  31  N*i»5  002870 

DEFINE  (S2.SHN)),(F2,PHNn  002880 

DO  31  Ka^.KS  002890 

S { K ( 2 r LMAX  - 1 * N ♦ J J J*  J5M  J * F2(2ILHAX-U1i  JSL-2»X)  002900 

31  CONTINUE  002910 

c 002930 

C . 002940 

C 002950 

2000  CONTINUE  002960 

C**»***FILTRZ  002970 

DEFINE  (RJf (lSKMAXtlt JSLtl ILMAX) ) 002980 

OEFINE  (Q1 f l l IKMAX* 1 IUSL. 1 ILHAX) ) 002981 

DEFINE  (Q2*  ( 1 iKHAXv  1 j JSLt  1 ILHAX) ) 002982*' 

OEFINE  {Q3t { 1 t KMAX* 1 J JSL. I 1 UMAX ) ) 002993 

OEFINE  <Q4. (llKH4X*lijSL. 1ILMAXJ)  002984 

DEFINE  (Q5. dlKMAX.l I JSL. 1 ILHAX))  002985 

OEFINE  (XKJ.  (1  IKMAX*  1 l JSL*2* 1 ILHAX)  ) 002986 

OEFINE  (YKL» UlKMAXtl | JSL*2»1 ILHAX))  002987 

DEFINE  (YKL» UlKMAX*li JSL*2*1 ILMAX) ) 002988 

LA  *2  0(12990 

L8  stLMAX-1  003^00 

JSM  * JSL^l  003001 

DO  3000  J*2* JMAX. JSL  003010' 

C 003020 

00  61  N* 1 1 5 003030 

61  DEFINE  (FI (N) * (F(2IKHAX-If Jtj4j$M,Nt2tLHAX-l)  003040 

00  81  L«lfLMAX  003060 

Rj(llKMAX-2iltJSL»UaQt2iKMAX-l.Lt6t  Jl  J*JSM>  003070 

XXJ(11KMAX*1I  JSL^2»L)3X(1  I6HAX.L*J«*1{J*JSL)  003080 

YKJtliKMAX.U  JSL*2»U*YU  iKMAX. L »J-l TJ*JSL>  003090 

ZKJtllKMAX*UJSL*2*L)*Za  |KMAX,L»J-1  f J*JSL)  003100 

Qltl  IKMAX.  ltJSLiLJsG^lKMAA-l.LtliJU^JSM)  003110 

<32(1  IKHAX 1 1 ( JSL*LJ  *Q  < 2 1 MAX**!  «L*  2 1 JI J + JSM)  003120 

Q3  (1  IKMAX.  1 USL*U*Q<2tKMAXMtL*3.JIJ*JSM>  003130 

Q4(l  IKMAX tl  USLtU*Q(2lKMAX-l4L.4.UlJ*JSM»  003140 
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VO  o 


05UJKMAX.1  t JSLtU«Q(2IKMAX-l*Lt5t  Jl  J*JSH) 

C 

C 

81  CONTINUE 

00  91  N*U5 
00  91  LaliLMAX 
DEFINE  (F2iFl(N)) 

91  F2(*,**U*S(2lKMAX"I»L.Nf  J* 

XKa  <XKU<  3 SKMAX . 2 IUSL+  1 .2 ILB)  -XKJ{  1 tKMAX*2t2 1 JSL*1  #3*1.8) ) *0Y2 
YK*(YKJ(3lKMAX,2l  JbLnt2lL8l-YKUU*KMAX-2t2lJSL*l*2»L9)  )*0Y2 
ZK*(ZKJ(3IKMAX,2lj5t*l,2tLa»-.ZKJ(ii«MAX-2<2lUSL*l»2!UBJ >*0Y2 
X J* (XKJ {2lKMAX»l * 3 J JSL*2 i 2 t L9 ) ~XKJ (2  JKMAX-l * 1 * JSL  » 2 l UB > ) *0X2 
YJ»<YKJ(2IKMAX«1»3I  JSL*2*2»LB»-YKJ(2lKMAX-l.lUSL*2lLa)  J»0X2 
ZJa  (2K<J O IKMAX<*1  #3  JUSL^2 »2* L0)  -ZKJ <2IKHAX~1  • 1 I JSL*2  t LS)  ) *0X2 
22 ( 1) * ( YJ«ZK-ZJ*YK) *Rj 
ZZ(2)a<XK*»ZU-XJ*ZK>*RJ 
ZZ (3) * (XJ*YK-YU*XK> *RJ 

ZZU>a-0MEGA*(ZKJ<2lKMAX-l »2l JSM. 2IL3 > *ZZ (2) 

1 •YKJ(2IKMAX-l»2ljSMt2iLB)«ZZ(3) ) 

on#2>  *zzm*Hoz 

D ( 1 » 3)  aZZ(2>*H0Z 
0(1»4)  «ZZ (3) *H0Z 
O(lii)  »ZZ(A)*H0Z 

c 

C******AMATRX 

RR*U/Ql 

UaRR*Q2 

V*RR«Q3 

WaRR*Q4 

UU  * U*Dtl*2)*V*0(1.3)  ♦W*0<1.4) 

UT  a U**2*V*«2*W**2 
Cl  * QAHI*UT*«S 
C2»RR*0S*GAHHA 
C3*C2-C1 

C4«od»n  *uu 

CS»GAMI*U  ' 

C6«GAMI*V 

C7«GAMI«W 

OEFINE <0(  1 • 5)  * (llKHAX-2,1 1 JSt»HLMAX-2) ) 

D(1.5)  - 0. 

0 ( 2 1 1 ) * 0(1,2) *C1*U*UU 
0(2.2)  a C4*0U.2)*GAM2#U 
0(2.3)  a -0U,2>aC6*0(l*3)*U 
0(2. A)  a -0U.2)*C7*0U.A)*U 
0(2. S)  a 0(1.2) *GAMl 
0(3.1)  a 0(1.3)*C1^V*UU 
0(3*2)  a 0(1.2) *V-D (1.3) «C5 
0(3.3)  a CA*0(1.3)*GAM2*V 
0(3. A)  a -0<lt3>»C7*0U.A)*V 
0(3. S>  « 0(1.3) *GAMt 
D(A.l)  a 0(lf4)*Cl-"*UU 
0 < A«2)  a D(1.2)*W-D<liA)*CS 
0 ( A.  3)  ■ 0a.3)*W-0(l.A)*C6 
0(4. A)  - C4*D ( 1 . A) #GAM2*W 
0(4,5)  a 0(1.4) *GAMI 
0(5,1)  * (•C2*2,#Cl) *UU 
0(5,3)  a 0(1.3) #C3*C6#UU 
D (5,4)  * 0a.A)*C3-C7*UU 
D(5r5>  a 0(1.1) ♦GAHHA*UU 

ENO  OF  AMATRX 


003150 

003160 

003170 

003180 

003190 

003200 

003210 

003220 

003230 

003240 

0032SO 

003260 

003270 

003280 

003290 

003300 

003310 

003320 

003330 

003340 

003350 

003360 

003370 

003380 

003390 

003400 

003410 

003420 

003430 

003440 

003450 

003460 

003470 

003480 

003490 

003SOQ 

003510 

003520 

003530 

003540 

003550 

003560 

003570 

003580 

003590 

003600 

003610 

003620 

003630 

003640 

003650 

003660 

003670 

003680 

003690 

003700 

003710 

003730 


003740 , 
:0  03  7 6,0^ 


0037,7.0 

0O3780j 
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* Rj  is  retained  from  differencing  operation 
RMU  * RM/RJ<*,*,2tLMAX-l) 

RF  * RMj*fiU(*,*f3n.MAX)  ‘ 

RR  * RHj*RJ  l • t * * 1 !LMaX*2) 

DO  *3  N»I»5 
DO  *2  Hmltb 
DEFINE (Dl »0 {N?H) ) 

DEFINE fB <NiM»  # < I IKHAX-2, 1 IJSL, 1 U.HAX-2J j 
A<N,M)»-0l(*t*»lll.NAX-2) 

0«N,m)*o 

42  CCNtM)«OII*»*t3lLNAX) 

A <N,N)  ■ A <N  *N) «RR 
B(NtN>  • C6 
C(N,N>  « C<N*N)-RF 
♦3  CONTINUE 
C 

C*«**»«*ENO  OF  FIUTRZ 
C 

IFUNVlSC.EQ,  1J  CALL  VISMAT(JtK) 

CALL  BTRI (2  »LM) 

Ql»Ql*F(l) 

G2*Q2*F { 2 ) 

03«Q3*F{3) 

Q4*Q4*F{4> 

QS*Q5*F (5) 

00  44  L*2?LMAX-I 

Q (2  JKHAX-I *L* I # Jl J+JSM) *01 ( 1 1KMAX*2» 1 1 JSL-2*L> 

Q(21KMAX^I«L»2*JJJ*JSM)*02UIKHAX-2»IUSL-2*L) 

Q (2 IKMAX^I «L  t 3 1 J l JSM ) *Q3  { 1 j KMAX»2 » 1 I J5L~2*L) 
Q(2lKMAX-I*L.AtJlU*USM)aQ4a  IKMAX*2tlI USL^2tL) 

*4  Q(2lKMAX-l »L*5»JI0*JSM) aQ5 < 1 1 KH4X-2 * 1 J JSL-2*L) 

3000  CONTINUE 
RETURN 
ENO 

SUBROUTINE  BTR I ( ILAi IUA) 

COMMON /RtR 10/ A (5*5) »B<5t5>  «C(5»5) ,D(5»5I *F<5> 

DYNAMIC  H<S*5> *A*fltC.OiF 

OYNAMIC  LU*L21*L22<L3lfL32*L33tL4l*L42>L43*L44 
OYNAMIC  LS1»L52,L53«L54*L5S 

OYNAMIC  UI ItU2l*U22(U3l iU32sU33>U4I«U42»U43»U44 
OYNAMIC  U51»U52»U53'U54»U55 
OYNAMIC  01 *02 « 03 *04*05 

OYNAMIC  U12tUl3fUl4.U15iU23*U24,J25tU34*U35«U45 
OYNAMIC  Al(5»5)  iBKSfS)  tCU5t5)»FUS) 

REAL  Lll»L21»L22*L3l#L32fL33»L41tL42tL43*L44fLSl*L52tL53fL5A,L55 

IL*ILA 

IU*IUA 

IS*lL*l 

IE^IU-1 

00  1 N»l,s 
DEFINE  {FI  t N J ,F{N} 

00  l M*1 1 5 

DEFINE  (8l<NtM>iB<N(M> 

DEFINE  {Cl fN»M1 *C(NtM) j 
INSERT  LUOEC 
Lllal./B  (ItU 
L21*01(2*l» 

U12*8 1 ( 1 »2J  *L1 1 
L22*1./{B1(2»2)-L21*U12) 

U13*81(li3)*Lll 

U14  * dUl,4}*Lll 
U15*Q  1 <I»5ML11 
L3 1*9  1(3*1) 


003790 

003800 

003805 

003810 

003820 

003830 

003840 

003850 

003860 

003870 

003880 

003890 

003900 

003910 

003920 

003930 

003940 

003950 

003960 

003970 

003980 

003990 

004000 

004010 

004020 

004030 

004040 

004050 

004060 

004070 

004080 

004090 

004100 

004HO 

004120 

004130 

004140 

004150 

004160 

004170 

004190 

004190 

004200 

004210 

004220 

004230 

004240 

004250 

004260 

004270 

004290 

004290 

004300 

004310 

004320 

004330 

,"004340 

004350 

004360 

004370 

004380 

00*390 

004400 
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L32*0K3»21-L31*U12 

U23* ( 8 1 ( 2 * 3 1 <2 1 *U  1 3 > *L22 

L33*I  • / (B1  (301  -U13“L31-U23*L32) 

U24*(81 (2*4><21*U14)*L22 
U2S* (81 (2*5>-L21*Ul5>*L22 
L4l301(4,l) 

L42*S1<4#2)-L41*U12 

U43*01 [4»3)-U4l*Ul3-t02*U23 

U34.  (81  (3*4>  -(.31*U14-L32*U24)  *L33 

U44wU/<81U,4)-U14*L41-U24*L42-U34*L43) 

U35* (8l (3*5) -L31*U1S-L32*U25>  *L33 

LSl=81  !5iU 

LS2*8l<5*2)-L5l*UU 

LS3*b 1 (5*3) -L51*U13-L52*U23 

L54«8i  <5»4>  -LSl*Ul4<S2*U24-L53*U34 

U45*(Sl  (4*B)  ■=L4l*Ul5-L42*U25*L43«U35)  *U44 

LS5*l#/(8U5c5J  -L5l*Ul5-L52*U25-L53*U35-L54*U45) 

C COMPUTE  LITTLE  R S 

Ol«Lll*Fl  (1) 

D2*L22*<F1(2X21*01) 

D3*L33* (FI (3X3l*QK32«02> 

04«L44*  (FI  (4)<41*01..L42*02-L43*03) 
05«L55»(FU5X5l*OK52*02-L53*03-L54*04) 

C COMPUTE  8IG  R S 

FI (5)*Q5 
FI (4) -04-045*05 
FI (3>*D3-U34*F1 (4)  05*05 
FI (2)*02-U23*Fl (3) 0**F1 ( 4) -U25*05 
FI ( 1) »01-U12*F1 (2) -U13-FI (3)-Ul4-Fl (4)-U15*05 
C COMPUTE  C PRIME  FOR  FIRST  ROW 
00  12  M«l*S 
D1*L1 l*Cl ( l *N) 

02*L22« (Cl <2*N> -L21-01) 

D3*L33C(CI(3*MJ-L3l#01-L32*02) 

D4*L44*(C1  (4*M)-L4l*01<42*02-L43*03) 
05<S5*(Cl(5tM>-L5l*01-L52*02-L53*03-L54*04) 

01 (5«M) *DS 
Bl  ( 4 #M)  *04045*05 
81<3»H)  * 03-1134*01 1 4 *M } ^U35*05 
81 (2»M)  * O2-U23*8l(3*M)-U2**0l <4tM)-U25*05 
12  81(1  fM)  * O1-U12*0X  (2tM)-Ul3*0l(3,H>-Ul4*0U4.MXl5*O5 

C COMPUTE  0 PRXME*8I6ft 

00  13  W1S.IE 
00  2 N«1 *5 

DEFINE  (Fl(N).F(N) (•t*«I))Y(F2(N>lF(N) (***.I-l)> 

00  2 H*l*5 

OEFINE  (Al (N.H) tA(NtM) (*,♦,]) ) 

DEFINE  (01  (NtMJ  >8(N*HM*t  *♦!))•  (82  (N*M»  ,g  <n,M)  (***»!- 1)) 
2 DEFINE  (CKN,M>,C(N,mm****I>) 

DO  14  N.1'5 

14  Fl(N)*Fl ( N ) -A  1 (N  f 1 ) *F2 (1)-A1(N*2)*F2(2)-A1 (Nf3)*F2(3) 

• -Al(Nt4)*F2(4)«Al (Nf5>*F2(S) 

C COMPUTE  0 PRIME 

00  11  N*l#5 
00  11  H«1»S 

II  H(N,H)*81 (N.H) *41 (N» 1) #82 (l«M}-Al{Ni2)*92(2fM)~Al(N»3)* 

* 02(3tH)-Al (Nf 4) *92(4tM)-4l (N«5>  *82(5«M) 

C INSERT  LUQEC  AGAIN 

LU»U/H(l»l) 

L2l*H (2* 1 J 
til2*H(l»2>*Lll 
L22»l./(H(2f2J-L21*U121 
U13*M  ( 1*3)  *L 1 1 


004410 
004420 
004430 
004440 
004450 
004460 
004470 
004480 
00*490 
004500 
004510 
004520 
004530 
004540 
004550 
00*560 
004570 
004580 
004590 
004600 
004610 
004620 
004630 
004640 
004650 
004660 
004670 
004680 
004690 
004700 
004710 
004720 
004730 
004740 
004750 
004760 
00*770 
004700 
004790 
004800 
004810 
0 0 4 B 2 0 
004330 
004340 
004350 
004360 
004370 
004380 
004390 
004900 
004910 
004920 
004930 
0049*0 
004950 
004960 
004970 
004980 
004990 
005000 
005010 
005020 
00503d' 
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U14*HU*4>«LU 

U1S»HCU5>*LH 

L31«H(3,1> 

L32*H  (3»2>  '•U31*U12 

U23»(H(2.3>-L21»U13)*L22 

L33*l*/fH(3t3)-Ul3*L3I-U23*L32J 

U24* ( H < 2, A) -L21*U1* 1 *L22 

U25®(H(2?S>-L21*Ul5)*L22 

L4I«H{4»1) 

U2«H(4,H)H.41*U12 
L43*H(4*3)-l41*U13-L42»U23 
U34-(H<3t4>-L31*UlA-L32*U2A)*L33 
L44»1*/{H(4*4) -UU*LA1**U24«L42-U34*L43) 

U35*(H (3t5>-L31»Ul5~L32*U25)  *L33 

LS1*H<5*U 
LS2*H(S,2>-LS1*U12 
LS3»H  (5,3) -L51*UX3-L52*U23 
L54*H(S*4>-L5i*U14-L52*U24^L53#U34 
U4S«  (H  U« 5)  -L4X*U15-L42*U25-L^3*U35)  *1.44 
LS5«1,/(H<S.5)^L51*U1S-L52*U25-LS3*U35-L54#U45j 
C COMPUTE  LITTLE  RIS 
Ol*LlI#FlU) 

02*L22*(FU2>-L21*tU> 

03*L33*(FX(3>-.L3l*OX-L32*02) 

04*L44* (Fl  (4) -LM*U1-L42*02-L43*03) 

05*L55* (Fl (5)-L5l*DX-L52*02-L53*03-L54*04) 

C COMPUTE  BIG  R IS 

Fl (5) *05 
Fl (4) wD4-UA5*D5 
Fl <3>*03-U34*F1(4)-U3S*05 
Fl  (2)«02-U23*Fl(3)-U24*Fl  (4)„U2S*05 
Fl(l)«0l-U12*F1(2)-U13*F1 (3) -U14*F1 ( 4) -ul5»DS 
C COMPUTE  C PRIMES 

00  IS  M*1 t S 
01®L1 1*C1 < 1 »M) 

02«L22*(C1 (2tM) *L21»D 1 ) 

03»L33* (Cl (3*M)»L31*01-L32*02) 

04*L44*(C1 (4»M)-L4i*01-L42*02-L43*03) 
05«L55*(Cl(StM>-L5i*01-LS2*02.LS3*03-L54*04> 

B 1 (5«M) *05 
Bl(4fM)*04-U45*0S 
0U3*M>  O3-U34#01  U*H)-U35*05 

BK2*M)  * 02-U23*Bl  <3»M)-U24*BK4,M).U2S*»05 
15  91(1»M)  m Dl-U12«Bl  (2*M)-.Ul3*Bn3*MI-U14«01  (4*M>-U15*0S 

13  CONTINUE 

l*IU 

00  3 N* 1*5 

DEFINE  (Fl (NJ  *F(N) <*»•» IUJ ) » <F2(N1 ,F(N> (***,IU-1> > 

00  3 H*1 ♦ 5 

OEFINE  (AUNiH)  »A(N,M> 

3 OEFINE  (BUN*MJt9(N,M)  (*t*»IUJ  > * (B2  (N,M)  ,8  |N,H|  [*  1U- i > ) 

c compute  b prime*big  r for  last  row 

00  17  N*l»5 

17  FUNJ*F1<N)-A1  (N*U*F2(1)-A1  (N*2) *F2 ( 21 -A l (N* 3) * 

1 F2(31-A1 (Nt4) #F2(4) - A 1 ( M ♦ 5) *F2 151 

C compute  B prime 

DO  18  N*l*S 
OO  16  M*itS 

18  H(N*M1 ®Bl (N*H)-A1 (Ni i ) *02 ( 1 »H> -Al (N*2) *B2 ( 2 *MT -Al (N,3>* 

•02 ( 3 i M J -A  1 <Nt4)*B2(4*M|-Al (N.S> *02 (5tM) 

C INSERT  LUO EC  AGAIN 

L21®H(2.l) 


005040 

005050 

005060 

005070 

005000 

005090 

005100 

005110 

005120 

005130 

005140 

005150 

005160 

005170 

005180 

005190 

005200 

005210 

005220 

005230 

005240 

005250 

005260 

005270 

005200 

005290 

005300 

005310 

005320 

005330 

005340 

005350 

005360 

005370 

005300 

005390 

005400 

005410 

005420 

005430 

005440 

005450 

005460 

005470 

005480 

005490 

005500 

005510 

005520 

005530 

005540 

0C55S0 

005580 

005570 

005500 

005590 

005600 

005810 

005620 

005630 

005640 

005650 

005660 
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U12*HUf2)*LH  005670 

L22»l./tH<2i2)-L2l*Ul2)  005680 

U13*H ( l #3) #Lll  005690 

Ui4«H(l,4)  OLH  005700 

UlS*H(l,5)*Lli  305710 

L31=H (3*1)  005720 

L32»M(3.2)-L31*U12  005730 

U23* (H<3i3>*»L2l*Ul3)  *L22  005740 

L33»I./(H<3«3>-U13*l.31-U23*L32>  005750 

U24*<H<2t4)-L21*U14i *L22  005760 

U2S« (H (2i 5) -L21*UI5J  *L22  005770 

L41*H<4,1)  005760 

U42»H(4t2)-L4l*UU  005790 

L43»H<4,3)-141*U13-L42*U23  005800 

U34«*<H(3*4)*L31<»U14-L32*U24I*L33  005810 

L44»l,/<H(4f4)oUl4*L4l-U24*L42-U34®L43)  005820 

U35»<H<3»5>-L31*U1S~L32*U25I«L33  005030 

LS1»H<5? 1 ) 005840 

L52*rt<5,2>-L51*U12  005850 

L53*H<5,3>-L5inJ13-L52*U23  005060 

L54»M|5f4)«.L5l*Ul4-L52*U24«'L53*U34  005870 

U45«(H(4*5)»U41«Ul5<»U42*025-L43*U35J*t44  005860 

LS5*l*/(H(5f5)*L51*Ul5-L52*U2s«‘U53*U35-L54*U45)  005090 

C COMPUTE  LITTLE  SIS  005900 

01«L11#F1U>  005910 

02*L22*(F112> •121*01)  005920 

03«L33*  <fi (3) -L3X*01-L32*D2)  055930 

04«L44*ffm)-L4l*iU-L42*02-L43*03)  005940 

D5«L55* (PI (5) -151*IH-L52*02-IS3*03-L54*04)  005950 

C COMPUTE  0IG  SIS  005960 

ri<5)«05  005970 

FI <4)«04.U45*0S  005980 

F1C3)»03-U34*F  1(4)^35*05  005990 

FI (2)»02«U23*F1 <3l*U24*Fl {4>-U25«05  006000 

FI  < 1 ) «Dl«U12*Fl C2)-U13*FI (3I®U14*F1 {4>*U15«D5  006010 

I*IU  006020 

20  1*1-1  006030 

00  4 N*  1*5’  006040 

DEFINE  (Fl(N) *F(N) (*,*,!)) » (F2<N) #F (Nl <*»*•!♦ I J»  006050 

6 CONTINUE  006060 

00  19  N«1 ? 5 006070 

19  FI  (N)*FUN)-F2(U*ei  IN*l)«F2(2)*8l  (N»2).P2<3)*81  (N*3>  006080 

• -F2UI  *91  (N,4|  -»F2f5)  ®3l  fN«  5)  006090 

IF  <I.GT*IU<30r02Q  006100 

RETURN  006110 

end  006120 
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APPENDIX  C 


IMPLICIT  RIGHT-HAND-SIDE  SUBROUTINES 


SUBROUTINE  RHS  000 l 00 

COMMON/8 ASE/NHAX  * JMAX  » KM AX *LMAX* JM* KM *LM* 0TV6AMMA *GAM I *SMU»FSMACHt0001 10 

1 DX1*DY1 *0Z1*ND»ND2*FV<5) trots)  *H0* ALP *GD* OMEGA. HDX*HDY *HD2*  000120 

2 RM,CN8ftf PI . ITR* INVISC*LAMIN*NP» INTI  * INT2. INT3  000130 

CONMON/GEO/N8l*N82tRFRONT*RMAX*XR*XMAX*DRAD*OXC  000140 

COMMON/REAO/IREAO* IwRIT* NqRI-  000150 

COMMON/VlS/RE*PR*RMUE»RK  000160 

COMMON/VARS/Q ( 243*30*6* 30  000170 

CQMMQN/VARO/S (243*30*5*30)  000180 

C0MH0N/VAR1/X (243*30*30) tY (243*30*30) *2(243*30*30)  000190 

COMMON/ VAR3/P (120*30) *XX(60*4) *YY ( 60 *4) *Z2 < 60 *4)  000200 

DYNAMIC  A*B*C*D«S.S0«XX(4) »YY(4) *2Z(4) *XKL*YKLtZKL  000210 

DYNAMIC  F*F1*F2  000220 

OYNAMIC  XUL*YJL*2JL*XKJ*YKJ*2KJ  000230 

DYNAMIC  RMj* RFtXN* YK*ZK*XL • YL*2L *X J* YJ*ZJ  000240 

LEVEL  2*Q*S*X*Y*Z  000250 

OYNAMIC  Q1*02,Q3*Q4*Q5*Q6,Q7.G8  000260 

DYNAMIC  XI*Y1*Z1  000270 

C0MM0N/FLSH/DX2*0Y2*0Z2  000280 

CQMMON/IDX/LMM*KMM*JMM  000290 

C0MM0N/9TRI0/A (5*5) .0(5*5) *C<5*5) *0(5*5) * F (51  000300' 

RQ  « »HOZ  000310 

00  1000  J«2*vJMAX-l » JSL  000320 

RJ*Q(«***6*JU*JSL>  000330 

XJL*X(****J-llJ*JSL*l>  000340 

YJL*Y  ( •»*♦  J**l  I J+JSLM ) 000350 

ZJL»Z(****J-U J*JSL*1)  000360 

Ql*Q (*»**!* JlJ*USL)  000370 

q2»q{*,«,2,jij*jSL>  000380 

G3*Q(****3»JlJ*JSD  000390 

Q*vQ<»*«»4. JX J*JSL)  000400 

Q5«Q<*»*»5*JtJ*USL>  000410 

XK»(XJL(3iKMAX*2,**2ljSL*l)-XJL(*l(KMAX-l.**2lJSL*l) )*0Y2  000420 

YK*(YJL(3lKMAX*2***2l JSL* U -Y JL <-l lKMAX-1 « ** 2 t JSL* 1 > ) *0Y2  000430 

ZK*  ( ZJL  (3 1KMAX«2*#  * 2 ! JSL*  1 ) *ZJL  («1|KMAX-*1  ***2 1 JSL*  U ) *DY2  000440 

XU*(XjL(*»**3l JSL*2)-XJLf****l » JSL) >*0X2  000450 

YJ*(YJL(****3l  JSL*2)-YvlL  (•*••!  l JSL)  )<*OX2  000460 

ZJ*tZjL(**#*3l*JSL*2)  -ZJL  (***•  l USD ) *0X2  000470 

ZZ ( 1 ) * <YJ*ZK-ZJ*YK) *R J 000430 

ZZ (2) * (XK*ZJ«X J*ZK) #RJ  000400 

ZZ  (3)  * (XJ*YK»YJ*XK)  #RJ  000500 

ZZ(4)*-0M£<3AMZKJ(#t**2)  JSL* 1 ) *ZZ (2) -YKJ ( **** 2 lJSL*t ) *ZZ < 3)  ) 000510 

C 000520 

C****«**FLUXVE  000530 

C 000540 

HR  * 1 * /Q  1 000550 

U » Q2*RR  000560 

V * G3#RR  000570 

W - Q4«R«  OOOSflO 

OS  * ZZ(4> *ZZ (1) *U*ZZ C2) *V*ZZ (3) 000590 
PP  a GAMI*(Q5-,5*Q1*(U^U*V#V*w*W))  000600 

Fl(l)  » Q1*QS  000610 

FI (2)  * U2*QS+2Zii)*PP  000620 

FI (3)  * 03*QS*ZZ(2)*PP  000630 

Fi(4)  * Q4«QS*ZZ(3) *PP  0006*0 

FI (5)  * (Q5*PP)*0S-ZZ(4)*PP  000650 

c 000660 

C#»*****ENO  OF  FLUXVE  000670 

c 000680 

DO  20  H»1 *5  000690 

DEFINE  (F2*F1 (N) ) * (S2»Sl (N) ) « . 000700 

S2(**2lLMAX*l,*)*(F2(*.3lLMAX*2**)»F2t»,llLMAX**) ) *«0  000710 

20  CONTINUE  000720 


c-3 


. 1-C-1 


noo  ooo 


C 

C 

RO  * -HOY 

XJ» (XJU 1 JSL*2) -XJU (*.* , 1 1 JSU ) *0X2 
YJ»(YJLt*t*t3J JSL*2>-YJU**#»U0SU  )«DX2 
Z J* (ZJL  t‘®»*.3l  JSU2)  -ZJU {**  * »'i  tUSU) ) *0X2 
XU»(XjUt**2lUMAX.l»2rjSU*l)-XJLt*.-  1 1 IMAX-l .2 1 JSU* 1 >) *DZ2 
YU*<YjL<*t2lUMAX*l»2lJSU*U-YJU*«-ltLMAX-1.2lJSU*i)J*DZ2 
ZU* (ZJU { *.2lUMAX+l *2 1 JSU* 1 > -ZJU (*»  — 1 ILHAX-1 1 2 1 JSL* 1 ) J *DZ2 
YY ( 1) * t Z J*YL-Y J*ZU  *RJ 
YY (2) * (XJ*ZU-XU*ZJ) *RJ 
YY  f3> «<YJ*XC-XJ*YU>  *RJ 

YY  (4> ■•OMEGA* (ZJLt#.**2i JSU*1} #YY t2)  -YJU {*« * *2 t JSU*l > *YY (3) J 
C 

c *****#*fLUXVE 
C 

QS  * YY<4)*YYtl)*U*YY(2)«V*YY<3>*W 
PP  * GAMI*  (Q5- *5*Q1*  (U<MJ.VftV.ta*W)  ) 

F 1(1)  * Q 1*QS 
FU2J  * Q2*0S*YYUJ*PP 
Fl<3>  * Q3*QS*YY(2)*PP 
FI (A)  * Q4*QS*YY<3J *PP 
FI  (5)  * <Q5*PP)*QS-YY(4}*PP 
C 

C*******ENO  OF  FLUXVE 
C ' 

00  21  N«l*5 

DEFINE  tF2.Fl (N> ) * <Sl2tSl(N>j 

S3 ( 2 1 KM AX ♦ 1 •*♦*)* (F2  <3IKMAX*2f *»* J «F2 ( 1 IKMAX*** •> > *R0 
S2*S2*S3 

21  CONTINUE 
C 

C 

RO  * -HOX 

XK*  t X JU  (2 1 KM  AX*  1 t* v 2 1 JSU*  1 ) JU  t-1  IXMAX«*1  * *t2l JSU*1 > >*DY2 
YK*(YjU(2IXMAX*l**»2USL*l>-YJU(-in<MAXwl,*»2l%|SL*l)  i*0Y2 

ZK*<ZjUZ!KMAX*l,**2!JSL*n-ZJU-ltKMAXM,#,2tj$L*l)  > *0Y2 
XL»(XJU*t2lLMAX*l  i2»JSL*l)^JL  *LMAX-i#2ljSL*D  )*0Z2 
Yt*  (YJtl*«2n.HAX*l  #2  JJSl*U«YJU*»^l  ILHAX-1  i2t  JSU*  1)  >®0Z2 
ZU«(ZJU<*t2tUMAX*l*2ljSU*l)-ZJU t*i-ilUMAX-1.2lJSU*l> )#0Z2 
XX  < 1 ) ■ < YK*ZL-ZK»YU>  *RJ 

XX (2) »<zk*xl-xk*zu  #RJ 

XX<3)*<XK*YU-YK*XU*RJ 

XX  ( 4)  *«’OH£0A*  <ZKU(*»  **2 1 JSL)  *XX  (2)  -YKU  t*** » 2 1 JSU)  ®XX  {3} ) 
»**FUUXVE 

QS  « XXU)*XX(1)*U*XX(2)*V*XX(3)*W 
PP  • GAMI*tQ5-.5*Ql*{U*U.V«V*W*Wl  > 

Fill)  « Q1*QS 
FI (2)  « Q2*QS*XX(1J*PP 
FH3)  “ Q3*QS*XXtZ)*PP 
F1U)  m Q4*Q5*XX(3)*PP 
Fit 5)  « (Q5*PP)*QS-vXt4)*pP 

>**END  OF  FUUXVE 

DO  22 

DEFINE  (F2tFl'tN)  1 * (S2,S1<N)1 

S3 (*»*t21 JSU* l ) * tF2 l*»**3t JSU*2) «F2 (*«#* 1 1 JSU) ) « RO 
S2»S2*S3 

22  CONTINUE 

IFdNVlSC.rQ. 1)  CAUL  VISRH S 


000740 
000750 
000760 
000770 
000760 
000790 
000800 
000810 
000620 
000830 
000840 
000850 
000860 
000870 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
. 001020 
001030 
001040 
001050 
001060 
001070 
001080 
001090 
001100 
001110 
001120 
001130 
001140 
001150 
' 001160 
001170 
001180 
001190 
001200 
001210 
001220 
001230 
001240 
001250 
001260 
001270 
* 001280 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
001360 


1-C-2 


00  1000  N«l?5  . 001370 

DEFINE  (S4.S{N|)  001380 

S4<2lKMAX-l*2llMAX-*l*g(J*jSL)*S2IN)  00139Q 

1000  CONTINUE  001400 

RETURN  001410 

ENO  001420 

SUBROUTINE  VISMAT(JA.KA)  001430 

COMHON/eASE/NHAXtUMAX,KMAXiUMAX,jM*KM'lM'OT*GAMMA'GAMI«SHU*FSMACHt 001440 

1 DX1.0Yl*OZl.N0*N02*FV(5) »FO(Si * HO  * ALP  * GO  * OMEGA • HOX  % HD Y t HOZ  t 001450 

2 RM*CNBRt PI ♦ I TR* INV ISC • LANIN *NP* INTI  * INTHtINT3  001460 

COHHON/GEO/N81iN82*RFRONT*RMAX.XR*XMAX.ORAD*OXC  001470 

COHHON/REAO/IREAD*lVlRlTtNGftI  001480 

COHHON/VlS/«E»PRtRMUE.RK  001490 

CQMHON/VARS/G (243*30*  6*30 ) 001500 

COMMON/VARO/S (243*30*5*30)  001510 

COHMON/VARl/X (243* 30 *30) * Y {243 ♦ 30 .30)  *2(243*30.30)  001520 

C0MMON/VAR3/P (120*30) *XX(4> *YY(4) *ZZ(4>  001530 

LEVEL  2*Q*S.X,Y*Z  001540 

CQMMON/BTR ID/A  <5*S) *8(5*5) »C (5*S)t 0 (5*5) *F(5)  001550 

COHHON/COUNT/NC*NC1  001560 

COMMON  TURMU (243*30*30)  001630 

OIMENSION  OU (5* 5)  001640 

DYNAMIC  O.DU»SO*Sl*S2*S3*S4*S5*S6«CO*Cl*C2*C3*C4«C5*C6  001641 

OYNANIC  A*8*C*RR.RJ»01,0U1  001642 

DYNAMIC  XX*YY,ZZ*  RJ*Q5*RR*  U.V.*  001643 

COKMON/MUR/  L*  RJ*Q5'RR*  U*V«W  001644 

JaJA  001650 

KaKA  001660 

GKPR  * GAMMA/PR  001670 

PRTR  a PA/0 *9  001680 

ORE  * •Mo/(RE*OZl«*2)  001690 

R3  * l*/3.  001700 

TURM  * TURMU(K,L*J>  001710 

VNO  a RhU£*TUHM  001720 

GKAP  a RMUE*PRTR4TURM  001730 

50  * <ZZCl)**2*ZZ(2) ••2*2Z(3>**2)*RU  001740 

51  * (SO  *R3*ZZ ( 1 ) **2»R J) *VNU  001750 

52  * (SO  *R3*ZZ < 2) #*2*R J) *YNU  001760 

53  * (SO  ♦R3*ZZ<3)##2#RJ)*VNU  001770 

54  a R3*2Z(1)*ZZ<2) *RJ*VNU  001780 

55  * R3*ZZU)*ZZ(3)*RJ«*VnU  OC1790 

56  » R3*ZZ(2)*ZZ(3MRJ*VNU  001800 

SO  a SO  *GKPR«GKAP  001810 

E a Q5*RR  001820 

CO  * (Soi****2lLMAA) *SO(*»**l lLMAX-1) ) 001840 

Cl*  (Si (*• **2l LMAX) ♦51(***»1 jLMAX-1 ) l 001850 

C2  * (S2(».**2tLHAX)*S2t**»i llLHAX-l) I 001860 

C3  a (S3(»***2ILMAA)*S3(»**»1 JLMAX-I) ) O01Q7O 

C4  * (S4(*»»*2ILMAX)*S4(4***1ILMAX-1) ) 001880 

C5  * (S5(****2lLMAA) *$5 <***• l lLMAX-1) ) 001890 

C6  * (S6(4***2!LMAX) *S6(**»* ItLHAX-l) ) 001900 

OEFINE  (0(2*5)  *U  IKMAX-2*1IJSL*HLMAX-1)  ) 001910 

DEFINE (OU (2* 5) * U l*MAX-2 , 1 1 JSL  . ULHAX-1 1 ) 001920 

DEFINE (0(3*5)  * U)KMAX-2,llJSL*llLMAX-n  1 001930 

OEFINE <OU (3*5) * ( 1 * KHftX-2, \ t JSL* 1 ILMAX-1 ) > 001940 

DEFINE (0(4 .5) * { 1 IKM4X-2* l *USL* l I LMAX- 1) ) 00 1950 

D£FINE(OU(4iS) * U IKMAX^2,1*JSL*1ILMAX-1) ) 001960 

0(2.1)  a •(C1*U(****1 lLMAX-1) ♦C4*V(*,#,1 |LHAX*1) ^C5*»  001970 

1 W<****llLMAX-l) >*Rft(****llLMAX-l)  001980 

0U(2*D*  -(Cl*U(****2lLM4X)  *C4*V (*** *2tLHAX ) *C5*  001990 

1 *(**♦*  2 1 LMAX) ) *RR  {**♦*  1 ) LMAX-1 ) 002000 

0(2*2)  * Cl»RR<***.l!LMAX-U  002010 

0U(2*2)  * Cl*RR (*** *2 ILMAX)  >.*002020 


1-C-3 


0(2*3)  * C4*RR<0***1 ILMAX-i) 

0U12.3)  a C40RR(0|0*2fUMAX> 

0(2*4)  * cs»rr(0***humax-1) 

0U (2*4)  * C50RR(****2tUMflX) 

0(2*5)  * 0,0 
OU (2*5)  * 0,0 

0(3*1)  a -(C2#V(****1iLHAX-1)  ♦C4«U(****1:LHAX-»ij  *C6* 

1 H (0*0* l ILMAX-I) >*RR (**«*! ILMAX-l) 

DU ( 3* 1 ) « - ( C2*V  (♦***2tLHftX)  «C4»U (*** *2 1 UMAX)  *C6* 

1 W (*♦♦, 2 *LMAX) ) •««(•**, II LMAXwl) 

00*2)  * C4*RR(*,o*l  ILMAX-I) 

OU (3*2)  * C4»RR(***i2lUMAX) 

0(3*1)  * C2*RR (****! t LM AX-1 ) 

OU (3*3)  * C2*RR(**<»f2JUMAX) 

0(3*4)  * C60RR(®**it IUHAX-1) 

0U(3*4)  s C6*RR  <® **t  2 1 UMAX) 

0(3*5)  3 0,0 
OU (3*5)  * 0*0 

0(4*1)  * -<C3*W(*,*iliUMAX-l) *CS*U(**** ltUM4X*l> *C6* 

1 V(****1IUMAX-1)J  ®RR(®,**lJUMAX-l) 

OU  (4*  1)  «-(C3*W(****2iUMAX)'*C5*U(**»*2lUMAX)  *C6» 

1 V<**«*2!LMAX> )«HRf***tl lLMAX-1) 

0(4*2)  v CS*RR<****llUMAX-l) 

OU (4*2)  * C5*RR<»***2lUMAx> 

0(4*3)  « C6*flR(®*"*HUMAX-l) 

OU (4*3)  3 C6*RR(«i*»2!LMAX> 

0(4*4)  3 C3«RR{*t*»llUMAX«13 
OU (4*4)  3 C3*RR (•*** 2 IUMAX ) 

0(4*5)  * 0.0 
DU (4*52  • 0,0 

0(5*1)  - -( IC1-CO>*U<****1IIMAX-1)002*  <C2-C0)®V(*,#*1 ILMAX-1>**? 

1 * (C3-C0)*W (*♦*,! ILHAX-1 ) *#2*2,»C**U (•*•* 1 lLMAX-1) # 

2 V{«**.1IUMAX-1)*2,«CS*U(****1IUMAX-1)*W(***,1IUHAX-1) ♦ 

3 2.«C6*V(«i**1IUMAX.1)*»i  (*,•♦!  JUMAX-1)* 

4 CO*£(*»**l:UMAX-l) )*RR (•»•*! tUMAX-1) 

DU (5 » 1 ) 3 *<{C1-C0)*U  *02*(C2-CO)*V  **?♦  (C3-C0) ®W  **2* 

1 2,*C4»U  ®V  *2«<»CS*U  *w  *2**C6«V  *W  *CO»e  ) *RR (*♦* ,2 1 UMAX) 

0(5*2)  a ( (Cl-CO)*U(»,*,  l lUMAX-U  «C4*I/ (*,*,  1 tLMAX-1)  *C5» 

1 #(•**.  HLMAX-l))3RR(liUMAX-l) 

DU (5*22*  ( (C1-C0)*U (****2 IUHAX)*C4*V(»* **2 IUMAX) *CS* 
i W <♦*•• 2 IUMAX) ) *RR (**0,1  I UMAX- 1 ) 

0(5*3)  * ( (C2-CO)*V(**0,llUMAX-l) *C4*U <♦* ®* 1 lUMAX-i > *C6* 

1 »<***•  l!UMAX-l))®RR(®**t  ULMAX-1) 

OU (5*3)3  ( (C2-COJ0V (•,©, 2 1 UMAX) ♦C40U (**• ,2 1 LMAX) *C6® 

1 W (**0* 2 IUMAX) )0R« (0*0*1 ILMAX-i) 

0(5*4)  3 ( (C3«*CO)*W(0*0*llUMAX-n*C50U(0***l  ILMAX-I)  *C60 
1 V(0***1 IUMAX-1))*RR (**0*1 lUMAX-1) 

OU (5*4)  3 ( (C3-C0 ) *C5*U  *C6*V  ) »«R( *.**2 lUMAX) 

0(5*5)  - CQ*RR (0*0* 1 1LMAX-1 ) 

0U(5.S)  « C0*RR (•*•* 2IUM&X) 

00  31  N > 2*5 
00  31  M » 1*5 

o£riNe(oi»o(N*Mn  *(Dui*ou(Nim)) 

A(N*M)*A(N*H)0ORE*OT (***  * 2 ILHAX-I > 

Q(N*M)»9(N*M) -ORE* (01 (0*0*3 IUMAX) *OUl {*t®*2 1 UMAX-1 ) ) 

C(N*M)3C(N«H} *ORE0OU1 ( • , • * 3 1 UMAX  J 
31  CONTINUE 

return' 

ENO  . * * 

SUBROUTINE  VISRHS 

COMMON/BASE/NHAXtJMAX*KMAX*LMAX,UM.KM»LM,OT*GAMMA,QAMr*'SMU.ESHJlCHt  00  2640 

1 0Xl»DYl*O21*N0*NO2,EV(5) *FO(S)  .HO* ALP.GO.OHEOA , HOX ,HOY,HDZ . W'  0 02650 

2 RM*CNBR*RI*ITR*INV:SC*UAMIN*NP*INT1*INT2  INT3  , v 002660 


i jt* 


002030 
002040 
002050 
002060 
002070 
002080 
002090 
002100 
002110 
002120 
002130 
002140 
002150 
002160 
002170 
002180 
002190 
002200 
002210 
002220 
002230 
002240 
002250 
002260 
002270 
002280 
002290 
002300 
002310 
002320 
002330 
002340 
002350 
002360 
002370 
002380 
002390 
002400 
002410 
002420 
002430 
002440 
002450 
002440 
002470 
002480 
002490 
002500 
002510 
002520 
002540 
502550 
002560 
002570 
002580 
002590 
002600 
><002610 
^w’&sao 
* 02630 


S?s* 
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COMHQN/5EO/N01,N32*RFRONT*RMAX*XR*XMAX,ORAO*0XC 
CQMHON/*EAD/IReAO»IvrRlT,NGftI 
COMMON/VIS/RE, PR, RMUE.RK 
COHMON/VARS/Q (243*30*6*30) 

COHHON/VARO/S (26,30 ,6*  30  > 

COMK0N/VAR1/X (243*30*30) ,Y (263.30,30) *2(243*30,30) 
C0MM0N/VAR3/P ( 120*30) iXX(4) #YY(4) *22(4) 

LEVEL  2fQ*S*X,Y*2 

CQMM0N/8TRID/A (St 5) *Q(5*5)*C(5*5) *0(5*5) *F<5) 

COMMON/COUNT /NC , NCl 

DYNAMIC  $0*Sl»S2,S3,S4,S5,S6,Tt,T2*T3tT4,T5*T6,T7 
OYNAHIC  RJ*ZZ*U*V*»»fEtT8,T9tTlO*Tll*n2fn3»TX4,TlS*rj6 
OYNAMIC  0U,OV,OW,0£r,F2,P3*F4,fS,R2»R3*P4,R5»S2,r 
COMMON  TURHU (720.30) 

IF  (L'AMlN,£0  • 1 ) CALL  MUTUR 
gxpr  * gamma/pr 
.PRTR  a PR/0.9 
ORE  * H0/(RE^0Z1**2) 

TURN  « TURHU(K,L*J) 

VNU  a RMUE+TURM 
GKAP  - RHUE,PRTR*TURM 
00  2000  L* It UMAX 
UiaiKMAX-2tl)JSL*U  aU(*,L**> 

ViaiK«AX*2.irjSU*L)*V(*,L>*) 

Wl  (UKMAX-2*llJSL*U  aw  (•,(.*•> 

2000  CONTINUE 

00  1000*N*l ,3 

DEFINE (2i *221 (N) ) * {ZZZtZZ  (N) ) 

Z1 (liKMAX-2*llJSL*L)«ZZZ<**L.*) 

50  * (ZZl ( 1) #*2*ZZ1 (2) **2,ZZ1 (3) **2) *RJ1 

51  * (SO  ♦ZZ1(1)*»2/3,*PJI)*VNU 

52  * (SO  *ZZ1 (2) ••Z/3**RJ1) *VNU 

53  a (SO  *ZZ1 (3)**2/3»*RJl>*VNU 

54  a (ZZ1 <1)*2Z1(2>/3**RJ1>*VNJ 

55  a (ZZI (1)*ZZ1 (3)/3.*RJl>*VNU 

56  a (ZZ1(2)*ZZ1(3)/3,»RJ1)*VNU 
SO  a SO  *<3KPR*GKAP 

£ a Q5*RR1-«5#(U  **2*V  *«2*w  »*2> 

Tl  a SU*t**2)*Sl(«.*,l> 

T2  * S2(tt»**2) *S2(° * ** l ) 

T3  a S3(****2)*S3(#**i 1) 

76  a S6<*,#»2> *S4(*t**l) 

T5  a S5(**#*2)*S5 (*»*♦!) 

T6  a S6(***,2) ♦S6(***»l) 

T7  a ul  <***»2>  *Sl(*,**2) 

TS  « Vl <»***2)*S2(#**f2)*Vl(**»*l)*S2(***,l) 

T9  * wl (*,*>2)*S3t*.*»2)*wl <*»**1)*S3(*.*,1) 

TlOa  Ul  (®,**2)«S4(**«*2)  *Ul  (•***  1)  *S4 (*,*♦  l > 

Tl  la  Ul (**#*  2)  »S5(#***2),ul  (•f**U*S5(*,#,  1) 

T12=«  Vl<****2)*S4(*,*.2)  *Vl  (*,»,1 ) *54 (*♦*,!> 

T13*  Vl (**#»Z) *S6(***»  2) ,V 1 (*,*. 1) ♦S6(*,*.l) 

T14-  Wl (•, *,2) *S5(****2) *Wl (»,*tl)*S5(*t*,l) 

TISa  Wl(w***Z)#56<***t2) ,wl ( 1 ) *56 ( * 1 ) 

T16*  S0(*t*»2)*S0(***»l> 

DU  * (U1<***»2)-U1(****1> ) 
ov  . (vi(*,**2)->vi(***,in 

Dw  a {WK***,2)-W1(****1)  ) 

oei  a (e(*«*.2)-E(*.*iin 

R2  » T1*D0*Ta*0V*T5*DW 
R3  a T4*DU*T2*0V*T6*0* 

«4  * T5*DU,T6*0V*T3*QW 

R5  a (T7*T12*T16)*OU^(T8*T10*T15) *0V* (T9*T11*TA3)*OW,TX6»OEI 
00  ]000,L*2tLMAX^l 


002670 

002680 

002690 

002700 

002710 

002720 

002730 

002740 

002750 

002760 

002770 

002771 

002772 

002830 

002840 

002850 

002860 

002870 

002880 

002890 

002900 

002901 

002902 

002903 

002904 

002905 

002906 

002907 

0029OA 

002910 

002920 

002930 

002940 

002950 

002960 

002970 

002980 

002990 

003010 

003020 

003030 

003040 

003050 

003060 

003070 

003090 

003110 

003130 

003150 

003170 

003190 

003210 

003230 

003250 

003260 

003270 

003280 

003290 

003300 

003310 

003320 

003330 

.003331 
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T1  * 

SI(* 

♦ •♦L*1)*SK«. 

**L) 

003340 

T2  s 

52<« 

,*»L*1) ♦S2t*# 

*»L> 

003350 

T3  * 

S3  (* 

***L*1KS3(** 

**U 

003360 

T4  » 

S4<* 

***L*l)*S4(*t 

*iU 

003370 

T5  * 

S5(* 

9**L*U  ♦Sbt«* 

**U 

003300 

T6  * 

S6<* 

* »»L*1> ♦S6(»* 

*tU 

003390 

T7  * 

Ul<* 

♦ **LU>*SK*. 

• *U*1UUK****U*$1 (*t 

**l> 

003400 

T8  * 

Vl  (* 

**»L*i)*S2<<*. 

**L*U*VI  C*«**U*S2<*. 

**U 

003410 

T9'  a 

Wl  (♦ 

* **L*1 ) *S3 (** 

**L*1KWH*,**U*S3<*. 

•♦u 

003420 

TlOa 

□1  (• 

***U*lJ#S4(*s 

**L*1 > *Ui (* »* *L) «S4(*t 

**U 

003430 

Tli« 

Ul  (• 

f*»L»n*s5<*, 

*U1  (*»**U*S5(** 

»*L> 

003440 

T12* 

Vl  (* 

♦ **L*1 ) *S4 ( ** 

♦ tL*U  *Vl  <***.U  *S4<** 

• *u 

003450 

T13» 

VK* 

• **U*U*SM*t 

♦*L*1> *V1 (****!.)  *$6<*t 

**L> 

003460 

T14* 

Wl  (* 

.*tL*i)*SS<** 

*,L*lUwl(*,**U*S5(** 

**U 

003470 

T15* 

Wl  (♦ 

? **L*1 ) *ss ( • f 

**L* 1 1 *Wl  (*i*fU*S6(*t 

*«U 

003400 

T16* 

so<* 

*«*l*ikso<** 

**U 

003490 

OU  « 

(Ul( 

*»**i.*l)-ul  ) 

003500 

ov  * 

<v<* 

***U*1)-V(****L>  > 

003510 

OW  9 

f*t* 

.**U*l>-W<*»#tL) > 

003520 

OCX  * IC(****t.*l)-E<***tL>) 

003530 

F 2 * 

T 1 -U*T  4*0V*T5*UW 

003540 

F 3 ® 

T4*0U*T2*0V-*T6#0W 

003550 

F4  * 

TS»0U*T6*DV*T3*0W 

003560 

FS  * 

<T7*T12*T14)  *OU* {T8*T10*T15>  *OV+  <T9*TU 

>T13l*nw^Tl6*0EI 

003570 

DEFINE 

m t UlKMAX-a,  1 1 jSL*llLMAX«2>  1 

003580 

FU> 

a 0« 

003590 

F<2) 

a F 2 

-R2 

003600 

FC3) 

* F3 

*>R3 

003610 

F<41 

* F4 

-R4 

003620 

FiS) 

* F5 

-R5 

003630 

R2  a 

F2 

003640 

R3  * 

F3 

003650 

R4  a 

F4 

003660 

RS  ® 

FS 

003670 

DO  40  N « 

1*5 

003600 

S2<N1 

aS2<NJ*F<N)*ORE 

003690 

CONTINUE 

003691 

RETURN 

003710 

END 

003720 
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APPENDIX  D 


IMPLICIT  PSEUDO  COMPILATION 


subroutine  step 

C0MMON/BASE/NMAX»JMAXtKMAXiLMAX«JM#KMtLM.0T*3AMMA#GAMI»S*U,FSHACH 

1 *0XI»OYi*OZliNO#NO2*FV<5) *FD<5> *HO*ALP »GD*OMEOA*HDX*HDY * HOZ 

2 •RM*CN0R.Pl.I7RtINVISCfLAHlN»NP,INTl,INT2»INT3»LSLtJSL 
COM«ON/GeO/NBl,N82fSFRONT*fiHAX*XR»XHAX,OPAOtOXC 
CCHMON/REAO/IREAO* IWRIT  fNGftl 
COHNON/VIS/RE*PRfR«Ue»RK 

COMHON/VARS/Q <24*30*6*30) 

COMMON/VARO/S <24*30*5*30) 

CQMMON/VAR1/X <24*30. 30)  * Y < 24*30 .30) .2(24*30*30) 

COMMON  /VA.R3/P (120*30)  *XX<4)  *YY(4>  *ZZ<4) 

COMMON/COUNT/NC i NC 1 

COMMON/BTRID/A (5t5) t8 (S.5J *C(5*5) *D(5*5) *F 
LEVEL  2 QfStX.YiZ 

DYNAMIC  A#B*C*0*S.Sd*XX<4>  «YY(A>  »ZZ<4)  *XKL  »YKL 
DYNAMIC  FiFl (S) *F2*Si (5) 

DYNAMIC  ZKL 

DYNAMIC  XJL  f YJL  *ZJL  »XKJ  *YKJ  *ZKJ 
OYNAMIC  QTl*QT2tOT3tQT4*QT5»TV 
DYNAMIC  RJ»RR*Ui V*W*UU*UT*C1 * C2tC3*C4*C5*C6*C7 
DYNAMIC  RMJ,RF*XK,YK*ZK.XL»YL»ZLtXJ*YJtZj 
DYNAMIC  dPLUS<5i5)»DM!N(5.51 *qOES <0 . 2) *XYZ < 3*2) 

DYNAMIC  0liQ2t03tQ4iQ5 
DYNAMIC  XltYltZl 

INTEGER  G INPOS tGOUTPOS * XYZPOS , FOESC ( 5 > . SOESC ( 5 ) 

c 

CALL  3C 
CALL  RMS 
CALL  SMOOTH 

C 

C COMPUTE  L2  RESIDUAL 
C 

C THE  CONDITIONAL  BRANCH  COOE 
C***  IF(NC.EO.I)  GO  TO  5 

IFINC-(NC/1C) *10)5*5*6 
C***  5 CONTINUE 

CAN  BE  REPLACED  GY 

IF (MOD<NC» 10) ,N£*0>GO  TO  6 

RES ID  * 0*0 
KMH  * KM 
UMH  * LH 
DO  10  Ns  1*5 
DO  10  L * 1*LMH 
00  10  K * l *KMH 
00  10  J*2*JM 

10  RESIO  a RESID*S(K.L*N*J)**2 

RESIO  « HESlD/((JM-lJ*IKMH-n*tLMH-in 
RESIO  » SQRT<RESID)/tOT*. 00005) 

C 

C CAN  BE  VECTORIZED  AUTOMATICALLY »H0*EV£R  THE  THROUGHPUT  OF  THIS  LOCAL 
C LOOP  WILL  RE  LIMITED  10  THE  BANQwIOTH  OF  THE  INTERMEDIATE  STORAGE 
WRITE (6*100)  NC*REST0 

10O  PORMAT ( 1H0*3HN*  *tS*3X, UHL2  RESIDUAL*  |F16.3) 

6 CONTINUE 
C 
C 

PM  a 5MU 
C8  * I.*2.*RM 
GAM2  * 2.-OAMMA 
C THE  NESTED  DO  LOOP! 
c»»*‘  00  20  L « 2*LM 


000100 
OOOHO 
000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000230 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
00  Q 490 
000500 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
000730 
000740 
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00  20  K a 2»KM 

C CAN  BE  VECTOftlZEO  IN  SEGMENTS  AS  FOLLOWS t 
C 

c 

c***filtrx 

c 

JA*2 

j8ajMAX-l 

CP  MAP  RJ  gthriim  nr*jmax*lSl*RSokmax-2.st*kmaxikmax*lmaxi  WK»1 

CP  MAP  XKL  GTHRlJH  NR*JMAX-2»R5*iKMAX*  (LSL*2J  *ST*KMAX*LMAX|  wK*2 

CP  MAP  YKL  GTHRIIM  NR«JMAX-2.HS*KMAX»aSL*2)  *ST»KMAX*LMAX I *K*3 

CP  HAP  ZKL  GTHRIIM  NR»JMAX-2t RS*KMAA* (LSL*2) 1ST «KMAX*LMAX t PK*4 

cp  map  qi  gthriim  nR*jmax*lsl*«s»nmax-2*st»kmaxikmax*lmaxi  WK«5 

CP  MAP  Q2  GTHRIIM  NR*jmaX«LSL»RS*KHAX*2,ST«KHAX ikmax*lmaxi  WK*6 

CP  MAP  Q3  ' GThRiIM  nH»JMAX*LSL  i RS*KHAX-2  « ST*KMAX  1 KM  AX*LMAX  I WK«7 

CP  HAP  Q4  GTHRIIM  NRaJMAX  *LSL ♦ RSaKMAX-2  » SToKMAX I KM AX*LMAX I WK*S 

CP  MAP  Q5  GTHRIIM  Nft*JM AX*LSL  *RS3KMAX-2 * ST*KMAXtKHAX*LMAX I WK*9 

00  1000  l»2*lmax.lsl 

C LSL  IS  THE  NUMBER  OF  SLICES {COLUMNS!  IN  L PER  PROCESSING  PASS 
LSM«LSL*1 
C 

00  5 N® 1 1 5 

OEFINE  (FI (N) •F(2lKMAX«j,L1L4LSM*Ni2lJHAX^l) ) 

5 OEFINE  (SKN>  *S<2lKMAX-ltL*IL*LSM*N*2lJMAX-m 
Ql*Q<*tLJL*LSM* 1*2 1 UMAX-1) 

Q2*Q  <**L  IL*LSM*2*2WMAX«1  J 
Q3*Q (**L lL*LSM*  3«21UMAX-l ) 

Q4»Q(**LlL*LSM«4f2lJHAX-l) 

QS«Q(**Llt*LSMf5*2*JMAX-n 

CP  MAP  Ql*  GTHRIIM  NR*JMAX*LSL*RS«KMAX-2tST®KMAXlKMAX#LMAX 

CP  MAP  Q2*  GTHRIIM  NR«JMAX*LSl*RS«KMAX*2»ST*KMAX|KMAX*LMAX 

C»  MAP  Q3*  GTHRlIH  NR*jMAX*LSL»RS«KMAX-2tSTMKHAX |KMAX*LHAX 

CP  MAP  Q4«  GTHRIIM  MRoJMAX^LSL *RS»KMAX-2,ST«KMAX IKMAX*LMAX 

C»  MAP  G5*  GTHRIIM  NR*jMAX«LSL*RS«KMAX-2tST»KMAX I KMAX*LMAX 

C 

RU»Q (2  tKMAX*l • L IL*LSH »6 t * > 

C 

CP  MAP  Rjt  GTHRIIM  NR» JMaX * fiS«KMAX*LSL *ST*KHAX*LMAX 

C 

X KL -X ( * , 1 1 L ♦LSM* 1 * 2 TjM  AX- 1 ) 

C 

CP  MAP  XKL*  GTHRIIM  NR« JMAX-2 tftS»KMAX* { LSL*H) »ST*KNAX#LMAX 

C 

YKL«Y(®,L-ltL*LSM«.lt2iJMAX-l> 

C 

CP  MAP  YKL*  GTHRIIM  NR*jhAX-2*RS«KMAX* (LSL*2 ) *ST«KMAX*LMAX 

C 

ZKL*Z < * i L- 1 1 L ♦LSM* 1 « 2 1 JM AX- 1 ) 

C 

c#  MAP  ZKL»  GTHRIIM  NR«JMAX»2tRS«KMAX* (LSL*2) *ST®KNAX*LMAX 

C 

XK»(XKL£3lKMAXt2iLSL* 1 »«).XKL (1 lKHAX-2»2tLSL*l *•)> *0Y2 
C 

C»  VEC  XK  SU6IMUL  - VL*KMAX*lSL* ( JMAX-2]  I WK*H,RK«2 

CP  HAP  XK  CMPSIMM  CVL»KMAX*LSL* (JMAX-2) *RL* (KMAX-2 J *LSL* ( JMAX.g) I 

C®  WK»2I*RK»ll 

c 

YK*(YKU3lKMAX#2lLSL*l*P)-YKLUIKHAX^2»2ILSL*l**))*0Y2 


000750 

000760 

000770 

000780 

000790 

000800 

000810 

000820 

000821 

000822 

000823 

000824 

000825 

0008P6 

000827 

000828 

000829 

000030 

000840 

000841 

000850 

000860 

000870 

000880 

000890 

000900 

000910 

000920 

000921 

000922 

000923 

000924 

000925 

000928 

000927 

000930 

000931 

000932 

000933 

000940 

000941 

000942 

000943 

000950 

000951 

000952 

000953 

000960 

000961 

000962 

000963 

000970 

000971 

000972 

000973 

000974 

000975 

000980 


CP  VEC  YK  SUBIMUL  VL*KMAX*LSL* ( JMAX-2) I WK«12(RK»3  000982 
CP  MAP  YK  CMPSIMM  CVL*KMAX#LSL*  (JMAX-2)  #RL*  (KMAX-2)  *LSL#  t UMAX*»2)  I 000983 
C*  WK»22»RK»12  000984 


C 


000985 


ZK*  < ZKU  ( 3 1 KH AX  « 2 1 LSt  ♦ 1 . • > -ZKL  < 1 1 KMA  X-2  ♦ 2 ! LSL  ♦ 1 1 • ) ) *0  Y2 


000990 

C 000991 

C»  VEC  ZK  SUBlMUL  VL*KMAX,LSL* ( JMAX-2) I WK«13*RK«4  000992 

C*  MAP  ZK  CMPSlMM  CVL»KMAX*LSL* (JMAX-2) ,RL*(KMAX-2)*LSL* (JMAX-2) I 000993 

C*  WK»23*«K*13  000994 

C 000995 

XL»IXKlt*t3lLSL>*>-XKU**llLSL-2»*n*0Z2  001000 

C 001001 

CP  VEC  Xt  SUBIHUU  VL«KMAX*LSL*( JMAX-2))  WK*14  001002 

CP  MAP  XL  CMPSlMM  CVL*KMAX*LSL* (JMAX-2) *RL*(KMAX-2)*LSL*< JMAX-2) I 001003 

C*  RK*14t»K*24  001004 

C 001005 

YL*(YKL(**3lLSL**)-YKL(**l»LSL-2**)  J *OZ2  001010 

C 001011 

CP  VEC  YU  SU81MUI  VL*KMAX*LSL* (JMAX-2) I VK*15  001012 

CP  MAP  YL  CMPSlMM  CVL*KMAX*LSL* < JMAX-2) * RL* (KMAX-2) *LSL* ( JMAX-2) I 001013 

C*  HK*15*^K*25  00 1014 

C 001015 

ZL*<ZKL<*»3lLSL»«M-ZKU*tl*LSL-2»*M*022  001020 

C 001021 


CP 

VEC  ZL 

SUBlMUL 

VL«KMAX*LSL#(JMAX-2> \ WK*16 

001022 

CP 

MAP  ZL 

CMPSlMM  CVL»KMAX*LSL* (JMAX-2) * «L* (KMAX-2) *LSL* (JMAX-2) t 

001023 

C* 

RK*16*WK*26 

001024 

c 

001025 

XX(l)*(YK*ZL-ZK*YL>*RJ<**4*2tJHAX-l) 

001030 

c 

001031 

c» 

VEC  T 1 

MULIMULISJB 

VL* (KMAX-2) ♦LSL* (JMAX-2)  t RK*26 

001032 

c 

001033 

XX(2)*(2K»XL-XK«ZL> *Rj(*i**2t JMAX-1) 

001040 

c 

001041 

c* 

VEC  T2 

MULIMULJSU8 

VL* (KMAX-2) *LSL*( JMAX-2) 

001042 

CP 

VEC  XXI 

MUL 

VL-<kMAX-2)*LSL*(JHAX-2) 

001043 

c* 

SSS  XX2 

MUL 

<RJ*T2> 

001044 

c 

00104S 

XX (33  * 

(XK«YL-YK*XL)#RJ(***i2l JMAX-1) 

001050 

c 

001051 

CP 

VEC  T 1 

MULIMUL1SU9 

VL*(KMAX-2)*LSL*( JMAX-2) 

001052 

C 

001055 

X X ( 4 } 2< 

-OMEGA* (ZKU 2lKMAX-l»l:LSL *2? JMAX-i) *XX (2) 

001060 

1 -Y*U2tKMAXM.  H LSL » 2 UMAX-1 ) *XX(3)  ) 

001061 

c 

001062 

CP 

VEC  T2 

MUL 1 MUL 1 SUB 

VL* (KMAX-2) *LSL* (JMAX-2) 

001063 

CP 

VEC  XX3 

MUL 

VL* (KMAX-2) *LSL* (JMAX-2) 

001064 

C* 

SSS  XX4 

HUL 

<OM*T2> 

001065 

c 

001066 

0(1.21 

■XX (1 ) *HOX 

001070 

0(1*3) 

■XX (2 ) *HOX 

001060 

c 

001081 

CP 

VEC  012 

MUL 

VL* (KMAX-2) *LSL* (JMAX-2) 

001082 

c* 

SSS  013 

MUL 

001083 

c 

001084 

oa«4) 

■XX (3) *HDX 

001 090 

0(1*1) 

■AX(4) *HOX 

001100 

c 

001101 

CP 

VEC  014 

MUL 

VL* (KMAX-2) *LSL* (JMAX-2) 

001102 

c# 

SSS  Oil 

MUL 

001103 

c 

001110 

c*« 

001120 

c 

001130 

RR-l/Ql 

001140 

c 

001141 

CP 

VEC  RR 

otv 

VL* (KMAX-2) *LSL* ( JMaX*2) * RK*5 

001142 

c 

00114** 

1 -D-3 


U«RR«42 

V*RR*Q3 

C 

C*  V£c  u MULI  RK*7  VL*(KMA*-2>*LSL*(JM&X-2> 

c©  SSS  V MUL 

C 

W*RR*04 

UU  * U*D(1*21 *V*Q(1*3> .««0(1»4) 

C 

C*  VEC  T1  MULlMULIAOO  Vl«<*MAX-2) *LSL* t JMAX-Z)  «U*012*V*013> 

C*  V£c  UU  MULlMULIAOO  VL*{KMAX-2)«LSL*(JMaX-2>  <Tl*W*|Rft*04t » 

c*  RK*8 

c 

UT  * u**2*V**2*W**2 

C 

C»  VEC  Tl  MULlMULIAOO  VL* (KMAX-2)  *L5U* < JMAX-2)  <U*U*V*Vi 

C*  VEC  UT  MULI  ADO  VL*  <kMAX«2>  *L$L*  (JMAX-2)  <TUW*«> 

c 

Cl  * GAMI«UT*.5 
C 

Cn  VEC  Cl  MUL*MUL  VL*(KMAX.2)»LSL*(JMAX-2J 

c 

C2*RR*OAMMA»Q5 

C 

C#  VEC  C2  MUL  I MUL  VL»(KMftX-2)  ♦L'SL®  (UMftX-2) 

C 

C3*C2«C1 
C4*0(l*l>  *UU 
C 

C te  VEC  C3  SUB  VL* (KMftX-2) *L$L* (UMAX-2) 

C*  SSS  C4  * ADO 
C 

C5«GAhI«U 

C6«GAHl*V 

C 

C»  VEC  CS  MUL  vt*|KMAX-2>«LSL*( JMAX-2) 

C*  SSS  C6  MUL 

C 

C7*GAHl*W 

DEFINE  (0 ( 1« 51  » (1iKHAX-2,1ILSL-2*UJMAX-2>  ) 

0 ( 1 *S) *0 

c 

C*  VEC  C7  MUL  VL*<KMAX-2> *LSL* CJMAX-2) 

C*  SSS  015  ADD  CO) 

C 

0 (2»  1)  * 0a#2)»Cl-U*UU 

c 

C»  VEC  021  MULlHULlSUB  VL* ^MAX-SI *LSL* < JMAX-2 ) 

C 

0(2*2)  * C4*0Q*2J  •0AH2#U 
C 

C*  VEC  022  MULlMULIAOO  Vl*<KMAX-2 J *L$L* (UMAX-?) 

C 

0(2*3)  * -0U*2)«C6*0(1*3>*U 
C 

C*  VEC  023  MULlMULIAOO  VL* ( KNAX-2) *LSL* (JMAX-2) 

c 

0(2*4)  8 Mm*2J«C7*0U*4)*U 

c 

C#  VEC  024  MULlMULIAOO  VL* (KMAX-21 *LSL* { JMAX-2) 

C 

0(2*5)  * 0(1*2)  *<3AMI 
0(3*1)  * 0 (1 *31 *C1*V*UU 


001150 

0011*0 

0011*1 

001142 

001163 

001164 

001170 

001180 

onnei 

00118? 

001183 

00118* 

001185 

001190 

001191 

001192 

001193 

001194 

001200 

001201 

001202 

001203 

001210 

001211 

001212 

001213 

001220 

001230 

001231 

001232 

001233 

001234 

001240 

001250 

001251 

001252 

001253 

001254 

00X260 

001270 

001280 

001281 

00X202 

001283 

001284 

001290 

001291 

001292 

001293 

001300 

001301 

00130? 

001303 

001310 

001311 

001312 

001313 

001320 

00132,1 

001322 

001323 

001330 

001340 
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c 

c » VEC  031  *UL!MUUIS*JB  VL*(KMAX-2)  *LSL*(  JHAX-2) 

C 

0(3*2)  * Q(l*2)*V-OUt3)*CS 

C 

C*  VEC  032  MUUHUUSU8  VL*  (KMAx-2)  «LSL*(  JMAX-2) 

c 

0(3*3)  • C4*0(1*3)*GAM2*V 
C 

C#  VEC  033  MULlHULUOO  VL»(KMAX-2) *LSL*< JMAX-2) 

C 

013**)  * -DU,3)*C7*0(l**)*V 

C 

Cn  VEC  034  MUL I MUL I AOO  VL*( KMAX-2) *LSL*< JMAX-2) 
C 

0(3*5)  * DU*3)*GAMT 
C 

C » VEC  025  MUL  VL«(KMAX-2)*LSL*< JMAX-2) 

C*  SS$  035  MUL 

c 

0(**l)  « 0<1**)*C1-*«UU 

c 

C*  VEC  0*1  MUUMULISU8  VL» (XMAX-2)  »LSL* ( JMAX-2) 

c 

01**2)  * Dll»2)*^01 1 **>  *C5 
C 

Cn  VEC  0*2  MUUMUUSUB  VL*  (KHAX-2)  *LSL*  ( JMAX-2) 

C 

0(4*3)  * 0(1*3) *W-0( 1 **) *C6 
c*  VEC  0*3  MULlMUUlSUa  VL* (KMAX-2) *L$L* (JMAX-2) 

c 

01***)  M C**0 ( 1 * *) *GAH2*W 

c 

cn  vec  o**  MUL l HUL I ADD  VL* (KHAX-2) *LSL« (JMaX-2) 
C 

0 (*« 5)  * 0(lf*)«GAHt 
C 

C*  VEC  0*5  MUL  VL*(KHAX-2>*LSL*<JMAX*2> 

c 

0(5,1)  * <-C2*2**Cl> *UU 

c 

Cn  VEC  DSi  MUL I ADO (MUL  VL* (KMAX-2) *LSL* (JM4X-2) 

C 

0(5*2)  » 0(1*2) *C3-C5*UU 
C 

Cn  VEC  052  MUL  IMUL  I SUB  VL*  (KMAX-2)  *LSL*  (JMAX-2) 
C 

0('5*3)  « 0(1*3) *C3-C6*UU 
C 

Cn  vec  053  MULiMULISOB  VL« (KMAX-2) *LSL*< JMAX-2) 

c 

0(5**)  M 0(1*4) *C3«C7*UU 
C 

cn  V£c  05*  MULIMULJSUQ  VL»(KHAX-2)*LSL»( JMAX-2) 
C 

0(5*5)  * 0U*1MGAMMA*UU 

c 

Cm  VEC  055  MUL I ADO  VL* (KMAX-2) *LSL* (JMAX-2) 

C 

C 

C**iM*#*eNO  OP  AMATRX 

c 


0013*1 

0013*2 

001343 

001350 

001351 

001352 

001353 

001360 

001361 

001362 

001363 

001370 

001371 

001372 

001373 

001380 

001381 

001382 

001383 

00138* 

001350 

001391 

001392 

001393 

001*00 

001*01 

001*02 

001*03 

001*10 

001*11 

001*12 

001*13 

001*20 

001*21 

001*2? 

001*23 

001*30 

001431 

001*32 

001*33 

001**0 

001*41 

001*4? 

001**3 

001*50 

001*51 

001*52 

001*53 

001*60 

001*61 

001*62 

001*63 

001*70 

001*71 

001*72 

001*73 

001*80 

001*81 

001*82 

001*83 

001*90 

001500 

,001510 


1 -D-5 


RMg.RH/R J < * * * , 2 1 JHAX-1 ) 

001520 

c 

001521 

c» 

VEC  RMvl 

OIV 

VL* (KMAX-2) *LSL*( JM4X-2) 

001572 

c 

001523 

RR*8MJ*RJ(*,*, 1 1 JMAX-2) 

001530 

RF*Rrf J*R J (•,*,31 UMAX) 

001540 

c 

001541 

c# 

VEC  RR 

MUL 

VL*  (KMAX-2) *LSL* ( JMaX-2) 

001542 

c* 

SSS  «F 

NUL 

001543 

c 

001S44 

00  23 

N*l»S 

001SS0 

DO  22 

M-i*S 

001S60 

OEFINE 

(0 (N,H) , <l|KMAX-2,llLSM,lJUMAX-2) 

00 1570 

DEFINE 

(01 »0 (N»M) J 

001560 

A (N,M) **Dl (*,*,! tJMAX-21 

001500 

C(N,M) 

*01  (*»*»3  l-JMAX) 

001600 

c 

001601 

c* 

VEC  ANM 

NOP 

VL* (KMAX-2) *LSL* ( JMAX-2) 

001602 

c* 

SSS  CNM 

NOP 

001603 

c 

001604 

22 

9(N,M) hO 

001610 

C 

001611 

Ctt 

MAP  QNM 

SCTRtMM 

N8*l ,RS* (KMAX-21 *LSL* ( JMAX-21 

001612 

c 

* 

001613 

A(N,N) 

* A(N*N}-flR 

001620 

B(N,N> 

* C8 

001630 

c 

001631 

c# 

MAP  BNM 

STCfilMM 

NR*l,R$*(KMAX-2)*LSL*tJMAX-2) 

001632 

c 

00X633 

C(N,NJ 

• C'N,N)*RF 

001640 

c 

. 

001641 

c* 

VEC  ANN 

sue 

VL* (KMAX-2) *LSL*  < JMAX-2) 

001642 

c* 

SSS  CNN 

SUB 

001643 

c 

001644 

23 

Fl(N> 

»S1 (N) 

. 

001650 

c 

001651 

c» 

MAP  FIN 

GTHR t IM 

NR*JMAX®2*RS* (KMAX«2) *lsl*st*khax*lmax 

001652 

c 

001653 

c 

001660 

c**< 

»**ENO  OF 

filtrx 

001670 

c 

001680 

c 

S MUST  BE  ZERO  ON  9, 

c# 

001640 

c 

00 1700 

C n 

MAP  RUT 

GTHRi II 

NRsKMAXcjSL* (LMAX-gj ,ST*KMAX1 1 \ *K«1 

001701 

C* 

MAP  XJUT 

GTHRtll 

NR«KMAX*jSL*LMAX,STaKMAXm  WK*2 

001702 

Cie 

MAP  yult 

gthriii 

nR«kmax*jSl*lmax«st*kmax l 1 * WK*3 

001703 

C» 

MAP  2JLT 

<jTHR ( I I 

NR»KH AX* J SU*LM AX  » ST*KM A X ! 1 » WK*4 

001704 

C# 

MAP  Q1T 

GTHRJII 

N8*KMAX*jSL*(LMAX-?j  tST*XMAXl 11  *K«S 

001705 

c» 

MAP  02T 

GTHRl ii 

Nft»KMAX*USL4 (LHAX«*2>  *ST*KMAX!  11  *K«6 

001706 

c# 

MAP  Q3T 

GTHRJII 

N8«KMAX*JSL*(LMAX^2J  ,ST*KHAX  1 1 1 PfK*i7 

001707 

Cl 

MAP  OAT 

GTHRiII 

NR*KMAX*JSL® (LMAX-2) ,ST»KMAX * 1 1 *K«8 

001708 

Cl 

MAP  Q5T 

GTHRtH 

N8*KMAX*JSL« (LMAX-2) ,ST*KMAX I 1 1 WK*9 

001709 

c 

001710 

CALL  BTRI(2,JM) 

001720 

DO  24  N«1,S 

001730 

Sl(N)*FHN) 

001740 

c 

• ^ 

001741 

c* 

MAP  SIN 

SCTRjMI 

N8*JMAX»2tRS«(KMAX-2)*LSL,STaKMAX*LMAX 

001742 

c 

001743 

CONTINUE 

001750 

c 

001760 

c 

001770 

1000*  CONTINUE 

001780 
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1 *0X2 

VEC  YJ  SUBlMUL  Vt*LMAX#{jSf2)*«KMflX-2) 

MAP  YJ  CMPSIMM  CVL*LMAX*<JSL*2)MKMAX-2>,VL*(LMAX-2>*JSL*(KMAX- 

2d*(ZJL  1 2tLMAX-lf  31  JSL*2t2lKMAX-D -XJLf2H.MAX-.it  li  JSUf2lKMAX-lJ  ) 
1 *DY2 

VEC  ZJ  SUBlMUL  VL*LHAX*(jSL^2)*(KMAX-2) 

MAP  ZJ  CUPS ( MM  CVL*lMAX®(jSL*2>*tKMAX-2)fVL*<LMAX-2}*jSL*{KMAX- 

XL«(XjLt3H-MAX.2*JSLUt2lKB)-XJL(llLMAX-2t2lJSLMt21K0)  )*0Z2 
VEC  XL  SUBlMUL  VL*LMAX* ( JSL*2) * (KMAX-2) 

MAP  XL  CMPSIMM  CVL*LMAX*(JSL*2J*tKMAX-2)tVL*(LMAX-2)*JSL*tKMAX. 

YL*(YJL(3ILHAX#2I jSL*l*2lK0)-YJL(llLMAX-2f2l JSL*I*2tK8l )*0Z2 
VEC  YU  SUBlMUL  VL*LMAX* ( JSL*2> * (KMAX-2) 

MAP  YL  CMPSIMM  CVt**LMAX* ( JSL*2)  * (KMAX-2)  *VL* (LMAX-2)  *JSL# <KMAX« 

ZL*<ZJLC3lLMAX#2lJSL*lf2lxB)-ZJLCltLMAX-2*2lJSL*l*2*KB> )*0Z2 
VEC  ZL  SUBlMUL  VL*LMAX* (JSL*2> * (KMAX-2) 

MAP  ZL  CMPSIMM  CVL*IMAX*<JSl*2)* (KMAX-2) *VL* (LMAX-2) *JSL* <KMAX« 

YYU)*<ZJ*YL-YJ#ZL)#RJ(****2|KMAX-1> 

YY ( 2) *<XJ*ZL*XL*ZJJ •RJ(****2tKHAX-l) 
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1 YJL (2ILMAX-1 *2l jSMt2l KMAX-1 J *YY (3) > 

0(1*2)  «YY ( I ) *HOY 
0(1*3)  *YY(2)*H0Y 
0(1. A)  «YY(3)*H0Y 
0(1*1)  *YY(4)*H0Y 


**AMATRX 

Rfi«l/Ql 

U«PR*Q2 

V*RR*G3 

V*RR*Q4 

UU  * U*0(l*2)*V*D(i*3) *W*0(1*4> 

UT  s y**2«v**2*w**2 

Cl  « GAMI*UT*.5 
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C3*C2-C1 

C4*D<l»t>*UU 
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C6»GAMl*V 

C7*GAMl*W 

OEriNE  (D(ltS) . (lltMAX-2, IIJSLillKMAX-21) 

0. 

0(l*2)*Cl-U*UU 
C4«0(1*2)*GAM2*U 
-D(l#2)*Cb*0(l,3)*U 
-0(1*2)  *C7*0U**)*U 
0(1*2) *GAMt 
D(lt3)*Cl-V4UU 
0(1*2) *V-0(1*3)*C5 
C4*0 ( 1 *3) *GAM2*V 
-0(1*3)  *C7«0U,4)*V 
0(1*3) *GAHI 
D 1**1)  * Q(1.4)*C1-W*UU 
0(4*2)  • 0U»2)*#-0<1*4MC5 
Dtl#3)*¥-Q<l*4)*C6 
C4*0  < 1 *4) *GAM2*W 


ou*s> 

0(2*1) 

0(2*2) 

0(2*3) 

0(2*4) 

0(2*5) 

0(3*1) 

0(3*2) 

0(3*3) 

0(3*4) 

0(3*5) 


0(4*3) 

0(4*4) 


002094 
002100 
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002102 
2)002X03 
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002110 
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002112 
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002122 
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002124 
002130 
002132 
2)002133 
002134 
002140 
002142 
2)002143 
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002220 
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002280 
002290 
002300 
002310 
002320 
002330 
002340 
' 002350 
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002480 
002440 
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002530 
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ooo 


C 

C< 

C 

C 


0(4,5)  « 0U»4)«GAHI 

ots, n « <-c2,2,*en*uu 
0(5,2)  * 0 ( 1 1 2) *C3"C5*UU 
0(5,3)  « 0 ( l ,3) *C3"C6*MJU 
0(5,4)  < 0(1,4>*C3-C7*UU 
0(5,5)  * 0(1,1)*GAMHA*UU 

♦ENO  OF  AMATRX 

RU  IS  RETAINEO  FROM  THE  DIFFERENCING  CALCULATION 
RM J«RH*R J ( ♦ , • , 21 KHAX- 1 ) 

RR»«MJ*RJ{*,*, 1 (KMAX-2) 


00  34  N»  1 * 5 
00  33  M*1 , 5 
DEFINE  (01,0 (N»rt) ) 

0EFINE(B(N,M>  , UILMAX-2,U  JMAX-2,1  IKHAX-2) ) 

C 

C NOTE  THAT  0 HAS  changed  SHAPE  AS  WE  ARE  dealing  WITH 
C THE  TRANSPOSED  MESH  FOR  THIS  SWEEP 
A (N, H) *»Q 1 (*,*,! I KHAX«2) 

S(N,M) *0 

33  C(N,M)*0U*,*,3tKMAX) 

A (N«N)  * A (N«N) »RR 
B(N,N)  » CB 

C(N,N)  * C(N»N)-RF 

34  CONTINUE' 

C F HAS  BEEN  PREHOVEO  AT  TOP  OF  LOOP 
C 

C*******END  of  filtry 

c 

CALL  0TH I (2 ,KH) 

00  31  N«i,5 

DEFINE  (52, Si IN) ) , (F2*F1 (N) ) 

00  31  K*z,K8 

S(K,2)LMAX-1,N,J*J*JSH)  * F2(21LMAX-I,UJSL-2*K> 
31  CONTINUE 


2000  CONTINUE 

C##****PILTR2 

OEFINE  (RJ, (1 1KMAX » 1 IJSL, l l LMAX) ) 

OEFINE  «U, ( 1 1 KM AX 1 1 1 JSL, 1 1 LMAX ) ) 

OEFINE  (Q2, (llKHAXtll JSL, l(LHAX) ) 

OEFINE  (03 • (llKMAXtligSL.llLHAX) ) 

DEFINE  (Q4, (IIXMAXi IfJSLtl (LMAX) ) 

DEFINE  (Q5, (1 IKMAX , 1 iJSL, 1 ILHAX) ) 

DEFINE  (XKJ, (llKMAX,ltJSL*2»llLMAX) ) 

DEFINE  ( YKL* ( 1 IKMAX, 1 | JSL*2, 1 i LMAX) ) 

DEFINE  (YKL,  aiKHAX,HJSL*2,liLMAX)  ) 

LA  *2 

LB  «LMAX-1 

JSM  « JSL-1 

00  3000  J*2,UMAX*JSL 

c 

00  61  N«l,5 

61  DEFINE  (FKN)  t(F(2*KHAX-l,JIJ#USM,N,2tLNAX«l) 
DO  81  L*1,LMAX 

RJ(1ikMax-2,1 I JSL,L>*Q(2lXHAX-i,t,6#Jl 
XKJ(1  1KMAX,1|JSL*2»U*X(1  tKMAX,L,J-l  IJ*JSL) 
YKU ( 1 1 KHAX , 1 S JSL*2  »L) »Y ( 1 » KMaX ,L , J-l lU* JSL> 
2KJ(UKMAX,iiJSL*2*L)«2(l  IKMAX ,L,J-UJ*JSL) 


002550 

002560 

002570 

002500 

002590 

002600 

002610 

002620 

002630 

002640 

002650 

002660 

002670 

002660 

002690 

002700 

002710 

002720 

002730 

002740 

002750 

002760 

002770 

002780 

002790 

002800 

0026^0 

002820 

002830 

002840 

002850 

002860 

002870 

002880 

002Q90 

002900 

002910 

002930 

002940 

002950 

002960 

002970 

002980 

002961 

002982 

002903 

002984 

002985 

002986 

002907 

002908 

002990 

003000 

003001 

003010 

003020 

003030 

003040 

003060 

003070 

003080 

003090 

003100 
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Ql(llKHAX*njSL*L>aQ<2iKHAX-lfL*It*;tJ*JSH) 

Q2 ( 1 IKM4X* I t JSL *L)  °Q (2 lKMAX-1  »U »2 »vj i J*  JSM ) 
a3<ltKMAXtltJSLfU*Q<2lKMAX-i#L*3f.Jt  J*OS«> 
Q6(UKMAX*nJSL*U*Q(2tKHAX-l*L#4,yiJ«.JSM> 

QSUIKHAX#!  IJSLtU)*Q(2!KMAX-itL*5»0!J*JSMJ 
C 

c 

01  CONTtNUe 

00  91  N*1 *5 
00  91  L*1.LMAX 
DEFINE  <F2*F1(N)) 

91  F2(4,4*U*S{2tKMAX-l*L*N*JIJ*jSM) 

XK*(XKJC3IKMAX,2ljSL^l,2!tB)-XKJ(liKHAX*2*3l  JSt^W2lLB»  >*0V2 
YK«(YKJ(3IKMAX,2lJSL*l»2lL9).YKJ(l|KMAX-2*2tJSLM*2tL9) ) *DY2 
ZK»(ZKJ<3*KMAX,2lJSL*l*2tLB)-ZKJUtKMAX-2*atJSL*l,2tL81>«DY2 
XJ«(XkJ(2*KHAX-1»31  JSL*2*2U.8) -XKJ(2lKMAX*l  »l  l JSLt  2iL9n*0X2 
Yj*(YKJ(2tKMAX-l,3lJSL*2*2lL8)-YKJ<2(KWAX-i,llJSL.2lLB> )*0X2 
Zj»<2KJ<2lKMAX-lt3J  JSL*2»2lLQ)’-ZKJ{2lKMAX-l*UJStr2*LB)  )*0X2 
ZZUJ*<YJ*ZK-ZJ*YK1*RJ 
ZZ (2) » (XK*ZJ-XJ*ZK> *RJ 
ZZ(3)«UJ*YK-Y0*XK)*RJ 

ZZ  ( 4) *«0M£GA4 ( ZKJ { 2 1 KMAX- 1 * 2 1 JSH*  2 1 LB ) *ZZ ( 2) 

1 oYKJ<2IKMAX«l,2lJSM*2|LB)*ZZ(3) ) 

oii»2)  *zzm*Hoz 
oa«3)  *zz  t2) *hdz 

0(1*4)  »Z2(3)«H0Z 
0(1*1)  »ZZ(4)*H0Z 

c 

£•«*»*• amatrx 

RR*1 ft/Ql 
U«RR*Q2 
V»RR#Q3 
tf«RR«Q4 

UU  « U«0U*2)  ♦v*0(l*3)  ♦W*oa.4) 

UT  » U4*2*V**2*V<#*2 

Ci  * 3AHI*UT*,5 

C2»RR*05*0AMHA 

C3«C2-Cl 

C6«0 (1*1) *UU 

C5*GAHI*U 

C6«GAHI*V 

C7*GAMl*W 

DEFINE (0( 1 *5) * UlKMAX-2,1 1 JSUt 1 »UHAX«2) ) 

0(1*5)  * Oe 

0(2*1)  « 0(lt2)4Cl-U*UU 
0(2*2)  « C4*D (1*2) *GAH2*U 
0(2*3)  ■ *0 ( 1 *2) *C6*0( 1 * 3) #U 
0(2.4)  * *0U*2)*C7*O(1,4)*U 
0(2*5)  * 0a*2)*0AHr 
0(3.1)  • 0(1.3)*Ci-V«UU 
0(3*2)  * 0(1*2)  #V»0 d*3) *C5 
0(3*3)  « C4*0(1*3)*«AM2*V 
0(3*4)  ■ -0(l»3)4C740U*4i*V 
0(3.5)  « D(l*3)*GAHl 
0(4*1)  * 0<l»4)*Cl-w*yu 
0(4.2)  « Dtl.2)*V«.0U*4)*C5 
0(4,3)  * 0(lt3)^-0Ui4)*c6 
0(4*4)  * C4«0U»4)*GAM2*¥ 

0(4*5)  * 0(1*4) •OAmI 
0(5*1)  * (-C2*2.*Cl) *UU 
0(5.3)  ■ 0(l*3)*C3-C6*UU 
0(5,4)  * 0(i.4)*C3-C7*UU 


003110 

003120 

003130 

003140 

003150 

003160 

003170 

003180 

003190 

003200 

003210 

003220 

003230 

003240 

003250 

003260 

003270 

003280 

003290 

003300 

003310 

003320 

003330 

003340 

003350 

003360 

003370 

003300 

003390 

003400 

003410 

003420 

003410 

003440 

003450 

003460 

003470 

003480 

003490 

003500 

003510 

003520 

003530 

003540 

003550 

003560 

003570 

003500 

003590 

003600 

003610 

003620 

003630 

003640 

003650 

003660 

003670 

003680 

003690 

003700 

003710 

003730 

003740 


1-D-10 


oo  o o 


OlS.5)  ■ Dtlil) ♦GAMHA*UU 
>*ENO  OF  ANATRX 

*d  IS  RETAINEO  FROM  OIFFERENCING  OPERATION 
RHJ  ■ RM/RJ ( * * *<  2 ILMAX- 1 ) 

RF  * RMj*RvJ  (*»*i3ltMAX) 

RR  » RMJ*RJ  (#,»U  lUMAX-2) 

00  43  N* 1 » 5 
00  42  M«l,5 
OEFINE (Dl *0(N*M) ) 

DEFINE  ta  (N*M)  , { I iKMAX-2,  i j JSLtUUMAX-rSj  ) 

A{N*M)»-0lf**4tULMAX-2) 

8(N*M)*0 

42  C(N*M)*01 (*»**3lLMAX> 

A (N.N)  « A(N*N)-RR 

B ! N *N)  * C8 
C(N*NJ  »c<n*n>-rf 

43  CONTINUE 
C 

C****#**£NO  OF  FILTRZ 
C 

IF ( INVISC.EQ. \ ) CALL  VISMaTW.K) 

CALL  BTRI 12*LM) 

0I*Q1*FU> 

Q2*Q2*F  (2) 

Q3*Q3*F<3> 

Q4*Q4*F{4) 

Q5*Q5*F (5) 

00  44  L-2.LMAX-1 

' QOlKMAX-i.t.*  1 1 Jl  ( I {KHAX-2,  1 1 JSL-2*U 

G ( 2 1 KMAX* 1 *L  » 2 *d  t J*dSH } »G2  ( 1 2 KMAX*»2»  1 1 JSL«2*L) 

0 (2 IKMAX-l »L 1 3 1 J t J*OSM ) «Q3 ( I IKMAX-2* 1 I JSL-2 » L J 
Q(2tKMAX^l*L#4*dlJ*USM)*04<llKMAX-2.UJSL-2«L) 

44  Q (2tKMAX*l »L  » 5 * J I J*dSM ) *QS ( 1 I KM AX-2* 1 1 JSL*2 #L) 

3000  CONTINUE 

RETURN 

END 

SUBROUTINE  BTRIULAtlUA) 

CQMMON/ST«ID/A<5*5> *8(5*5) *C<5*5>  *0<S«5> .F(5J 
OYNAMIC  h(S»5) » A*B*CfO*F 

(DYNAMIC  Lll»l-21»L22*L3l.L32.L33*L41iL42tL43»L44 
OYNAMIC vlSl»L52fLS3*L5AtL55 

DYNAMIC  UU«U21»U22,U3l»U329U33»U4i«U43,u43*U44 
DYNAMIC  USl*U52#US3tU54tUS5 
OYNAMIC  01*02*03.04*05 

DYNAMIC  Ui2.U13fUl4«Ui5fU23»U2A*U2S»U34«U3S*U&5 
OYNAMJC  AUS* 5)  *81  (5.51 « Cl  <5.5)  *F1  <5) 

REAL  LlI»L2X*L22*L3l.L32*L33*LAl.L42,L43*L44tL51tL52»L53fL54*L55 

Il*ILA 

IU*IUA 

IS*IL*l 

I£»XU«*1 

DO  1 N*1*S 

DEFINE  (FI  IN) ,F<N> (•***1>1 

DO  I M«l*5 

OEFINE 

l OEFINE  (Cl(N.M) iC (N  * M ) <•»♦♦!)) 

C INSERT  LUOEC 

Ul-l./B  (1.1) 

C 

C#  VEC  Lll  QIV  VL»SSL*SM AX 

C 


003750 

003760 

003770 

003780 

003790 

003800 

003805 

003810 

003020 

003830 

003040 

003850 

003360 

003070 

003800 

003090 

003900 

003910 

003920 

003930 

003940 

003950 

003960 

003970 

003980 

003990 

004000 

004010 

004020 

004030' 

004040 

004050 

004060 

004070 

Q040AO 

004090 

004100 

004110 

004120 

004130 

004140 

004150 

004160 

004170 

004100 

004190 

004200 

004210 

004220 

004230 

004240 

004250 

004260 

004270 

004280 

004290 

004300 

004310 

004320 

004330 

004331 

004312 

004333 


1-D-1  1 


c 

SSL»NUM0£P 

OF  PLANES 

tN  SLAB 

004334 

c 

SHAXX*  CITHER  LHAXtKMAX  OR  UMAX  DEPENDING  ON  SWEEP  Dt«ECTION 

004335 

L2i*Blt2*l> 

004340 

c 

004341 

C* 

MAP  L21 

GTHRtMM  NR*l,RS*SSL*SMAXt  WK«1 

004342 

c 

U12*BU1 

•2)*m 

004343 

004350 

L22*l «/{Blt2f2) *L21 

♦U12) 

004360 

c 

004361 

c* 

VEC  U12 

MUL 

VL»SSU#SSMAX|  RK*1 

004362 

c* 

SSS  T1 

NULISU8 

004363 

cp 

VEC  L22 

otv 

VL*SSL*SSMAX 

004364 

c 

U13aBKl 

f3)*m 

004365 

004370 

U14  * BiU»*>*LU 

004380 

c 

004381 

cp 

VEC  <J  13 

MUL 

VL8SSL*SSMAX 

004382 

c* 

SSS  U14 

MUL 

004303 

c 

UIS*B1<1 

«5) *L11 

004384 

004390 

c 

004391 

c» 

VEC  U15 

MUL 

vl«ssl*ssmax 

004392 

C* 

SSS  131 

MULM1) 

004393 

C 

L3t»81<3 

il) 

004394 

004400 

C 

004401 

L32*B1  < 3*2)  -L31®Ul2  004410 


C 


CP 

VEC  L32 

MUL t SUB 

VL*SSL*SSMAX 

U23»(81(Zt3)-L21*U13> 

*L22 

Cp 

* 

VEC  U23 

MUL 1 SUB 1 MUL 

VL*SSL*SSMAX 

V 

L33*l. 

/(9H3t3)-U13»L31-U23«L32) 

CP 

VEC  Tl 

MUL t MUL 1 ADO 

vl*ssl*sshax 

c# 

VEC  Tl 

SUB 

vl»ssl*ssmax 

CP 

VEC  U24 

OIV 

VL«SSL*SSMAX 

V 

U2**(B1 (2*4) -L21*U14) *L22 

CP 

VEC  U24 

MULISU8IMUL 

VL*SSL*SSM4X 

0O44U 

004412 

004413 

004420 

004421 

004422 

004423 

004430 

004431 

004432 

004433 

004434 

004435 

004440 

004441 

004442 


C 004443 

U25»<BU2t5)-U21*UlS>*L22  004450 

C 004451 

CP  V£C  U25  HULISUBIHUL  VL*SSL*SSMAX  004452 

C 004453 

L41*6i(4«l)  004460 

C 004461 

CP  MAP  L41  GTHftlMH  NR»I ,RL*SSL*SSMAX|  WK«1  004462 

C 004463 

142801  (4«2)<>L41«U12  004470 

L43«81 (4*3) -L4l*U13-L42*U23  004400 


c 

004481 

CP 

VEC  L*2 

MUL I SUB  vl»ssl«ssmaxi  RK*1 

004402 

c* 

SSS  Tl 

MUL  * 

004403 

CP 

VEC  L43 

MUL! SUB 1 SU0  VL*SSL*$SMAX 

004404 

c 

004485 

U34«(81 {3t4l •L3l*Ul*»L32*u24) *L33 

004490 

c 

004491 

CP 

VEC  Tl 

MUL 1 MUL! ADO  VL«$SL*SSHAX 

004492 

CP 

VEC  U34 

SUBIHUL  VL*SSLPSSMAX 

004493 

1-D-12 


L44«1'/(Q1  (4*4>-Ui4*L4l-U24*L42-U34*L43J 


c# 

VEC  Tl 

MUL IMULI ADD 

VL*$SL*SSHAX 

CP 

VEC  Tl 

MULISUBISUB 

vl*ssl*ssmax 

CP 

c 

VEC  L44 

0!V 

vl*ssl*ssmax 

c 

U35*<0l<3t5)-L31*U15-L324U25>*L33 

CP 

VEC  Tl 

MUL IMULI ADO 

VLpSSL*SSHAX 

CP 

VEC  U35 

SUB | MUL 

vl»ssl*ssmax 

C 

CP 

C 


L5l*0HS*D 

MAP  LSI  GTHRlMM  NR*l ,RS*SSL*SSHAX » MKm\ 

LS2»B1 <St2>-L51»Ul2 
L53*ei<5»3>-LSl*U13-LS2*U23 


Dl«Lll*Fim 

02*L22*<F1<2)-L21*DU 


004494 

004500 

004501 

004502 

004503 

004504 

004505 

004510 

004511 

004512 

004513 

004514 

004520 

004521 

004522 

004523 

004530 

004540 

004541 


CP 

VEC  L52 

MUL 1 SUB 

VL»SSL*SSHAX 

004542 

c* 

SSS  Tl 

MUL 

004543 

c* 

VEC  L53 

MULISUBISUB 

VLpSSL*SSMAXI 

RK*1 

004544 

c 

004545 

L54»0l<5*4>-L51*U14-L52*U24-L534U34 

004550 

c 

004551 

CP 

VEC  Tl 

MUL IMULI ADO 

VL*SSL*SSMAX 

004552 

CP 

VEC  L54 

MULISUBISUB 

vl*ssl*ssmax 

004553 

c 

004554 

U45«{81 (4*5) •L41*U15*L42«U25-L43*U35) *L44 

004560 

c 

VEC  Tl 

004561 

CP 

MUL IMULI ADO 

vl«ssl*ssmax 

<LA24U2S-LA3«U35> 

004562 

CP 

VEC  Tl 

muliaddisub 

vl*ssl*ssmax 

<-L4l«UlS*B45-Tl> 

004563 

c 

004564 

L55«W/(91  (5t5)-L51*Ui5-L52*U25-L53*U35-L54»U45) 

004570 

C 

004571 

CP 

VEC  U45 

MUL 

VL»SSL*SSMAX 

004572 

c* 

SSS  Tl 

MUL I SUB 

vl«ssl*sshax 

<055-L54*U45> 

004573 

CP' 

VEC  T2 

MUL 1 MUL I ADO 

vl«ssl«ssmax 

<LS1*U15*L52*U25> 

004574 

CP 

VEC  Tl 

MULISUBISUB 

VLpSSL^SSMAX 

<T1-L53*U35-T2> 

004575 

CP 

VEC  L55 

OIV 

VL*SSL*SSHAX 

004576 

c 

004577 

c 

COMPUTE 

LITTLE  ft  S 

004500 

004590 

004600 

004601 


CP 

VEC 

01 

MUL 

VL*SSL**SSMAX 

C 0460  2 

CP 

VEC 

Tl 

MULlSUB 

VL*SSL*SSMAX 

<F1-.L21*01> 

004603 

c 

004604 

D3*L33*IF1 (3)-L3l«01< 

•L32*02) 

004610 

c 

0046H 

CP 

VEC 

02 

MUL 

VL«5SL*SSMAX 

<Ti*t22> 

0046 12 

c* 

SSS 

Tl 

MULlSUB 

vl*ssl*sshax 

<F13-L32*02> 

004613 

CP 

VEC 

03 

HUL1SUBIMUL 

VL«SSL*SSMAX 

<L33*(T1-L31*01)> 

004614 

04*L44*<F1  <4X41*0l-L42*02-L43*03) 


004615 

004620 


C 004621 

CP  VEC  Tl  MULIMULIAOO  VL*SSL*SSMAX  <L42*02*L43*03>  004622 

C»  VEC  Tl  MULISUBISUB  VL*SSL*SSMaX  <F14-T 1-LM*D1>  004623 

C 004624 

C 004626 

05»L55*tFl <5)-L5l*Ql-L32*02-L53*03-L54*D4]  004630 

C 004631 

CP  VEC  04  MUL  VL*SSL»SSMAX  <L44*T1>  004632 


1 -D-1 3 


c* 

sss  n 

HULlSUB 

<Fl5-L54*04> 

at 

VEC  72 

MUL I MUL I ADO 

vl*ssl*ssmax 

<L51*01*L52*02> 

at 

VEC  Tl 

MULlSUBlSUB 

vl*ssl*ssmax 

<Tl-T2-L53*D3> 

c 

COMPUTE  8IG  R S 

e 

, FI  (5) *05 

V 

a 

VEC  05 

MUL 

VL»SSL*SSMAX 

c* 

/* 

SSS  F15 

MUL*(1) 

«# 

FI  ( 4)  *04' 

-U45*05 

FI  (31 -03' 

-U34*F1(4)*U35*05 

c 

at 

VEC  PI 4 

MUL1SU8 

vl*ssl*ssmax 

c* 

SSS  Tl 

MUL 

<U34*F14> 

at 

VEC  F13 

MULt SUB  I SUB 

VL*SSL*SSMAX 

<03-U35*05-Tl> 

CP 

VEC  L55 

otv 

VL*SSL*SSMAX 

FI  (2)  *02. 

-U?3*F1 (3J*024*F1 14UU2S*05 

c 

c» 

VEC  Tl 

MUL I MUL i ADD  VL*SSL*SSMAX 

<U24*F14*U2S*05> 

CP 

VEC  F12 

MULeJ  SUB  I SUB 

VL*SSL*S$MAX 

<02-U23*F13-Tl> 

Ip 

FI ( 11*01 

-U12*F1 (2) •U13*F1 <3>-UU*Fi  (4UU15*05 

C 

CP 

VEC  Tl 

MUL1MUL1AO0 

VL*SSL*SSMAX 

CP 

VEC  T2 

MUL 1 MUL 1 ADD 

vl*ssl*ssmax 

CP 

VEC  T2 

SUBlSUB 

vl*ssl*ssmax 

c 

C COMPUTE  c PRIME  FOK  FIRST  ROW 
00  12  M*1,S 
Dl*Lll*ClU»M> 

D2*L22* (Cl <2»M } -L2i*01 1 
C 


CP 

VEC 

01 

MUL 

VL*SSL«$SMAX 

c* 

c 

SSS 

Tl 

MULlSUB 

03*L33# (Cl  (3tM)  -L31*01-L32*D2> 

C 

CP 

VEC 

02 

MUL 

vl*ssl*ssmax 

c* 

SSS 

Tl 

MUL 1 SUB 

CP 

VEC 

03 

MUL J SUB J MUL 

vl*$sl*ssmax 

C 

04*144*  (Cl  (4*M)  -L41*01-L42*02<.L43*03> 

0S«LS5# (Cl C5*M) -L51*01-LS2*02-L53*03-L54*04> 
C 


CP 

VEC 

Tl 

MUL 1 MUL J AQD 

VL*SSL4SSMAX 

<L42*02*L43*03> 

CP 

VEC 

Tl 

MUL I SUB 1 SUB 

vl*ssl*ssmax 

<C14M*>T1«L41«01> 

c# 

VEC 

04 

MUL 

VL«SSL*SSMAX 

<i-44*Tl> 

c* 

SSS 

Tl 

MUL 1 SUB 

<C1SM«LS4*04> 

CP 

VEC 

Tl 

MUL1MUL1AO0 

vl*ssl*ssmax 

<L52*02*L53*03> 

CP 

VEC 

Tl 

MULt AOOIAOO 

VL*SSL*SSMAX 

<L51*0W1*T2> 

c 

Bl (5tM>  *05 

V 

CP 

VEC 

05 

MUL 

VL*SSt*SSMAX 

<L55*T1> 

c* 

SSS 

B13H 

MUL 

C 

aiUtM>*04*U45*05 

B1(3»H1  « 03-U34*9l (4*H) -U35*05 


C 


CP 

VEC 

814M 

MUL I SUB 

VL*SSL*SSMAX 

C* 

SSS 

Tl 

MUL 

<U34#B14M> 

CP 

VEC 

813H 

MULt sue 1SU8 

vl*ssl*ssmax 

<O3-TUU35*05> 

004633 
004634 
004635 
004636 
004640 
004650 
004651 
004652 
^ 004653 

004654 
004660 
004670 
004671 
004672 
004673 
004674 
004676 
004680 
004681 
004682 
004683 
004684 
004690 
004691 
004692 
004693 
004694 
004695 
004700 
004710 
004720 
004730 
004731 
004732 
004733 
004734 
004740 
004741 
004742 
004743 
004744 
004745 
004750 
004760 
004761 
004762 
004763 
004764 
004765 
004766 
004767 
004768 
004770 
004771 
004772 
004773 
004774 
004780 
004790 
004791 
004792 
004793 
004794 
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9 1 f 2 * M)  » 02-U23*91  (3*M>-U24*8it4.H>-U25*05 


CP 

vec  ri 

MULlHUUAOD  VL«SSL*SSMAX 

c* 

VEC  B2M 

MULISUSISUB  VL*SSL»S5HAX 

c 

12 

am*M) 

* D1»U12*81  t2*M) •Ul3*Bi  (3«M)«UU*81  (4»N>*U15*0S 

c 

c» 

VEC  Tl 

MUUMUUiAOO  VL*SSL*SSHAX 

c# 

VEC  T2 

MUL IMUL 1 ADD  Vt»SSU«SSHAX 

e* 

VEC  ailH 

SU8ISU0  VL*SSL*SSMAX 

C 

C COMPUTE  0 PRIME«8IGR 

00  13  WlS'IE 
00  2 N«l»5 

OeriNE  (FI C M J fFtN) (*.**!») » (F2(N)«F(N) (•♦*♦1-1)] 

00  2 H«i*S 

DEFINE  Ul(N'H)  («f»iXn 

DEFINE  (81<N*M) (***<Ij  J t <02<N*M) .S(NtM) (», ^I-l) J 
2 DEFINE  (Cl(N'M) tC(N,M) (•'•iln 
OQ  14  N« 1 * 5 

14  F1(N)*F1 (NWA1 (N,XI«FZ(1)-A1 (N#3) *F2 (2) -A  1 (N*3 j «F2 ( 3 J 

* -A1 (N,4)*F2(4)-A1 (N*5)*F2(SJ 


CP 

VEC  Tl 

MUliMUUAOO 

VL«SSL*SSMAX 

CP 

VEC  72 

MULlMUL: AOO 

VUaSSL»SSHAX 

CP 

VEC  Tl 

MUUMULSAOO 

VL«SSL*SSHAX 

CP 

/4 

VEC  FIN 

SUB 

VL*SSL*SSMAX 

C 

COMPUTE 

8 PRIME 

DO  11  N*1 » 5 

00  11  Mw 

lfS 

n 

H(NfM)«gl ( N t M } - A 1 (N*l)*B2(i*M)-Al (N, 
♦ a2(3»Ml*At(N,4)*02(4fM)-Al<N, 

c 

c* 

VEC  Tl 

MULZMUU  aOd 

VLaSSL*SSMAX 

CP 

VEC  T2 

MULlMULl ADD 

VL»SSU*SSrtAX 

CP 

VEC  Tl 

MUUl AOOf ADO 

VL*SSL4S5mAX 

CP 

/• 

VEC  HNM 

SUB 

VL»SSL»S5MAX 

l 

C 

INSERT  LUOEC  AGAIN 

Lll»U/H(l#l) 

u 

CP 

VEC  LU 

01V 

VL«SSL*S5MAX 

A 

L21«H (2« 

1) 

c 

CP 

MAP  L21 

GTHRtMM  NR*1 «RS«SSL*5SMAX 

C 

UL2*H  < 1 12>  *L1 1 

c 

CP 

VEC  U12 

MUU 

VL*SSL*5SMAX 

c* 

55$  Tl 

MULISUQ 

VL»SSL*SSMAX 

CP 

VEC  L22 

OIV 

VL-SSL*SSMAX 

c 

L22»1*/(H<2»2)-L21*U12) 

U13*H (1 t 

3I*L11 

U14*H(1, 

41  *!•  1 X 

c 

CP 

VEC  U13 

HUL 

Vl*SSL*SSMAX 

c* 

SSS  U14 

MUL 

U15»H{W5>*U1 


004795 

004000 

004801 

004803 

004003 

004004 

004010 

00*811 

004812 

004813 

004814 

004815 

004020 

004830 

004040 

004850 

004860 

004870 

004800 

004890 

004900 

004910 

004920 

004921 
004922 
004923 
004924 
004925 
004926 
004930 
004940 
004960 
004960 
004970 
004971 
004972 
004973 
004974 
004975 
004976 
004980 
004990 
004991 
004992 
004993 
005000 
005001 
005002 
005003 
005010 
005011 
005012 
0050 13 
005014 
005015 
005020 
005030 
005040 
005041 
005042 
005043 
005044 
0050SO 


1-D-15 


L31 *H { 3 * 1 ) 005060 

C 005061 

CP  MAP  L31  GTHPlMM  NR*1 tRSiSSL*SSMAX  005062 

C 005063 

L32*H(3,2)-L31*U12  005070 

U23*(H12,3)"L21*UI3>*L22  OOSOSO 

c oosoai 


cp 

VEC  L32 

MUL 1 SUB  VL»$SL*SSHAX 

005082 

c* 

ss s n 

MUL 

<U23»L32> 

005083 

c» 

VEC  U33 

MULISUBJMUL  VL*SSL*SSMAX 

005004 

c 

005085 

L33*l./(H«3*3>-Ui3*t3l-U23*L32) 

005090 

c 

005091 

cp 

VEC  Tl 

HULlSUBlSUB  VL*SSU*SSMAX 

005092 

c» 

VEC  L33 

DIV  VL«SSL*SSHAX 

005093 

c 

005094 

U24*<H<2 

.41-L21*IU4)*L22 

005100 

c 

005101 

c» 

VEC  U24 

MUUSUBIMUL  VL«SSL*SSMAX 

005102 

c 

005103 

U25«  <H (2 

t51-U21*U!5)*l,22 

005110 

c 

005111 

CP 

VEC  U15 

MUL  VL*SSU*SSMAX 

<H15*LH> 

OOSH2 

c* 

SSS  T9 

MUL i SUB 

005113 

c 

005114 

L4l*H(4# 

D 

005120 

c 

005121 

CP 

MAP  L41 

GTHRlMM  NR»l,RS»SSL*SSMAX 

005122 

c 

005123 

L42«H<*t 

2)-L4l*Ul2 

005130 

c 

005131 

CP 

VEC  L42 

MULISU8  VL*SSL*SSMAX 

005X32 

c* 

SSS  Tl 

MUL 

<L42*U23> 

005133 

c 

005134 

L43*ti < *• 

3)-L41*Ul3-L42*U23 

005140 

c 

005141 

c» 

VEC  L43 

HULlSUBlSUB  VL»S5L*SSMAX 

<H43-T.1-L41#U13> 

00S142 

c 

005143 

U34*<H(3 

#4) -L31*U14«L32*U24) *L33 

005150 

c 

005151 

c» 

VEC  Tl 

MUL 1 MUL t ADO  VL»SSL*SSHAX 

<L31*U14»L32#U24> 

005152 

c» 

VEC  U34 

SUB  t MUL  VL*SSL*SSMAX 

< (H34-T1 ) *L33> 

005153 

c* 

SSS  Tl 

MUL 

<U34®L43> 

005154 

c 

005155 

1,44*1 ./  ( H <4*  4)  «U14*L41-»U24*L42.U34<>143> 

005160 

c 

005161 

CP 

VEC  T2 

MUL 1 MUL* ADD  VL*SSL*SSMAX 

<U14«L41*U24*L42> 

005162 

CP 

VEC  Tl 

SUBISU0  VL»SSL*SSMAX 

<H4*»TW2> 

005163 

c» 

VEC  L44 

01V  VLnSSl»*SSMAX 

003164 

c 

005165 

U35* (H ( 3 

*5) -L31*U1S-L32*U25) *L33 

00S17C 

CP 

VEC  U25 

MUL  VL*SSL*SSMAX 

<T9*L22> 

005171 

c* 

SSS  Tl 

MUL 1 SUB  VL*SSL*SSMAX 

<H35«*L32*U25> 

005172 

CP 

VEC  U3S 

MUL I SUB! MUL  VL*SSL*SSMAX 

<{Tl-L3imi5>*L33> 

005173 

c 

00517* 

L51*H<  5* 

D 

oosiao 

c 

005181 

c# 

MAP  LSI 

QTHRIMM  NR«ivRS«SSL*SSHAX 

005182 

c 

003183 

L52»H(5*2)-L51*U12 

005190 

L53*M($» 

3)-L51*Ul3-L52*U23 

oossoo 

c 

005201 

CP 

VEC  L52 

MUL I SUB  VL*SSL*SSMAX 

005202 

1-D-16 


c* 

SSS  Tl 

MUL 

005203 

c# 

VEC  L53 

MUUSU8ISU8 

VL*5SL»SSHAX 

005204 

c 

005205 

L54«H(5, 

4)'-L51*U14-»LS2*U24-L53*U34 

005210 

c 

VEC  Tl 

00521 1 

c* 

MULlMULlAOO 

vl*ssl»ssmax 

005212 

c# 

VEC  L54 

MUtlSUQ ISUB 

VL»SSL*SSMAX 

005213 

c 

005214 

U45*(H<4 

,5) -L41*U15-L42»U2S-L43*U35J  *t44 

005220 

c 

005221 

c» 

VEC  Tl 

MULlMULlAOO 

VL*SSL*SSMAX 

005222 

c» 

VEC  Tl 

MUL | SUB  I sue 

vl»ssl*ssmax 

005223 

c 

005224 

U5S*U/(H(S»5>-LS1*U15-L52*U25-.CS3*U35-L54*U45) 

005230 

c 

005231 

c n 

VEC  U45 

MUL 

VL»SSL«SSMAX 

005232 

C* 

SSS  Tl 

MULlSUQ 

<H5S*L54«»U45> 

005233 

c# 

VEC  T2 

MULlMULlAOO 

VL»SSL*SSMAX 

005234 

c# 

VEC  L5S 

orv 

VL*SSL#SSMAX 

005235 

c» 

VEC  LS5 

OIV 

VL*SSL*SSMAX 

005236 

c 

005237 

c 

COMPUTE 

LITTLE  PIS 

005240 

D1«LU*FU1) 

005250 

c 

005251 

c* 

VEC  01 

MUL 

vl*ssl*sshax 

005252 

c*' 

SSS  Tl 

MUL (SUB 

VL*SSL«$SMAX 

<F12-L2l*01> 

005253 

c 

005254 

02»L22VF1  (2]*L21«U1) 

005260 

c» 

VEC  02 

MUL 

vl-ssl*ssmax 

<L22*T1> 

005261 

c* 

SSS  Tl 

MUL (SUB 

<F13-L32*02> 

005262 

c, 

005263 

03»L33*  <FU3> -L31*Q1- 

L32«02> 

005270 

c 

005271 

c# 

VEC  03 

MUL 1 SUB  1 MUL 

VL«SSL*SSMAX 

<L33*(T1-L3t*01)  > 

005272 

c 

005273 

D4*L44# (FI <4) -L41«01- 

L42*02-L43*03) 

005230 

05«L5S*(F1(S)-L51»ON 

L52*02-153*03- 

L54*04> 

005290 

c 

005291 

c* 

VEC  Tl 

MUL(MUL(AOO 

VL*SSL»SSMAX 

<L42*02*L43»03> 

005292 

c» 

VEC  Tl 

HUL I SUB  t SUB 

VLsSSL»SSMAX 

<F1-L4i*01-Tl>- 

005293 

c» 

VEC  04 

MUL 

VL*SSL*SSMAX 

<L44*T1> 

005294 

c* 

SSS  Tl 

MUL I SUB 

VL*SSL»SSMAX 

<F15-L54*04> 

005295 

c* 

VEC  T2 

MULlMULlAOO 

vl*ssl»sshax 

<L52*02'*L53*03> 

005296 

c* 

VEC  Tl 

MUL 1 SUB 1 SUB 

VLaSSL®SSMAX 

<T1-L51*01-T2> 

005297 

c 

005298 

c 

COMPUTE 

BIG  RIS 

005300 

FI (5) »D5 

005310 

FI (4) *04 

-U45*05 

005320 

c 

005321 

c* 

VEC  OS 

MUL 

VL*SSL#SSMAX 

<L55*T-1> 

005322 

c# 

SSS  F15 

MUL 

<L55*DS> 

005323 

c» 

VEC  F14 

MUL (SUB 

VL*SSL»SSMAX 

005324 

c* 

SSS  T3 

HUL 

<F14*U34> 

00S32S 

c 

005326 

Fl(3)*03 

-U34*F1{41 -U35»05 

005330 

FH2J.02 

-U23*F1(31^U24*F1 (4)-U25»05 

005340 

c 

005341 

cn 

VEC  FI  3 

MUL 1 SUB l SUB 

vl*ssl*s$max 

<03«73-U35«D5> 

005342 

c* 

VEC  Tl 

MULlMULlAOO 

VL»SSL»SSMAX 

005344 

CM 

VEC  F12 

MUL 1 SUB I sue 

VL*SSL»SSMAX 

005345 

c 

005346 

FH1U01 

-U12#F1  (2)-Ul3*Fl  (3>*U14*F1  <4)-Ul5*05 

005350 

c 

. 

005351 
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ci 

c* 

c* 

c 

c 


13 


vec  f i 
vec  T2 
sss  n 


MULJMULIAOO 
MULlMULi AOD 
MULtSUB 


VL»SSL*5SHAX 

Vt*SSt*SSMAX 


<C12H^L21°01> 


COMPUTE  C primes 
DO  15  H*lt5 
Ol*Lll#Cl ( 1 f MJ 
D2«L22*<Cl<2*M)-L2l*Dl) 


Cl 

vec  di 

MUL 

VL»SSL*SSMAX 

C" 

J 

SSS  Tl 

MULtSUB 

<C12-L21*01> 

03»L33* (Cl <3*M> -U31*01-L32*D2) 

ci 

VEC  D2 

MUL 

VL*SSL*SSMAX  <L22#T1> 

c* 

SSS  Tl 

MUL 1 SUB 

<C13M-L32*D2> 

c» 

c 

VEC  03 

MUL J sue (MUL 

VL*SSL*$SMAX  <L33* (Tl-L31*01> 

n 

D4«L44HC1  (4tMK41*0i-L42i02-L43«03» 

V 

c# 

c 

VEC  Tl 

MULIMULJAOD 

vl»ssl*ssmax 

V 

c 

05*L55* 

(Cl <5»M) <5l*Dl-L52i02-L53*03-L54#04> 

c* 

VEC  Tl 

MULISU81SU0 

vl»ssl*ssmax 

Cl 

VEC  04 

MUL 

VL*SSL*SSMAX 

c* 

SSS  Tl 

MUL I SUB 

<C15-L54*D4> 

ci 

VEC  T2 

MUL 1 MULtSUB 

vl»ssl*ssmax 

Cl 

c. 

VEC  Tl 

mul i sue i sue 

vl*sslissmax 

V 

81 (5*Ml 

■05 

r 

81 (4«M) 

*04«U45»03 

V 

Cl 

vec  D5 

MUL 

vl«ssl«ssmax 

Cl 

SSS  814 

MULtSUB 

vl»ssl*ssmax 

Cl 

e 

MAP  05 

GTHRIMM 

nr»urs»ssl*ssmax 

V 

01(3»M) 

« D3-U34*Bi (4«M) «U35*05 

c 

Bl (2*M) 

* 02*U23*81  (3«M)  «U24I6H4«M)  -U25*D5 

Cl 

VEC  Tl 

MUL l MUL l ADD 

vl*ssl*ssmax 

Cl 

VEC  813 

SUB 

VL-SSt*SSMAX 

C* 

SSS  Tl 

MULtSUB 

Cl 

VEC  Tl 

MUL  t MUL 1 AOO 

vl«ssl*ssmax 

15 

Bl (ItM) 

■ 01wU12#SU2#M>-Ul3*Bl  <3«M)  «.UH#B1  (4,MJ-U15*0S 

c» 

VEC  812 

SUB 

VL*SSL«SSMAX 

c* 

SSS  Tl 

MULtSUB 

Cl 

VEC  T2 

MUL 1 MUL J AOO 

VL«SSL*SSMAX 

Cl 

c 

vec  bu 

MUL 1 SUB 1 SUB 

vl«ssl*ssmax 

17 

C 

Cl 


CONTINUE 

I»IU 

00  3 N«ltS 

DEFINE  (Fl<NlfF<Nl  (***»  IU> ) HF2  (N)  *F(N)  (*,*,IU-1)  ) 

DO  3 M»1 i 5 

DEFINE  (Al(N,H)*A(N*H)<***tIUl ) 

DEFINE  (BltN*H) (**i*IU) ) * (82 (N,M J «B (NtMl ( « IU-U J 
COMPUTE  0 PftIME*BlO  R FOR  UST  ROW 
00  17  N»I t 5 

Fl(N>*FltN)-AI<N,l)*F2m-AlCNt2)#F2(2>-Al(N,3>* 
l F2(3><*A1<N,4)*F2U)-A1(N,5}*F2(5J 


VEC  Tl 


MULlMUUAOD  VL*S5U*S$MAX 


005352 

005353 

005354 

005356 

005360 

005370 

005300 

005390 

OOS391 

005392 

005394 

005395 

005400 

005401 

005402 

005403 

005404 

005405 

005410 

005411 

005412 

005413 

005420 

005421 

005422 

005423 

005424 

005425 

005426 

005427 

005430 

005440 

005441 

005442 

005443 

005444 

005445 

005450 

005460 

005461 

005462 

005463 

005464 

005465 

005470 

005471 

005472 

005473 

005474 

005476 

005400 

005490 

005500 

005510 

005520 

005530 

005540 

005550 

005560 

005570 

005500 

005501 

005502 
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CP  VEC  T2  * MULlMULlADO  VL«SSL*SSMAX 

CP  VEC  T1  SUMtSUBlSUS  VL«SSL*$SHA* 

C»  VEC  M SUB  VL*SSL*SSMAX 

C 

c compute  a prime 

DO  19  N«i»5 
DO  18  H»lt5 

18  H(N,MJ»Q1  tN.MJ«*AUN*l)«02{l»MJ-ia(N»2)*92(2tM)*Al  (N#3>* 
•92<3#M)  -*A1  <N*4>  *03t4*M)~Al  (N*S)  *92  < S*M) 


C 


c# 

VEC 

T1 

HUL'i  MUL  l AOO 

VL*5SL#SSMAX 

c* 

VEC 

T2 

MULlHULlAOO 

VL«SSL*SSMAX 

c* 

VEC 

T1 

MULlSUBtSUB 

VL»SSL*SSMAX 

c* 

VEC 

HNM 

SUB 

YL*5SL*SSHAX 

C 

C INSERT  LUOEC  AGAIN 

L21*H(2#1J 


c 

C* 

MAP  121 

GTHRtMM 

Nft»URS«SSL*SSMAX 

c* 

VEC  Lil 

OIV 

VU»SSL«SSMAX 

c 

U 1 2*H ( 1 « 

21*1.11 

L 22*  W/  < H < 2 * 21  -L2 1 #U  1 2 ) 

C 

c# 

VEC  U12 

MUL 

VL*SSL*SSMAX 

c* 

SSS  n 

Mutisua 

c* 

VEC  L22 

OIV 

Vt»SSL«SSMAX 

C 

U13*HU#3>*LU 
U14*HU*4J  *111 
C 

CP  VEC  U13  HUL  VL*SSL*SSMAX 

c*  SSS  uu  HUL  vl«ssl*ssmax 

c 

UlS*H(l,5l*Ln 

L31*H<3.1> 

L3H*H ( 3 * 2) -L3 1 *U 12 
U23*(H<2»3i-U21*Ul3)*L22 


C# 

MAP  L31 

OTHRIMM  NR« 

1,RS»SSL*SSHAX 

CP 

VEC  U23 

MUL I SUB  1 MUL 

VL*SSL*SSMAX 

CP 

VEC  L32 

MUL 1 SUB 

VL*SSL»SSMAX 

C* 

SSS  T1 

MUL 

<U23*L3H> 

c 

133*1, 

/(H(3«3)-Ul3#t31 

*U23*L32) 

c 

CP 

VEC  T1 

HULJSUBiSue 

VL*SSL*SSMAX 

CP 

VEC  L33 

OIV 

VL*SSL»SSMAX 

c 

U24»<H<2»4)^L21*U14)*U22 

c 

CP 

VEC  U24 

MUL l SUBtMUL 

VL*SSL*SSMAX 

c 

U2S*  <H (2*5) »L21*Ul5) *L22 

c 

CP 

VEC  U15 

MUL 

VL»SSL*SSMAX 

c* 

SSS  T9 

MUL t SUB 

C 

c 

c*  MAP  ui  GTHRtHH  NR»1 *RS*SSL*SSMAX 
C 

L42-H(*t2)-UAl*Ut2 


005583 

00558* 

005585 

005596 

005590 

005600 

005610 

005620 

005630 

005631 

005632 

005633 

005634 

005635 

005636 

005640 

005650 

005660 

005661 

005662 

005663 

005664 

005670 

005690 

0056S1 

005682 

005603 

005604 

005685 

005690 

005700 

005701 

005703 

005704 

005705 

005710 

005720 

005730 

005740 

005741 

005744 

005745 

005746 

005747 

005750 

005751 

005752 

005753 

005754 

005760 

005761 

OOS762 

005763 

005770 

005771 

005772 

005773 

005774 

005700 

005781 

005782 

005703 

005790 
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c 

005791 

cp 

. VEC  L42 

MUL 1 SU8  VL-SSL»SSM AX 

005792 

c* 

SSS  Tl 

MUL 

<L42*U23> 

005793 

c 

005794 

U43»HC4f 

3)-L41*U13-L42*US3 

005800 

c 

005601 

c* 

VEC  L43 

MUL 1 SUB  tSU8  VLaSSL*$SH AX 

005802 

c 

005803 

U34*  f H ( 3 

♦41-L31*U14-L32*U24>*L33 

005810 

c 

005811 

cp 

VEC  Tl 

MULlMULlAOD  VL«SSL*SSMAX 

005812 

c* 

VEC  U34 

SUB  I MUL  vl«ssl»$smax 

005813 

c* 

SSS  n 

MUL 

<U34*L43> 

005814 

c 

005815 

LA4«U/(H(4«4)->U14*L4l-U24#L42-U34*L43) 

005820 

c 

005821 

Cp 

VEC  TZ 

MULlMULlAOD  VL«SSL«S5MAX 

005822 

C n 

VEC  Tl 

MUL  t SU8 (SUB  VL*SSL*SSMAX 

005823 

CP 

VEC  L44 

DIV  VLaSSL«SSMAX 

005824 

U3S*tHl3*5)*L31*U15~L32«U25)*L33 

005830 

c 

005831 

cp 

VEC  U25 

MUL  VL«S$L»SSMAX 

<T9*L22> 

00583? 

c* 

sss  u 

MUL | SUB 

<L32«U25> 

005833 

CP 

VEC  U3S 

MUL I SUB IMUL  YLaSSL«SSMAX 

005834 

c 

005835 

LS1*M<$, 

D 

005840 

c 

005841 

c# 

MAP  LSI 

GTHR  t MM  NRsl * «5»SSL*SSM AX 

005842 

c 

005843 

L52»rt(5* 

2>-L5l*U12 

005050 

LS3»M(5,3) -L5l*U13-L52*U23 

005860 

L54.MI5* 

4> -LS1*U14-L52*U24-LS3*U34 

005870 

c 

005871 

CP 

VEC  LS2 

mul t sue  vlmSSl*sshax 

005872 

c* 

SSS  Tl 

MUL 

005873 

CP 

VEC  L53 

MULlSUBt$UB  VL«SSL«SSMAX 

005874 

CP 

VEC  Tl 

MUL 1 MUL 1 AOO  Vt»5SL*SSM AX 

005875 

CP 

VEC  L54 

MUL 1 SUB 1 SUB  VLa5SL*SSMAX 

005876 

c 

005877 

U45«CHU*5>«L41*U1S-L42«U25-L43PU35)*L44 

005880 

c 

OOSB81 

CP 

vec  ti 

MULlMULlAOD  VL*SSL*SSMAX 

005982 

CP 

VEC  Tl 

MULjSUBISUB  VL*SSL«SSMAX 

' 005883 

c 

005904 

L55»l ♦ / (H<  5»5) -L5l*U15-L52*U25-LS3*U35»L54»U45) 

005890 

c 

005891 

CP 

VEC  U45 

MUL  VL«SSL*SSMAX 

005892 

c* 

SSS  Tl 

MUL I SUB 

• 

005393 

CP 

VEC  T2 

MULlMULlAOD  VL»SSL*SSMAX 

005994 

CP- 

VEC  Tl 

MULlSUatSUB  VLaSSLASSMAX 

005B95 

CP 

VEC  L55 

DIV  VL»S5L«SSHAX 

005896 

c 

c 

c 

cp 

c* 

c 

c 

cp 

c# 

c 


COMPUTE  LITTLE *R IS 

VEC  01  MUL 

SSS  Tl  MUUSU9 

02*L22*irit2»-L21*0l) 


VLaSSUSSMAX 


<P13«L31#0l> 


VEC  02 
SSS  Tl 


MUL 

MULfSUB 


VL*SSL*SSMAX 


005397 

005900 

005910 

005911 

005912 

005913 

005914 

005920 

005921 

005922 

005923 

005924 
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03«L33*IFlt3)  *L31*01- 

L32*02> 

005930 

c 

005931 

c» 

VEC  E>3 

MUlfSUBlHUL 

VL**SSL*SSMAX 

005932 

c 

005933 

D**L44*  <F1 U)  «*L4l*Ql*» 

L42*02-LA3*O31 

005940 

05»L55*<F1(5)-LS1*01- 

L52«KJe-L53P03-L54*>D4) 

005950 

c* 

005951 

c» 

VEC  T1 

MUUiMUUAOO 

VL*SSL*SSMAX 

005952 

c* 

VEC  T1 

MULISU8ISU8 

VL»SSL*SSMAX 

005953 

c» 

VEC  0* 

MUL 

VL»SSL*SSMAX 

005954 

C* 

SSS  T1 

HULJSUB 

005955 

c» 

VEC  T2 

MUL* MUL 1 ADO 

VL«SSL*SSMAX 

003956 

c»‘ 

VEC  Tl 

MULlSUBlSUB 

VL»SSL*SSHAX 

005957 

c 

005958 

c 

COMPUTE  BIO  RtS 

005960 

FU5)»05 

005970 

FK*)«04*U45«O5 

005980 

c 

005981 

CP 

VEC  OS 

MUL 

VL»SSL«SSMAX 

005982 

c* 

SSS  FI 

MUL* sue 

005983 

c» 

MAP  F15 

GTHRIMM 

NR«1 *RS«SSL*SSMAX 

005984 

c 

005985 

FI  (3)  «03< 

»U3**F1(4)-U35*05 

005990 

FI (2) «02»U23*F1 { 3) -U24*F1 (4> «U25*05 

006000 

c 

006001 

CP 

VEC  Tl 

MUL 1 MUL 1 ADD 

vl*ssl»ssmax 

006002 

c» 

VEC  F13 

sue 

VL*SSL»SSMAX 

006003 

c* 

SSS  Tl 

MUL 1 SUB 

006004 

CP 

VEC  T2 

MUL I MUL* ADD 

VL»SSL*SSKAX 

006005 

c 

006006 

FI  C 1 ) *0l< 

■U12«F1 (2)-Ul3*Fl(3)-ul4»Fl <4)-Ul5*D5 

006010 

C 

006011 

.CP 
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CP 

VEC  T2 

MUL) MUL  * ADO 

VL*SSL*SSMAX 

006014 

c» 

VEC  FU 

MULlSUBlSUB 

VL»SSL»SSHAX ' 

006015 
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20 
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00  4 n»i 
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c 

- 

006091 

c* 
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VL*SSL*SSMAX 

006092 

CP 
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CP 

VEC  Tl 

MULlSUBlSUB 

VL«SSL«SSMAX 
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CP 

vec  FIN 

SUB 

VL*SSL*SSMAX 

006095 

IF  (I.OT 

t ID  G0T020 

006100 

RETURN 

006110 

END 

006120 

1-D-21 


Appendix  E 


LOADER  CONVENTIONS 


This  section  contains  formats  for  loader  tables,  some  of  which  can  provide  information  that  could  be  useful  for 
debugging.  The  following  are  the  loader  tables  that  the  system  uses  during  error  processing: 

Module  Header  Table 

Code  Block  Table 

Extemal/Entry  Table 

Debug  Symbol  Table 

Symbol  Definition  Table 

Pseudo  Address  Vector  Table 

Error  processing  information  is  provided  for  every  object  module  loaded  to  produce  a controllee  file,  including 
object  modules  of  user-specified  files  and  required  object  modules  for  system  library  files.  Figure  *E-1  is  a dump 
of  a typical  controllee  file,  illustrating  the  error  processing  information  area  at  the  end  of  the  dumped  file.  A 
pointer  to  the  error  processing  information  is  placed  in  register  #D.  The  register  contains  the  total  word  length 
of  error  information  in  its  upper  16  bits  and  the  starting  address  in  its  lower  48  bits. 


GENERAL  TABLE  STRUCTURE 


The  loader  works  with  files  that  are  composed  of  one  or  more  object  modules.  Each  object  module  consists 
of  a number  of  standard  tables;  each  table  begins  with  a standard  two-word  header: 


1 ! 

- 

ASCII  Table  Name 

64 

2 

Length 

Address 

16 

48 

Word  1 Name  of  the  table  in  ASCII 

Word  2 Length  Length  of  the  table  in  full  words  • 

Address  Bit  difference  between  first  word  of  the  respective  table  and  word  1 of 
module  header  table;  Le.: 

Back  pointer  (bits)  + address  of  first  word  of  respective  table  (bits)  = 
address  of  word  1 of  header  table  (bits) 
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Dump  of  a Controllee  File 


MODULE  HEADER  TABLE 


The  module*  header  table  contains  general  information  concerning  the  object  module  and  .provides  a linkage*  to 
all  the  other  tables  in  -the  module; 


Word 


Word  3 Name  of  module  in  ASCII,  expressed  as  8 characters,  left  justified  and  blank  filled 

Word  4'  Date  and  time  module  was  created,  in  packed  decimal  with  a positive  sign.  Date  and  time 

format  is:  year,  year,  month,  month,  day,  day,  hour,  hour,  minute,  minute,  second,  second, 
millisecond,  millisecond,  millisecond 

Word  5 Word  length  of  tables,  excluding  code,  followed  by  ASCII  name  of  processor  that  created 
module 

Word  6 Word  length  of  code,  followed  by  bit  length  of  data  base  area.  Tire  maximum  size  of  the 
data  base  is  one  large  page. 

Word  7 Each  word  contains  a table  type  and  an  address  pointer  to  a table  of  that  type.  The  pointer 

& on  contains  a bit  address  relative  to  the  first  word  address  of  the  header.  By  convention,  the 
first  table  described  is  the  code,  and  the  second  is  the  extemal/entry  table.  If  HEX  type  is 
0004,  the  pointer  contains  the  bit  address  of  the  next  module  header  table.  Each  table  type 
is  described  in  detail  in  this  section. 
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Type 

Module  Name 

Description 

0001 

CODE 

Code  Block  Table 

0002 

EXT  ENTR 

Extemal/Entry  Table 

0003 

REL  CODE 

Code  Relocation  Table 

0005 

XFER  SYM 

Transfer  Symbol  Table 

0006 

SYMB  TAB 

Debug  Symbol  Table 

0101 

INT  DATA 

Interpretive  Data  Initialization  Table 

0201 

* 

INT  RELO 

Interpretive  Relocation  Initialization  Table 

0301 

PAV 

Pseudo  Address  Vector  Table 

Only  types 

1,  2,  6,  and  301  appear  in  the  error  processing  information  area  of  an  object  module. 

CODE  BLOCK  TABLE 

The  code  biock  table  contains  the  executable  code  in  the  following  format: 
Word 
1 

2 


3 


AACODEAA 

• 

64 

Length 

16 

Back  Pointer 

48 

Code 


The  code  block  table  has  a pointer  in  the  error  processing  information  area.  In  this  capacity  the  table 
has  the  following  format: 
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Word 


Word  1 Program  name  in  ASCII. 

Word  2 A pointer  to  the  beginning  of  the  error  processing  information  area  for  that  program. 

Word  3’  The  executable  code. 

& on 


CODE  RELOCATION  TABLE 

This  table  describes  relocation  in  the  code  itself. 


Word 


1 

RELACODE 

64 

2 

Length 

Sack  Pointer 

16 

48 

3 

nbi 

ni 

16 

48 

4 1 

Current  Base 

64 

5 

11,  12,,  13,  ...  In 

Word  3 ribi  is  number  of  bits  per  index  in  the  bit  string  starting  in  word  5 
ni  is  number  of  indexes  in  the  string 

Word  4 Current  base:  current  bit  address  to  which  this  module  is  relocated 

Word  5 Bit  string  of  indexes, each  nbi  bits  long.  Each  index  references  a half  word  of  code  to  be 
relocated  relative  to  the  base  address  of  the  code 

When  .this  table  is  processed,  the  bit  base  address  of  the  code  is  added  to  the  48-bit  fields  pointed  to  by  the 
indexes'  ir\  .the  bit  string. 
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EXTAENTR 


Length 

16 

8ack  Pointer 

m 

16 

n 

Entry  Name  1 


Entry  Name  2 


Entry  Name  m 


External  Name  1 


External  Name  2 


External  Name  (n-m) 


Entry  Descriptor  1 


Entry  Descriptor  2 


Entry  Descriptor  m 


External.  Descriptor  1 


External  Descriptor  2 


External  Descriptor  (n*rr 
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symbols,  and  common  blocks. 


64 


Word  3 

Word  4 through  3+m 
Word  4+m  through  3+n 
Word  4+n  through  3+m+n 
Word  4+m+n  through  3+n+n 


m is  number  of  entry  point  names  in  table 
n is  number  of  names  in  table 

List  of  entry  point  names 

List  of  external  names 

List  of  entry  point  descriptors 

List  of  external  descriptors 


Each  descriptor  is  of  the  following  form: 


Type 

16 

Value 

48 

Type  Field 

Symbol  Type 

Value  Field 

1 

Entry  point  in  code 

Relative  bit  address  in  the  code 

2 

Entry  point  in  data 

Relative  bit  address  in  the  data  section 

3 

Constant  entry  point  48-bit  constant 

14 

External  procedure 

0 

15 

External  datum 

0 

16 

Common  block 

Bit  length  of  the  common  block 

ENTRY  POINTS 

An  entry  point  is  a named  value  defined  in  the  procedure;  it  is  to  be  referenced  as  an  external  by  an  external 
procedure.  It  may  be  an  address  in  the  code  block,  an  address  in  the  data  base,  or  a constant  value. 

COMMON  BLOCKS 

A common  block  is  a named  alterable  space  referenced  by  one  or  more  procedures.  A common  block  can  be 
initialized  with  relocatable  data.  Blank  common  is  a common  block  with  name  of  eight  blanks. 

EXTERNAL  PROCEDURE 

An  external  procedure  reference  is  used  in  a call.  Having  a symbol  doubly  defined  as  a common  block  and 
external  procedure  is  specifically  allowed.  All  names  are  eight  characters,  left  justified  and  blank  filled. 
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EXTERNAL  DATA 


An  external  datum  is  an  external  that  is  referenced  by  a method  other  than  a procedure  call. 

INTERPRETIVE  DATA  INITIALIZATION  TABLE 

When  the  loader  processes  information  in*  this  table,  areas  of  static  space*  are  initialized* 


Word 


Word  3 Data  item  descriptor  and  item  pairs,  formatted  as  follows: 
& on  * 


ordl  Pseudo  address  vector  ordinal  of  static  space  to  be  initialized 

ord2  Pseudo  address  vector  ordinal  relative  to  which  relocation  is  to  be  done  (relocation  base) 

Type'  Type  of  data  item  that  follows 
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Mode  00  Vaiues  to  destination 

01  Values  plus  relocation  base  to  destination 

02  Destination  plus  relocation  base  to  destination 

When  mode  - 00,  the  values  in  the  item  are  stored  directly  into  the  destination  fields,  and 
ord2  is  ignored.  When  mode  = 01,  the  relocation  base  is  added  to  the  values  before  they  are 
stored  in  the  destination  fields.  Halfword  values  are  not  defined  for  this  case.  When  mode  =*  02, 
the  relocation  base  is  added  to  the  destination  fields.  The  value  fields  are  absent  in  the  various 
items  in  this  case. 

Chain  Relative  full-word  count  to  next  data  item  descriptor  in  table 


Data  items  may  be  stored  in  one  of  the  following  formats,  depending  on  the  type: 


Item  Format  1 


Data  Items 


Length 


16 


Relative  Address 


48 


Value 


64 


Item  Format  2 


Length 

1 6 

Relative  Address 

48 

Value 

64 

Length2 

16 

Bit  String 

48 

Item  Format  3 


Length 

16 

Relative  Address 

48 

Value 

64 

nbi  16 

48 

Bit  String 

64 
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The  data  item  format  corresponding  to  each  type  is  as  follows: 


Type 

1 

2 

3 

4 

5 

6 
7 

.8 

9 

A, 

D 


Description 
Full-Word  Broadcast 
Half-Word  Broadcast 
Full-Word  Vector  Transmit 
Half-Word  Vector  Transmit 
Full-Word  Sparse  Vector 
Half-Word  Sparse  Vector 
Full-Word  Index  List 
Half-Word  Index  List 
Byte  String 
Bit  String 
Nested  List 


Data  Item  Format 
1 
1 
1 
1 
2 
2 
3 
3 
1 
1 

Any 
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For  each  data  item  type,  the  appropriate  format  is  applied  as  follows: 

FULL  WORD  BROADCAST 

Data  Item  Type 

1 

Item  Format 

1 

Length 

Full  word  vector  length 

Value 

A full  word  to  be  stored  in  consecutive  full  words  starting  at  the  relative  address 
in  the  section  of  static  space 

HALF  WORD  BROADCAST 

Data  Item  Type 

2 

Item  Format 

1 

Length 

Half-word  vector  length 

Value 

A left  justified  half-word  to  be  stored  in  consecutive  half-word  locations  starting 
at  the  relative  bit  address 

FULL  WORD  VECTOR  TRANSMIT 

Data  Item  Type 

3 

Item  Format 

1 

Length 

,Full-word  vector  length 

Value 

Full-word  vector  to  be  transmitted  to  the  relative  address  in  control  section 

HALF  WORD  VECTOR  TRANSMIT 

Data  Item  Type 

4 

Item  Format 

1 

Length 

Half-word  vector  length 

Value 

Half-word  vector  to  be  transmitted  to  the  relative  address  in  control  section 

- 

1-E-1 1 

FULL  WORD  SPARSE  VECTOR 
Data  Item  Type  5 

Item  Format  2 

Length  Number  of  values  in  item 

Value  Full-word  values 

Length2  Length  of  control  vector 

Bit  String  Control  vector  having  a length  specified  by  length2 

HALF  WORD  SPARSE  VECTOR 


Data  Item  Type 

6 

Item  Format 

2 

Length 

Number  of  values  in  item 

Value 

Left  justified  half  word  vector 

Length2 

Length  of  control  vector 

Bit  String 

Left  justified  control  vector 

FULL  WORD  INDEX  LIST 


Data  Item  Type 

Item  Format 

Length 

Value 

nbi 

ni 

Bit  String  , 


7 

3 

Number  of  values  in  item 
Full  word  values 
Number  of  bits  per  index 
Number  of  indexes 

A bit  string  of  ni  indexes;  each  index  is  nbi  bits  long  and  contains  a full-word 
count 
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HALF  WORD  INDEX  LIST 


Data  Item  Type 

Item  Format 

Length 

Value 

nbi 

ni 

Bit  String 


8 ' . 

3 

Number  of  values  in  item 
A left  justified  half-word  vector 
Number  of  bits  per  index 
Number  of  indexes 

A bit  string  of  indexes;  each  index  is  nbi  Jrits  long  and  contains  a half-word  count 


BYTE  STRING 

Data  Item  Type 
Item  Format 
Length 
Value 


9 

1 

Number  of  bytes  in  value  field 
A left  justified  byte  string 


BIT 'STRING 

Data  Item  Type 
Item  Format 
Length 
Value 


A 

1 

Number  of  bits  in  value  field 
A left  justified  bit  string 
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NESTED  LIST 


Ordl  Pseudo  address  vector  ordinal  relative  to  the  data  area  to  be  initialized 

Ord2  Pseudo  address  vector  ordinal  relative  to  which  relocation  is  to  be  done  (relocation  base) 

Typel  D-nested  list 

Mode  00  Value  to  destination 

01  Value  plus  relocation  base  to  destination 

02  Destination  plus  relocation  base  to  destination 

Length!  Number  of  nested  item  types  that  follow 

Rba  Relative  bit  address 

Nil  Nested  data  item 

Ni2  Nested  iteration  start  item 

Ni3  Nested  iteration  end  item 

Niter  Number  of  times  data  item/items  associated  with  this  iteration  start  item  are  to  be 

repeated 

Type2  Any  initialization  type.  If  more  than  one  data  item  in  an  iteration,  types  may  not 

be  mixed 
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Chainl  Relative  full  word  count  to  next  data  item  in  nested  list 

Chain2  Length  of  data  item  in  number  of  words 

Ghain3  0 No  nested  item  types  follow 

1 More  nested  item  types  follow 

Length2  Half  word  vector  length 

Value  A left  justified  half  word  to  be  stored  in  consecutive  half  word  locations  starting  at 

the  relative  bit  address  Rba 

INTERPRETIVE  RELOCATION  INITIALIZATION  TABLE 


Word  3 Relocation  items;  item  formats  are  similar  to  data  initialization  table  formats  but  do  not 
& on  contain  values 
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TRANSFER  SYMBOL  TABLE 


Word  3 The  symbol  name  of  the  entry  point  to  which  control  is  to  be  transferred  at  the 

start  of  execution.  The  name  is  left  justified  with  blank  fill. 


DEBUG  SYMBOL  TABLE 

The  debug  symbol  table,  which  contains  the  ASCII  representation  of  symbols  that  appear  in  a program,  allows 
a symbol  to  be  referenced  by  name  rather  than  by  address.  This  table  appears  in  the  error  processing' infor- 
mation area  if  the  compiler/assembler  used  is  capable  of  generating  the  table  and  the  appropriate  option  is 
selected  and  used  during  compilation/assembly. 


Word 


Word  2 Length  of  table  including  the  symbol  definition  table.  Back  Pointer  is  the  bit  difference  between 
word  1 of  this  table  and  word  1 of  the  module  header  table. 

Word  3 Number  of  symbols  in  this  table. 
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Word  4 Symbols,  which  can  be  any  of  the  following: 

& on 

Variable  or  array  names  in  ASCII;  must  be  left-justified  with  blank  fill. 

Statement  line  numbers  in  ASCII;  must  be  hexadecimal  values,  right-justified  with 
ASCII  zero  fill. 

Statement  labels  in  ASCII.  Labels  that  are  symbolic  names  are  stored  left- 
justified  with  blank  fill;  labels  that  are  statement  numbers  are  stored  right- 
justified  with  ASCII  zero  fill. 


SYMBOL  DEFINITION  TABLE 

The  symbol  definition  table  is  an  extension  to  the  debug  symbol  table.  It  provides  further  definition  to  the 
debug  symbols  including  the  type  of  symbol,  address,  and  mode. 


Word 

1 

2 

3 

4 • 


SYM8A0EF 

64 

Length 

16 

0 

48 

Type 

16 

Location 

48 

Mode 

16 

0 

32 

Ordinal 

16 

Type 

16 

Location 

48 

Mode 

16 

0 

32 

Ordinal 

16 

* b 


Symbol  1 
Definition 


Symbol  2 
Definition 


Type 

16 

Location 

48 

Mode 

16 

0 

32 

Ordinal 

16 

Symbol  n 
Definition 


Word  3 Symbol  type: 

0 = Unknown 

1 = Half-word  register  variable  name 

2 = Full-word  register  variable  name 

3 = Variable  or  array  name 
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4 = Line  number 

5 = Label 

Location  field  for  symbol  type: 

1 = Half-word  address  within  register  file;  since  half-word  values  may  be  stored  in 

full-word  registers,  location  can  range  up  to  hexadecimal  IFF 

2 = Full-word  register  number 

3 = Bit  address  relative  to  the  start  of  the  data  base 

4 - Bit  address  relative  to  the  start  of  the  code  base 

5 = Bit  address  relative  to  the  start  of  the  code  base 

Word  4 Mode.  Symbol  mode,  consisting  of  three  parts:  precision,  description,  and  data  type.  In  the  case 

of  a descriptor,  P and  Dtype  describe  the  contents  of  the  reference  vector. 


p 

Desc 

Dtype 

l_ 

3 

12 

P Precision  base  indicator: 

0 = Precision  base  is  32-bit,  or  irrelevant 

1 = Precision  base  is  64-bit 

Desc  Descriptor  indicator: 

0 = Not  a descriptor 

1 = Vector  descriptor 

2 - Vector  descriptor  array 

4 = Sparse  vector  descriptor 

5 = Sparse  vector  descriptor  array 

Dtype  Type  of  the  referenced  vector: 

0 = Unknown 

1 = Logical 

2 = Integer 

3 = Real 

4 = Complex 

5 = Double  precision 

6 = Character 

7 = Bit 

Ordinal:  The  pseudo  address  vector  table  of  the  data  base  or  common  block 
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PSEUDO  ADDRESS  VECTOR  TABLE 
(Ordinal  Description) 

The  table  has  the  following  format: 


Word 


For  common: 


For  external  symbol,  referencing  entry  point  in  code: 


For  external  symbol,  referencing  entry  point  in  data: 


0 

16 

Entry  in  Data  Base 

48 

Data  Base  Length 

16 

Data  Base 

48 

For  external  symbol,  referencing  constant  entry  point: 


0 

16 

Constant  Entry  Value 

43 

Data  Base  Length 

16 

Data  Base 

43 
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APPENDIX  F 


SIMULATOR  INPUTS  AND  RESULTS 


H 

32760,16,3* 16 

FlUTRX-AMATRX-BTni  ROUTINE 

000100 

M 

0*  l_*.5».l  *100*600 

821 

MAP  RJI  GATHER  RECORD 

000110 

M 

0*2,5,1,100,800 

822 

MAP  XXL  I GATHER  RECORD 

000120 

M 

0,3*5,1,100,800 

823 

MAP  YKU  GATHER  RECORD 

000130 

M 

0,4,5,1*100*800 

824 

MAP  ZKU  GATHER  RECORD 

000140 

M 

0*5,5,1,98,600 

922 

MAP  01*1  GATHER  RECORD 

000160 

M 

0,6,5,1,98,600 

923 

MAP  02* « GATHER  RECORD 

000170 

M 

0,7*5,1,90*600 

924 

MAP  03 *1  GATHER  RECORD 

000100 

M 

0,8,5,1*100,600 

925 

MAP  <34  * 1 GATHER  RECORD 

000190 

M 

0,0*5,1,98,600 

926 

MAP  Q5M  GATHER  RECORD 

000200 

M 

0,0*5,1*90,600 

932 

MAP  RJU  GATHER  RECORD 

000210 

M 

0,0*5,1,100,800 

942 

MAP  XLK*J  GATHER  RECORO 

000220 

M 

0,0,5,1,100,300 

952 

MAP  YKL • 1 GATHER  RECORD 

000230 

M 

0.0,5^1,16,128 

962  MAP  ZKL't  GATHER  RECORO 

000240 

V 

2*0*2*1*60000,12,3,1 

972 

XK 

000250 

V 

3,0*2*1,60000,12.3,1 

982 

YK 

000260* 

V 

4,0*2,1,60000,12*3,1 

992 

ZK 

000270 

V 

0,0*2,1,60000,12,3*1 

1002 

XL 

0002R0 

V 

0,0,2,1,60000,12,3,1 

1 012 

YL 

000290 

V 

0,0,2,1,60000,12,3,1 

1022 

ZL 

000300 

V 

0,0,3,1,60000,9,4,1 

1032 

T 1 

000310 

V 

0,0,3,1,60000,9,4,1 

1042 

T2 

000320 

V 

0,0,3,1,60000,9,4,1 

1052 

T1 

000330 

V 

0,0,2,1,60000,9,4,2 

1053 

XXU)  AND  XX  ( 2 ) 

000340 

V 

0,0,3,1,60000,9,4,1 

1063 

T2 

000350 

V 

0,0,2,1,60000,9,4,2 

1065 

XX  (3)  AND  XX  ( 4) 

000360 

V 

0,0,2,1,60000,9,2,2 

1082 

0(1*2)  AND  D ( 1 t 3) 

000370 

V 

0,0,2,1,60000,9,2,2 

1102 

DUtl)  AND  0(1 » 4) 

000380 

V 

5,0*1,1,60000,18,2,2 

11*2 

RR*1A)  1 

000390 

V 

0,0,0, 1,60 000, 20 *3*1 

11*2 

DIV  2NO  PASS 

000400 

V 

0,0,2,1,60000,9,3,2 

1162 

U ANO  V 

000410 

V 

0,0,3,1,60000*9,4,1 

1182 

U*Q12  ♦ V*Dl3  » T 1 

000420 

V 

0,0,3,1,60000,15,4*2 

1183 

T 1 ♦ R««QR-»D14 

000430 

V 

0,0,3,1,60000,9,4,1 

1192 

T1 

000440 

V 

0,0*2,1,60000,9,3,1 

1193 

UT 

000450 

V 

0,0,2,1,60000,15,3,1 

1202 

Cl 

000460 

V 

0,0*2*1.60000*15,3,1 

■ 1212 

C2 

000470 

V 

0*0*2*1,60000*9,4,2 

1232 

03  ANO  C4 

000490 

V 

0*0*2,1*60000,9,3*2 

1252 

C5  ANO  C6 

000490 

V 

0*0,1,1,60000*9*2,1 

1282 

C7 

00050Q 

M 

0,0*2,1,1*60000 

1283 

0(1*5) 

OOOSIO 

V 

0*0*3,1*60000*9*4*1 

1292 

0(2*1) 

000520 

*v 

>0.,0*3, 1,60000*  15,4,  1 

1302 

0(2*2) 

000530 

V 

0,0*3,1,60000,9,4,1 

1312 

0(2*3) 

' 0005*0 

V 

0,0*3,1*60000,9*4,1 

1322 

0(2.4) 

000550 

V 

0,0,3*1,60000,9*4,1 

13*2 

0(3*1) 

00056Q 

V 

0,0,3,1,60000,9,4,1 

1352 

0(3*2) 

000570 

V 

0,0,3,1,60000,15,4,1 

1362 

0(3*3) 

000500 

V 

0,0*3, 1*60000, 9,4,1 

1372 

0(3,4)  - 

000590 

V 

0,0*2,1,60000,9,4,2 

1382 

0(2,5)  AND  0(3*5) 

. 000600 

V 

0,0*3,1,60000,9*4,1 

1392 

0(4*1) 

000610 

V 

0,0*3,1*60000,9*4*1 

1402 

0(4,2) 

000620 

V 

0,0*3,1*60000,9,4,1 

1412 

0(4*3) 

000630 

V 

0,0*3,1,60000*15,4,1 

1422 

D (4*4) 

000640 

V 

0*0,1,1,60000*9*2.1 

1432 

0(4*5) 

000650 

V 

0,0,3, 1,60000, 15*4*1 

14*2 

0(5,1) 

000660 

V 

0,0,3,1,60000*9*4,1 

1*52 

0(5,2) 

000670 

V 

0*0*3,1,60000, 9, 4*1 

1462 

0(5*3) 

000680 

V 

0,0,3,1,60000,9,4,1 

1472 

0(5*4) 

0006.90 

V 

0,0,2,1,60000,9,3,1 

1-482 

£NO  AMATPX 

000700 

V 

0,0, 1 , 1 ,60000,20,2*1 

1522 

RMJ»RM/RJ 

000710 

V 

0,0,0,1,60000,18,3*1 

1522 

OIV  2N0  PASS 

000720 

V 

0,,0, 2, .1,60000.,  8, ,3, 2 

.15*2 

<RR  nAND  RF 

000730 

1-F-1 


M 

0»0»5» 1*98*688 

1652  MAP  FI (N)1 GATHER 

000740 

R 

s 

1550  00  23 

000750 

R 

5 

1560  DO  22 

000760 

V 

0*0*0* 1*60000*9,2*2 

1602  A(N»M>  AND  B(N*M> 

000770 

M 

0*0,2, 1*1*60000 

1612  MAP  B(N*M)t  SCATTER 

000780 

C 

END  DO  22 

000790 

H 

0*0*2*1,1,60000 

1632  MAP  B (N«M) 1 SCATTER 

000800 

V 

0*0*2, 1,60000,9***2 

1642  A (N,M)  AND  CtN.M) 

000810 

C 

32768,16*3*16 

ENO  00  23 

000820 

F 

BTRI  ROUTINE  LINES  4330  TO  6100 

000840 

V 

0,0*1* 1,600,18,2,2 

4330 

L11»1/8U,11 

000850 

V 

0,0,0,1,600,18,2*1 

DIVIDE  2ND  PASS 

000860 

H 

0,1,1,1,1,600 

4340 

MAPi  L21»B1 (2*1) 

000870 

V 

1*0,3, 1,600,9,4,2 

4350 

& 4360  U 1 2*B 1 (1*2) *L lit  T1»81-L21*U12 

000880 

V 

0,0,1,1,600,18,2,2 

4360 

L22.1./T1 

000890 

V 

0,0,0,1,600,18,2,1 

DIVIDE  2ND  PASS 

000900 

V 

0,0,2,  1,600, .9, 3, 2 

4380 

U13*  U14 

000910 

V 

0,0*1,1,600,9,3,1 

4390 

U15,  L31 

000920 

V 

0,0, 1,1,600,9,2, 1 

4410 

L32 

000930 

V, 

0,0,3,1,600,12,4,1 

4420 

U23 

000940 

V 

0,0,3,1,600,9,4,1- 

4430 

TEMPI 

000950 

V 

0,0,1,1,600*9,2,1 

4430 

TEMP2 

000960 

V 

0,0,1,1,600*18,2,2 

4430 

DIVIDE  1ST  PASS 

000970 

V 

0,0,0,1,600*18,2,1 

4430 

L33 

000980 

V 

0,0,3,1,600*9,4,1 

4440 

U24 

000990 

V 

0,0,3,1,600*9*4,1 

4450 

U2S 

001000 

M 

0,2,1,1,-1,600 

4460 

L41 

001010 

V 

2*0,3,1,600*12,4,2 

4470 

L42,  T1 

001020 

V 

0,0,3,1,600,15,4,1 

4480 

L43 

001030 

V 

0,0,3,1*600,9,4*1 

4490 

Tl»L4l*U13«-L32*U24 

001040 

V 

0*0, 2, 1*600, 12.3*1 

U3A»(B1 (3*4) -Tl) *L33 

001050 

V 

0,0*3,1*600.9*4,1 

- 4500 

T1*U14*L4'1*U24«L42 

001060 

V 

0,0*3,1,600,9,4,1 

4500 

T1«B1 <4,4>-Tl-(U34*L43) 

001070 

V 

0,0,1,1,600,18,2,2 

4500 

L44.1./T1 

001080 

V- 

0,0*0*1*600*18*2*1 

DIVIDE  2ND  PASS 

001090 

V 

0*0,3*1*600*9,4*1 

4512 

T 1 

001100 

V 

0,0,2*1,600,12*2,1 

4513 

U3S 

oouio 

M 

0.2,1,1*1*600 

4522 

L51 

001120 

V 

2*0*3, 1,60 0*12*4*2 

4542 

L52  AND  T1»LS1«U13 

001130 

V 

0,0,3,1*600,12*4*2 

4544 

L53 

0 0 1 140 

V 

0*0*3*1*600*9*4*2 

4552 

T 1 

oonso 

V 

0*0*3*1*600,9*4,2 

4553 

L54 

001160 

V 

0*0*3*1*600,12*4*1 

4562 

Tl»L42*U25-L43*U35 

001170 

V 

0*0*3*1*600,12*4*1 

4563 

Tl 

001180 

V 

0*0,3*1*600*12*4*2 

4572 

U45  AND  Tl 

001190 

V 

0» 0*3*1*600*12*4,1 

4574 

T2 

001200 

V 

0*0,3,1,600,12,4*1 

4575 

Tl 

001210 

V 

0*0*1*1*600*18*2*2 

4576 

L51*1./T1 

001220 

V 

0*0*0*1*600*18*2*1 

OIVIOE  2NO  PASS 

001230 

V 

0*0,3*  1.*  600*9*4, 2 

4602 

i,  4603  01  AND  Tl 

001240 

V 

0*0*3*1*600*9*4.2 

4612 

02  AND  Tl 

001250 

V 

0*0*3*1*600*12*4*1 

4614 

03 

001260 

V 

0*0*3. 1*600*12*4*1 

4622 

Tl 

001270 

V 

0, 0*3*1*600*12*4*1 

4623 

Ti 

001280 

V 

0*0, 3*1* 600*9*4*2 

4632 

D4 

001290 

V 

0*0*3*1*600*12*4*2 

4634 

T2 

001300 

V 

0*0*3*1*600*12*4*2 

4635 

Tl 

001310 

V 

0*0*0* 1*600,9*3*2 

4652 

05  AND  F15 

001320 

V 

0,0*3*1*600,12*4*2 

4672 

F14  A NO  Tl 

001330 

V 

0*0. 3*1,600, 12,4*1 

4674 

F 13 

001340 

V 

0*0,3*1*600*12*4,1 

4682 

Tl 

001350 

V 

0*0*3*1*600*12*4*1 

4683 

F12 

001360 

V 

0*0*3  *.1*600,  12*4*1 

4692 

Tl 

001370 

1-F-2 


V 

0*0*3*1,600* 

4693 

T2 

D01380 

V 

R 

0, 0*3*1, 600, 12*4.1 

s 

4694 

FU 

001390 

001400' 

V 

0*0, 3*1* 600* 12 *4*2 

4732 

ox 

001410 

V 

0*0, 3*1, 60 0*12* 4* 2 

4742 

□2  AND  T1 

001420 

V 

0,0, 3, 1,600, 12*4.1 

4744 

03 

001430 

V 

0*0*3*1*60 0*15*4*1 

4762 

Tr 

001440 

V 

0*0*3*1*600*15*4*1 

4762 

T 1 

001450 

V 

0*0*3. 1.600*12. 4*2 

4764 

04  AND  TI 

001460 

V 

0*0*3*1*600. 15*4*1 

4766 

T2 

001470 

V 

0*0*3* 1*60 0*15 *4*1 

4767 

Tl 

001480 

V 

0*0*1*1*600*9*3*2 

4772 

05  AND  0X5 

001490 

V 

0*0*3* 1*60 0*12*4*2 

4792 

B4M  AND  Tl 

001500 

V 

0*0*3* 1*600*15*4*1 

4794 

S3M 

001510 

V 

0*0*3*1*600*15*4*1 

4802 

Tl 

001520 

V 

0*0*3*1*600*15*4*1 

4803 

B2H 

001530 

V 

0*0.3*1*600,15.4*1 

4812 

Tl 

001540 

V 

0*0*3*1*60 0*15*4*1 

4813 

T2 

001550 

V 

0*0*2*1*600.12*3*1 

4814 

BlM 

001560 

c 

END 

00  12 

001570 

R 

1 

DO  1MAX  TIMES 

001580 

R 

5 

00  14  LOOP 

001590 

V 

0*0*3*1*600*15*4,1. 

4922 

Tl 

001600 

V 

0*0*3*1*600*15*4*1 

4923 

T2 

001610 

V 

0*0*3*1*600*15*4*1 

4924 

Tl 

001620 

V 

0*0*1*1*600*9*2*1 

4925 

FI 

001630 

c 

END 

00  LOOP  14 

001640 

R 

25 

00  LOOP  11 

001650 

V 

0*0*3*1*600*15*4*1 

4972 

Tl 

001660 

V 

0*0*3*1*600*15*4*1 

4973 

T2 

001670 

V 

0*0*3*1*600,15*4*1 

4974 

Tl 

001680 

V 

0 » 0 * 1 , 1 *600  *9*2*1 

4975 

HNM 

001690 

c 

ENO 

DO  LOOP  11 

001700 

V 

0*0*. 1*1*600*18*2* 2 

4330 

LI lel/3  Clil) 

001710 

'V 

0*0*0*1*60 0*18* 2*1 

DIVIDE  2ND  PASS 

001720 

M 

0*1*1*1*1*60.0 

4340 

HAP?  L21*81 <2? 1) 

001730 

V 

1*0*3*1*600*9*4*2 

4350 

4360  U12*S1 (1i2)*L111  T1»B1-L21*U12 

001740 

V 

0*0*1*1*600*18*2*2 

4360 

U22*l */Tl 

001750 

V 

0*0*0*1*600*18*2*1 

DIVIDE  2ND  PASS 

001760 

V 

0*0*2*1*600,9*3*2 

4380 

U13t  U 14 

001770 

V 

0*0*1*1*600*9,3*1 

4390 

U15,  L31 

001780 

V 

0*0*1*1*600*9*2*1 

4410 

L32 

001790 

V 

0*0*3*1*600*12*4*1 

4420 

1)23 

001800 

V 

0*0*3*1*600*9*4*1 

4430 

TEMPI 

001810 

V 

0*0*1*1*600*9*2*1 

4430 

TEMP2 

001820 

V 

0*0*1*1*600*18*2*2 

4430 

OIVIOE  1ST  PASS 

001830 

V 

0*0*0* 1*600, 18*2*1 

4430 

U33 

001840 

V 

0*0*3*1*600*9.4*1 

4440 

U24 

001850 

V 

0*0*3*1.600,9*4*1 

4450 

U25 

001860 

M 

0*2*1*1*1.600 

4460 

L41 

001370 

V 

2*0*3*1*600,12*4*2 

4470 

L42,  Tl 

001380 

V 

0*0*3*1*600,15*4*1 

4480 

L43 

001890 

V 

0*0*3*1*600*9*4* 1 

4490 

Tl*L4l*Ul3*L32*U24 

001900 

V 

0*0*2*1*600,12*3,1 

U34*(B1(3«4)-T1)*L33 

001910 

V 

0*0*3, 1,600, 9*4*1 

4500 

Tl»U14*L4l*U24*L42 

001930 

V 

0*0*3* 1*600*9*4*1 

4500 

T l«Bl (4*4) -Tl-<U34*L43) 

001930 

V 

0*0*1*1*600*18*2*2 

4500 

L44*1./T1 

001940 

V 

0*0*0*1*600*18*2*1 

OIVIOE  2ND  PASS 

001950 

V 

0*0*3*1*600*9*4,1 

4512 

Tl 

001940 

V 

0*0*2*1*600,12*2*1 

4513 

U35 

001970 

M 

0*2*1*1*1*600 

4522 

LSI 

001980 

V 

2*  O',  3*1*  60  0*12*  4*2 

4542 

L52  ANO  Tl=iL5l*U13 

001990 

V 

0*0*3*1*600, 12*4*2 

4544 

L53 

002000 

1-F-3 


V 

0*0*3, 1*600.9*4*2 

4552 

Th 

002010 

V 

0*0*3* 1*600*9*4*2 

4553  L54 

002020 

V 

0*0*3*1*600*12*4,1 

4562- 

T-1-L42*U25-L*3*U3S 

002030 

V 

0*0,3*1*600,12*4*1 

4563 

Ti 

0020*0 

V 

0*0*3*1,600,12*4,2 

4572 

U*5  AND  Tl 

002050 

V 

0,0*3*1*600,12*4,1 

4574 

T2 

002060 

V 

0*0*3*1*600,12*4,1 

4575 

Tl 

00-2070 

V 

0*0*1*1,600,16,2,2 

4576 

L51.1./T1 

. 002080 

V 

0*0*0*1*600,13,2,1 

DIVIDE  2ND  PASS 

002090 

V 

0*0,3*1,600.9*4*2 

4602 

6 4603  01  ANO  Tl 

002100 

V 

0*0*3*1.600,9*4,2 

4612 

02  ANO  Tl 

002110 

V 

0*0*3*1,600,12*4,1 

4614 

03 

002120 

V 

0,0,3,1,600,12,4,1 

4622 

Tl 

002130 

V 

0*0,3, 1,600,12,4,1 

4623 

Tl 

0021*0 

V 

0*0,3,1,600,9,4,2 

4632 

04 

002150 

V 

0,0,3*1,600,12,4,2 

4634 

T2 

002160 

V 

0*0*3,1,600,12,4,2 

4635 

Tl 

002170 

V 

0*0,0, 1,600,9*3*2 

4652 

05  ANO  F15 

002180 

V 

0*0.3*1*600, 12*4*2 

4672 

F14  ANO  Tl 

002190 

V 

0*0*3*1*600,12*4,1 

4674 

F13 

002200 

V 

0,0,3*1*600,12,4,1 

4682 

Tl 

002210 

V 

0,0, 3,  1,600, 12  ,'4,1 

4683 

Fl2 

002220 

V 

0,0,3,1,600,12,4,1 

4692 

Tl 

002230 

V 

0*0,3,1,600,12,4,1 

4693 

T2 

0022*0 

V 

0*0*3,1,600,12,4,1 

4694 

FIX 

002250 

R 

5 

002260 

V 

0*0*3*1*600,12*4,2 

*732  01 

002270 

V 

0,0*3*1*600,12*4,2 

4742 

0 z ANO  Tl 

002280 

V 

0*0*3*1*600,12,4,1 

4744 

03 

002290 

V 

0*0*3,1,600,15*4,1 

4762 

Tl 

002300 

V 

0*0*3,1,600,15,4,1 

4762 

Tl 

002310 

V 

0*0,3,1*600,12,4,2 

4764 

04  AND  Tl 

002320 

V 

0*0*3* 1,600,15*4,1 

4766 

T2 

002330 

V 

0*0*3,1,600,15*4,1 

4767 

Tl 

0023*0 

V 

0,0,1,1,600,9,3,2 

4772 

05  ANO  D15 

002350 

V 

0,0,3,1*600,12*4,2 

4792 

84M  ANO  Tl 

002360 

V 

0*0,3*1*600,15,4,1 

4794 

83M 

002370- 

V 

0,0*3*1,600,15,4,1 

4802 

Tl 

002380 

V 

0,0,3*1*600,15,4,1 

4803 

82H 

003390 

V 

0*0,3,1*600, 15*4,1 

4812 

Tl 

002*00 

V 

0*0,3,1,600,15,4,1 

4813 

T2 

002*10 

V 

Q*0, 2*1*600,12*3,1 

4314 

B1M 

.002*20 

c 

ENO 

DO  12 

002*30 

c 

END  IMAX  loop 

002**0 

R 

5 

00  14  LOOP 

002*50 

V 

0*0*3, 1,600-,  15*4,1 

4922 

*T1 

002*60 

V 

0*0*3,1*600,15*4,1 

4923 

T2 

002*70 

V 

0*0*3,1,600,15*4, 1 

4924 

Tl 

002*80 

V 

0*0*1,1*600,9,2,1 

4925 

FI 

002*90 

c 

ENO 

DO  LOOP  14 

002500 

R 

25 

00  LOOP  11 

002510 

V 

0*0,3,1,600,15,4,1 

4972 

Tl 

002520 

V 

0*0*3, 1*600, 15*4,1 

4973 

T2 

002530 

V 

0,0*3,1,600, IS, 4,1 

4974 

tl 

0025*0 

V 

0,0,1,1,600,9,2*1 

4975 

HNM 

002550. 

c 

ENO 

DO  LOOP  11 

002560 

V 

0,0*1, 1*60 0*18 *2 *2 

4330 

lll»l/8(li n 

002570 

V 

0*0*0* 1.600, 18*2*1 

DIVIDE  2ND  PASS 

002580 

H 

0,1*1*1*1*600 

4340 

HAP t L21»ai(2il)' 

002590 

V 

1*0*3*1*600*9*4,2 

4350 

& 4360  U12»Q1 (1 »2) #L1 1 1 Tl*8l-L21*U!2  002600 

V 

0*0*1,1*600,18*2,2 

4360 

L22-U/T1 

002610 

V 

0,0*0,1,60 0,18*2,1- 

DIVIOE  2ND  PASS 

002620. 

V 

0,0, 2, 1*600, 9* 3, 2 

4380 

U13,  UU 

002630 

V* 

0,0,1,1,600,9*3,1 

4390 

U15,  L31 

0026*0 

V 

0*0,1,1,600,9,2,1 

4410 

L32  • 

002650 

V 

0*0,3*1,600,12,4,1 

4420 

U23 

002660 

V 

0,0,3, 1,60 0, 9* 4,1 

4430 

TEMPI 

002670 

V 

0*0*1*1*600,9*2,1 

4430 

TEMP2 

002680 

V 

0*0,1*1*600,18*2*2 

4430 

DIVIDE  1ST  PASS 

002690 

V 

0*0*0*1*600,18*2,1 

4430 

L33 

002700 

V 

0*0,3*1,600,9,4,1 

4440 

U2* 

002710 

V 

0,0,3,1*600,9,4,1 

4450 

U25 

002720 

M 

0,2*1*1,1,600 

4460 

U*1  . 

002730 

V 

2*0*3,1,600,12,4,2 

4470 

•L*2,  Tl 

0027*0 

1-F-4 


V 

0*0*3*1*600*15*4*1 

4480  L43 

002750 

V 

0*0*3*1*600*9*4*1 

4490  n»L4l»U13*L3a«U24 

002760 

V 

Qt0*2tl»600»12t3tl 

U34«<BU3»4)-T1J»L33 

002770 

V 

0*0*3*1*600*9*4*1 

4500  Tl«U14*L41*U24*L42 

002780 

V 

0*0*3*1*600*9*4*1 

4500  TI»B1(4,4)-T1»(U34*L43) 

002790 

V 

G*Oil*li6OO*10*2*2 

4500  L44»l ,/Tl 

002800 

V 

0f0»0tl*600fl8f2tl 

01VI0E  2ND  PASS 

002810 

V 

0*0*3*1*600*9*4*1 

4512  Tl 

002820 

V 

0 v 0 *2* It 60 Of  12 *2*1 

4513  U3S 

- 002830 

M 

0*2*1*1*1*600 

-4522  L51 

002840 

V 

2*0*3*1*600*12*4*2 

4542  L52  ANO  TI«L51*U13 

002850 

V 

0*0*3*1*600*12*4*2 

4544  L53 

002860 

V 

0*0*3*1*600*9*4*2 

4552  Tl 

002870 

V 

0*0*3*1*600*9*4*2 

4553  L54 

002880 

V 

0*0*3*1*600*12*4*1 

4562  Tl«L42*U25-L43*U35 

002890 

V 

0*0»3tl»600f 12t4tl 

4563  Tl 

002900 

V 

0*0*3*1*600*12*4*2 

4572  U45  ANO  Tl 

002910 

V 

0*0*3*1*600*12*4*  X 

4574  T2 

002920 

V 

0*0*3*1*600*12*4*1 

4575  Tl 

002930 

V 

0*0*1*1*600*18*2*2 

4576  L51.1./T1 

002940 

V 

0*0*0*1*600*18*2*1 

OIVIOE  2ND  PASS 

002950 

V 

0*0*3*1*600*9*4*2 

4602  & 4603  01  ANO  Tl 

002960 

V 

0*0*3*1*600*9*4*2 

4612  02  AND  Tl 

002970 

V 

0*0 *3* X *600* 12*4* 1 , 

4614  03  • 

002980 

V 

0*0*3*1*600*12*4*1 

4622  Tl 

002990 

V 

0*0*3*1*600*12*4*1 

4623  Tl 

003000 

V 

0*0*3*1*600*9*4*2 

4632  04 

003010 

V 

0*0*3*1*600*12*4*2 

4634  T2 

003020 

V 

0*0*3*1*600*12*4*2 

4635  Tl* 

003030 

V 

0*0*0*1*600*9*3*2 

4652  05  ANO  F15 

003040 

V 

0*0*3tl*600fl2*4t2 

4672  F14  ANO  Tl 

003050 

V 

0*0*3*1*600*12*4*1 

4674  F13 

003060 

V 

0*0*3*1*600*12*4*1 

4682  Tl 

003070 

V 

0*0*3*!* 600  « 12 1 4 1 1 

4683  Fl2 

003080 

V 

0*0*3*1*600*12*4*1 

4692  Tl 

003090 

V 

0*0*3*1*600*12*4*1 

4693  T2 

003100 

V 

0*0*3* 1*600*12*4* l 

4694  FI 1 

00311.0 

R 

1 

00  IMAX  TIMES 

003120 

R 

5 

00  14  LOOP 

003130 

V 

0*0*3*1*600*15*4*1 

4922  Tl 

003140 

V 

0*0*3*1*600*15*4*1 

4923  T2 

003150 

V 

0*0*3*  X» 600*15*4*1 

4924  Tl 

003160 

V 

0*0*1*1*600*9*2*1 

4925  FI 

003170 

c 

ENO  DO  LOOP  14 

003180 

c 

END 

IMAX  LOOP 

003190 

E 

003200 

►#*##«*#****«»********•**•*»*#*■*•»***** 

» 
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1-F-5 


H 32766tl6f3tl6 
F 

M OtOtStlil >60000 
M 0i7t5tlil»60000 
H 0#8i 1 i 1 t 60000 
M Ot 9t 5* 1 9 1 960OOO 
M 0 p 0 >5 1 1 * 1 >60000 
M 0 1 0 » 5 ♦ 1 » 1 > 60000 
M-  Ot  0 1 5* 1 1 1 1 60000 
M 0 • 0 t $• 1 * 1 #60000 
M 0 9 0 • 5* 1 1 1 1 60000 

V 7»lt2ilt60000fl2t39l 

V 892f2tlf600009l293>l 

V 9»3*2flt60000fl2f39X 

V Ot492t Ii60000.l2939l 

V 095*2»l960000*12»3tl 

V 096929l960000fl2f3tl 

V 00920t3tlt60000f I5f4tl 

V 0921»39l960000«15t4«l 

V Of22t2f I960000t9,3f2 

V 0923f3»1.60000tl5t4tl 

V 22« 24« 3t 1 « 60000 f 15f4f 1 

V 090»2ili600009993t2 

V 0t0tlilt600009l8f2*2 

V 09090tlf60000»18«2«l 

V 0#0t29l96000099*492 

V 0>0 >3# 1 »60000 9 12 t 4t 2 

V 090929li600o09l5»4«l 

V 0«093t 1 96OOOO9 1294>2 

V Of 0>3t It600009l594tl 

V 0«0«3fl9600009l5949l 

V Of 0t3f 1 9 60000 9 15f4f 1 

V Of  0 9 39  l»600.00f  15>49  1 

V 0f  0 9 3 9 l960000f 15f4f  1 

V 0f0939l9600009l594tl 

V Ot 0 1 1 9 1 9 60000  >9*2 1 1 
V.  Of  0 9 3>  1 » 60000  9 1 5t  4>  l 
R 5 

V Ot'O  »2t  1 9 60000  f 12f.3  9'1 
C 

V*  7tr>2fl9600009l293tl 

V 8t292f l«600009l293ti 

V 99392tl*9600009l2t3f  1 

V Of4f2f 1 *600009 12939 1 

V 095t29l960000tl2939l 

V Ot692f If60000tl293tl 

V 00  9 20  93*  1*600009159  4*1 

V 092I#39l9600009l594tl 

V Of22f2»  W60000t9t3*2 

V Ot 23f 3 9 1 96OOOO 9 15f4f 1 

V 22924939lf6O00O»15949l 

V 090t29l96000099f3f2 

V OtOtlf If600009l892f2 

V 090»0flt600009l8929l 

V 090*2*1*6000099*4,2 

V 0t093#li600009l2>4i2 

V Ot 0 9 2t 1 9 60000 « 15f 4 , 1 

V 0»093*l9600009l2f4t2 

V 0 9 0 9 3 * 1 f60000,15t4tl 

V Of 0939lf60000il5i4,l 

V Of 0 «3« 1 96OOOO • 15 t4f 1 

V Of  0 9 3* 1 *60Q00i 15f4f 1 

V 0f093fl*60000il5»4*l 


THIS  IS  RIGHT  HAND  SIDE 
330  RJ 
340  XKJ  * 

350  YKJ 
360  ZKJ 
370  Q1 
380  Q2 
390  Q3 
400  Q4 
410  Q5 
420  XK 
430  YK 
440  ZK 
450  XL 
460  YL 
470  ZL 
400  XX U ) 

490  TEMP2 

490  XX  < 1 ) f XX ( 2) 

500  TEMPI 
510  TEMP2 
510  XX (3) t XX  < 4) 

550  RR*W/Q 
550  64  SIT  DIVIDE 

560  AND  * 570  U AND  V 
590  W 
590  T 

590  FINISH  QS  * FORM  Fl  ( 1 ) 
600  U**2>V**2 
600  *#*2*T1*Q1 
600  P*GAMI*(Q5-.5*T1> 

620  Fl(2) 

630  FH3> 

640  FI  (4) 

650  <Q5*PP) 

650  Fl  (5) 

DO  20  LOOP 
710  S2 

420  XK 
430  YK 
- 440  ZK 
450  XL 
460  YL 
470  ZL 
480  XX (1) 

490  TEMP2 

490  XX  C 1 ) * XX ( 2) 

500  TEMPI 
510  TEMP2 
510  XX  < 3 ) 9 XX  ( 4) 

550  RR*1./Q 

550  64  8IT  DIVIOE 

560  AND  570  U AND  V 
590  « 

590  T 

590  FINISH  QS  * FORM  Fid) 
600  U**2*V«n>2 
600  W**2*Tl*Ql 
600  P*6AMI<MQ5-.5»T1) 

620  Fl(2> 

630  Fl (3) 


OOOIOO 

000110 

000120 

000130 

000140 

000150 

000160 

000170 

000180 

000190 

000200 

000210 

000220 

000230 

000240 

000250 

000260 

000270 

000280 

000290 

000300 

000310 

000320 

000330 

000340 

000350 

000360 

000370 

AND  T1  000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 

000480 

000485 

000490 

000500 

000510 

000520 

000530 

000540 

000550- 

000560 

000570 

000580 

000590 

000600 

000610 

000620 

000630 

000640 

000650 

AND  T 1 000660 

000670 

000680 

000690 

000700 

000710 


1-F-6 


V 

0*0,3,1,60000,15,4,1 

640 

FI  (4) 

000720 

V 

0»0, 1.1, 60000, 9.2,1 

650 

(QS+PP) 

000730 

V 

0*0. 3, 1,60000.15.4,1 

650 

FI  (55 

000740 

R 

S 

00  20  LOOP 

000750 

V 

0*0, 2, 1,60000, 12*3,1 

710 

S2 

000760 

C 

000765 

V 

7 * l.,2  *.l » 60000, 12,-3  ,'l 

420 

XK 

000770 

V 

a, 2, 2, 1,60000. 12.3.1 

430 

YK 

000780 

V 

9,3,2,1,60000,12,3,1 

440 

ZK 

000790 

V 

0,4,2,1,60000,12,3,1 

450 

XL 

000800 

V 

0,5,2,1,60000,12,3,1 

460 

YL 

000810 

V 

0,6,2.1.60000*12,3,1 

470 

ZL 

000820 

V 

00,20,3,1,60000,15,4,1 

480 

XX  ct) 

000830 

V 

0,21,3,1.60000,15,4,1 

490 

TEHP2 

000840 

V 

0,22,2,1,60000,9,3,2 

490 

XX(U  t XX<2) 

000850 

V 

0*23,3,1,60000,15,4,1 

500 

TEMPI’ 

000860 

V 

22.24,3,1,60000,15,4,1 

510 

TEMPZ 

000870 

V 

0*0,2,1,60000,9,3,2 

510 

XX (3) # XX (4) 

000880 

V 

0*0,1,1,60000,18,2,2 

550 

RR®1*/Q 

000890 

V 

0,0,0,1,60000,18,2,1 

550 

64  8IT  DIVIDE 

000900 

7 

0,0,2, 1,60000.9,4,2 

5*0 

AND  570  U AND  V 

000910 

V 

0,0,3,1.60000,12,4,2 

590 

W 

000920 

V 

0,0,2., 1,60000,15,4,1 

590 

T 

000930 

V 

0,0,3,1,60000,12,4,2 

590 

FINISH  QSf FORM  FKI>  AND  T1 

000940 

V 

0,0, 3, 1,60000, IS, 4,1 

600 

U**24V#*2 

000950 

V 

0,0,3,1,60000,15,4,1 

600 

W**2*7l*Ql 

000960 

V 

0,0,3,1,60000,15,4,1 

600 

P«GAMI*(Q5-.5*T1> 

. 000970 

V 

0,0,3,1,60000,-15,4,1 

620 

FI  (2) 

000980 

V 

0,0,3,1,60000,15,4.1 

630 

FI  (3) 

000990 

V 

0,0,3,1,60000,15,4,1 

640 

FI  (4) 

001000 

V 

0, 0,1, 1,60000,9, 2 ,'l 

650 

<Q5*PP) 

001010 

V 

0,0,3,1,60000,15.4,1 

650 

FI  (5) 

001020 

R 

5 

00  2C 

\ LOOP 

001030 

V 

0*0,2,1,60000.12,3,1 

710 

S2 

001040 

c 

001045 

E 

001050 

* * 
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NUMBER  .............  CONTENTS  NUMBER  .............  CONTENTS 

VECFP  1 .0333437-7 18820E.0  00  VECBZ  9, 0235653319400E-00 l 

CLKPO  772976 


NUMBER  .............  CONTENTS  NUMBER  CONTENTS t 

MAPFP  7 « 2770688 160800E-0 07  MAPBZ  2,6 l97447737840E»0r 1 


1-F-7 


H 32768*16,3*16 
F 

F 

F 

F 

F 

f 


SIMULATION  input  for  vismat  subroutine 


M 

0,0, 1,1,1 *60000 

2070 

D(2,5)«0,0 

M 

0*0,1. 1, 1.60000 

2080 

DU(2,5)aO«Q 

M 

0*0.1. lil. 60000 

2190 

0 < 3 ,5>»0«  0 

M 

0*0. 1.1) 1.60000 

2200 

OU (3,5) »0 ,0 

M 

0.0.1.1.1.60000 

2310 

0(4. 5) *0,0 

M 

F 

0.0.1.1.1.60000 

2320 

OU(4,5)*0.0 

F 

V 

0.0.3.1,60000.0,2.2 

1740 

TO* (ZZ1*ZZ1) ♦ (ZZ2»ZZ2) I T3«(ZZ2*ZZ2) 

V 

0.0.2,1,60000*9,2.2 

1740 

T2*ZZ1*ZZ1»  T4*ZZ3*ZZ3 

V 

0.0,2, 1,60000.9, 6.2 

1750 

T1«(R3*VNU}*BJJ  1780  T5»ZZ1*ZZ2 

V 

0.0,2.1,60000, 12,3.1 

1740 

S0*<T0*T4)*rj 

V 

0,0.3, 1,60000, 12.4, 2 

1750 

Si* (SO* (Tl*T2n J 1810  SOsSQ* (GKPR«GKAP) 

V 

0,0,2, 1,60000.9,3.2 

1790 

T6«Z21*ZZ3*  1800  T7*2Z2*ZZ3 

V 

0.0, 2.1, 60000, 9, 3.2 

1760 

T13*T1*T31  1780  S4»Tl*T5 

V 

0.0.3, 1,60000,9,4.2 

1770 

S3*  (SO* (Tl*T4) ) t 1760  S2*S0*T13 

V 

0,0,2.1,60000,9,3,2 

1790 

S5*T1*T6*  1800  S6*T1*T7 

V 

0.0,1.1,60000.9,2,1 

1820 

E»Q5*RR 

V 

0«0i2«l, 60000,9,4, 2 

1840 

C0»S0(*,*»1 lLMAX-1) +SQ (*,»»2lUMAX) » 1850 

V 

0,0.2, 1,60000*9,4,2 

I860 

C2»S2<*,*,1 iLMAX-1) ♦S2<*,*,2iL«AX) 1 1870 

V 

F 

0*0,2,1.60000,9,4,2 

1880 

C4*S4 (*,*,1 tLMAX-1) *S4 ( *,* » 2 1 UMAX) I 1890 

Cl« 

03* 

05* 


OEFINE  STATEMENTS  GO  HERE 


V 

0*0*3 

*1 

♦60000*9*4, 1 

1970 

n»<  (ci*u<«. 

V 

0*0*2 

*1 

*60000  *9*4*2 

1970 

T3«T1*C5*W<* 

V 

0*0*2 

*1 

*60000*9,4,2 

1980 

0(2. 1)»-T3*p 

V 

0*0*3 

*1 

*60000*9*4,1 

1990 

T1»((C1*U(*, 

V 

0*0*3 

• 1 

» 60000  *15,4*1 

2000 

0U(2, 1) «RR*( 

V 

0*0*2 

*1 

• 60000  * 9*3,2 

2010 

D (2, 2) «C1*RR 

V 

0*1*2 

,1 

*60000,9*3,2 

2030 

0(2,3) aC4«RR 

M 

1*0*1 

*1 

*1*60000 

2130 

0(3*2)30(2.3 

M 

0*0*1 

*1 

*1*60000 

2140 

0U( 3,2) «DU(2 

V 

0*2*2 

* 1 

>60000  * 9*3  * 2 

2050 

0 (2,4) aC5*RR 

M 

2*0*1 

• 1 

*1*60000 

2250 

OU,2)aO(2,4 

M 

0*0*1 

*1 

•1*60000 

2260 

OU (4,2) =OU (2 

V 

0*0*3 

*1 

*60000*9*4* 1 

2090 

n«(c2*v(9,* 

V 

0*0*3 

*1 

*60000*15*4*1 

2100 

0(3,  n*RR«<- 

V 

0*0*3 

*1 

*60000*9*4,1 

2110 

T1*<C2*V<*,* 

V 

0*0*3 

*1 

♦ 60000 *15,4*1 

2120 

OU (3, 1) »RR® ( 

V 

0*0*2 

*1 

*60000*9,3,2 

2150 

0(3,3) 3C29RR 

V 

0*3,2 

*1 

*60000*9,3,2 

2170 

D { 3, 4) &C6*RR 

M 

3*0*1 

*1 

* 1*60000 

2270 

0(4,3)30(3,4 

M 

0*0*1 

*1 

* 1*60000 

2280 

0U(4,3)»0U(3 

V 

0*0*3 

*1 

*60000*9*4,1 

2210 

Tl ■ <C3*W ( «, * 

V 

0,0*3 

*1 

*60000*15*4*1 

2220 

D(4,1)3RR«(. 

V 

0*0*3 

*1 

*60000*9*4*1 

2230 

T 1* (C3*W (*»  * 

V 

0*0*3 

• i 

*600 0$  *15, 4*1 

2240 

DU  t 4, 1 ) »RR® ( 

V 

F 

f 

0*0*2 

tl 

*60000  *9,3*2 

2290 

0(4,4) =C3*RR 

F 

V 

0*0*2 

1 1 

*60000*12*3,2 

2330 

T1«(C1-C2) j 

V 

0*0*2 

*1 

* 60000 , 12*3*2 

2340 

T33(C2-C0) ) 

V 

0*0*2 

*1 

,60000* 12*3*2 

2340 

T5«(C3-C0) ( 

V 

0*0*2 

*1 

*60000*9,3,2 

2350 

T7*C4»V)  T8! 

0(2*5) 
00  C6* 


0.0 


OU ( 4*4) «C3°RR < * * 2 t UMAX ) 


T2«T1*U(*,*,  ULMAX-I) 
T4*T3»V(«>,** 1 l L«AX- 1) 

T6=T5*w<**** x iLMAX*l) 


000001 
000040 
000041 
000042 
000043 
000044 
000045 
000050 
000051 
000052 
000053 
000054 
000055 
000100 
000120 
000130 
000140 
000150 
000160 
000170 
nooiao 
000 190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
#000340 
000350 
000360 
000370 
000380 
000381 
000382 
000410 
000420 
000430 
000440 
\ 000450 
000460 
000461 
000462 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 


1-F-8 


V' 

0*0*2* 1 

*60000*9*4* 1 

V 

0*0*2*1 

*60000*9,4,2 

V 

0*0*3* 1 

*60000*9,4* 1 

V 

0*0*2* 1 

*60000*9,4*2 

V 

0*0*3* 1 

*60000*9*4* 1 

V 

0 ,0*3  »1 

• 600 00 »1S*3* 1 

V 

0*0*3*  1 

*60000* 15*4* 1 

F 

F 

V 

0*0,2, 1 

*60000*9,2,2 

V 

0*0*2. 1 

*60000*9*2*2 

V 

0*0*2* 1 

*60000*9*2*2 

V 

0*  0*2* 1 

*60000*9,3*2 

V 

0*0*2* 1 

*60000*9*4*2 

V 

0*0*3*  1 

*60000*9*4*1 

V 

0*0,2, 1 

,60000,9*4*2 

V 

0, 0*3* 1 

*60000*9,4*1 

V 

0, 0,2,1 

,60000*12*4*1 

V 

F 

0*0*3* 1 

*60000*15*3*1 

F 

V 

0*0*3* 1 

*60000*15*4*1 

V 

0*0*3* 1 

*60000* 1S*4* 1 

V 

0*0.3*! 

*60000*9*4, 1 

V 

0*0*2* 1 

,60000, 12*3*1 

V 

0*0*3* 1 

*60000*9,4, 1 

V 

0.0.2.1 

*60000*12*3*1 

V 

0*0*3* 1 

•60000*9*4* 1 

V 

0.0.2.1 

*60000*  12*3'*  1 

V 

0*0*3*! 

*60000,9*4*1 

V 

0*0*2*! 

*60000* 12*3* 1 

V 

0*0*2, 1 

*60000*9*3*2 

T9aT2<M-U(*.*,llLMAX-l)  > *T4*  <-V  (», * , HLMAX-1 ) > 000610 

000620 
. 000630 

0006*0 


2330 

2350  T10*2*«JI  Til  »C5*W  (*,**11  UMAX*  1 ) 

2350  T12«(T7*<-T101 )*<T8»l-Tll) ) 

2360  Tl3»C6*V<*,#,m.MAX-l)  I T1*»2*W 

2360-70  Tl5a(Tl3*t«T14).}  + (C0*E  (-*-♦**  1-lLM  AX- VH 

2340  Tl'6*T9*  ( T6*W (#,* ♦ 1 1 LMAX-1 } ) *T12 

2370  D(5*l)a< (T16-»Tll)»T15)*RR(*,*»ltLMAX-l) 


2380  Tl6»Tl*U(*,*,2lLMAX) » T15«T16*U <*»**2lLMAX) 
2380  Tl4«T2«V(*,**2lLMAX) » Tl»Tl4*V <*♦*, 2ILMAX) 

2380  T3aT5*W {** **2lLMAX)  t T5«T3**I 
2390  Tlo»C4*V<*i*.2jtMAX) | TB»2*U t * * *, 2 » LHAX) 
2390  T9a2*U(*,*,2iLMAX) » T12*C5°W I*** » 2 1 UMAX) 

2390  T17a(T10*t-T9) ) *<T8*(-T12) > 

2390  Tl8aC6*V<*,*»2lLMAX> 1 T19»2*« <*.*»2l LHAX ) 

2390  T2Oa(Tl8*T<-Tl9)>*<C0*E<*,*»2!LMAX> ) 

2390  T19»T20*T17*T1S 

2290  0U(5,1)«( (T1*TS)*T19)*RH(***,2ILMAX) 


2410  0<5»2)a<T2*T7*Tll)*RR(*,*»HLMAX-l) 

2430  DU<5,2)«<Tl5*T10*Tl2)»RR(****2lLMAX) 

2440  T7»(C4*Ut*.*.l  jLMAX-1  J ) * (C6*W(*f*.HUMAX-l)  ) 

2450  D(S*3)a<T4*T7)*RR<***,HLMAX-l> 

2460  TTa (C4*U  t***»2 ILMAX) ) * ( C6*tf ( *♦**  2 ILMAX ) 1 
2470  DU(5*3)a<Tl*T7)*RR(*»*,2ILMAX) 

2480  T7a (C5*U (***, 1 lLMAX-1 ) ) ♦ (C6*V) 

2490  D<5*4)a<T6*T7)*flR(*,*,llLMAX-l) 

2500  T7a  (C5*U<****2  ILMAX)-)  * <C6*V) 

2510  DU{5*4)a<T5*T7>*RR(****2ILMAX) 

D(5*5J«C0*RR<*.liLMAX-l) » 2520 


0*0»2» 1 
0*0,3* 1 
0*0*2* 1 


00  LOOP  Na2,S  Hal, 5 


DEFINE  STATEMENTS  GO  HERE 

*60000*9,3*1  2570  A(N*M)aA(N,M) *DRE*Ol (*** • 2 ILMAX ) 

*60000*12*4*1  2580  B(N,M)a9 (N,M) -ORE* <0l ( , *3 ILMAX) *0U1 ( * *2 ILMAX) 

*60000*9,3*1  2590  C{N,M> «C (N,M) *ORE*OU1 <*,*,3lL*AX) 


000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 
000790 
000800 
000810 
000820 
000830 
000840 
000850 
000860 
000870 
000880 
000890 
000900 
000910 

DU (5  »5 ) »C0*RR ( ♦ • 2 tLMA000920 

000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
001020 
001030 
001040 
0010SO 
001060 
001070 
001080 


• FLOATING  POINT  SAVEVALUES  * 

* * 

«#*#*#«*#*####«***#**•***#*#*#*#*»****«** 


NUMBER  CONTENTS 

VECFP  1 . J, 846927223380c *000 

CLKPO  930621 


NUMBER  CONTENTS 

VEC8Z  9, 9933263653 1 0 OE -0 0 1 


NUMBER  .....  CONTENTS  NUMBER  CONTENTS) 

MAPFP  8, 059 1341 65560 OE-O 07  MAPBZ  9.6709609986800E-002 


1-F-9 


H 32768.16,3,16 

V 0 *0 * 3* 1 * 60000* 9*2 • 1 

V 0,0. 3,1,60000,9, 2,1 
M 0»0»l»l,l, 60000 

V 0,Q»l»t»60000*2Q,2,2 

V 0*0».0, 1.60000*  18. 3,1 

V 0*0»l»l»60000,9»2»l 
H 0t0«-i*l,ti, 60000 

M 0»0*1»1» 1*60000 
H 0»0»1»1»1, 60000 
R 4- 

V 0.0.1.1.60000.20,2(2 

V 0.0,0.1,60000,16,3,1 

V 0,0,2,1.60000,12,3,1 

c 

V 0,0,1,1,60000.20,2,2 

V 0,0,0*1,60000,18,3,1 
R 16 

M 0,0,2,1,6,100 

V 0,0,1,1,600,9,2,2 

V 0,0,2,1,600,12,3,1 
C 

V 0,0,3,1,60000,9,4,1 

V 0,0,3,1,60000,9,4,1 

V 0.0,2,1,60000,9,4,2 
M 0,0,2,1,6,100 

M 0.0,2,1,6,100 
M 0,0,2,1,6,100 

V 0,0,3,1,60000,9,4*1 

V 0,0,3,1,60000,9,4,1 

V 0,0,2,1,60000,9,4,1 

V 0,0,3,1,60000,9,4,1 

V 0.0,3,1,60000,9,4,1 

V 0,0.2,1,60000,9,4,1 
F 

F 

F 

V 0,0,3,1,60000,9,4,1 

V 0,0,3,1,60000,9,4.1 
V-  0,0,3,1,60000,9,4,1 

V 0,0,3.1,60000,9,4,1 

V 0,0,3,1,60000,9,4,1 

V 0,0,3,1,60000,9,4,1 

F 

F 

F 

V 0,0, 3, 1.60000,9, 4,1 

V 0,0,3,1.60000,9,4,1 

V 0.0,3,1,60000,9,4,1 

V 0,0,3,1,60000,9,4,1 

V 0,0,3,1,60000,9,4,1 

V 0,0,3,1,60000,9,4,1 

V 0,0. 3, 1.60000. 15,4,1 

V 0,0,3,1,60000,15,4,1 

V 0,0,3,1,60000,15,4,1 
F 

F 

F 

V 0,0,3,1.60000,9,4,1 

V 0,0,3,1,60000,9,4,1 

V 0,0.3.1,60000,9,4,1 

V 0.0,3,1,60000,9,4,1 

V 0,0, 3, 1,60000, 9, 4,1 

V 0,0,3,1,60000,9,4,1 
M 0,0,2.1,6,100 

M 0,0*2,1,6,100 
M 0,0,1,1,1,60000 
M 0,0,1,1,1,60000 


MOTOR  ROUTINE  000100 

llTO  TZZ»ZZ1*ZZ1*ZZ2*ZZ2  000110 

11T0  SC1S«A8S(TZZ*ZZ3*ZZ3)  000120 

1 1 10  SNOR (*» 1 , *) »0,0  000130 

1190  SQ1*B/SQ1  900140 

01 VJOE  SECOND  PASS  005150 

Y(1)»A*SQ1  000160 

SI (*,*,*) »0,0  000161 

S2(***»*)*0,0  000162 

S3 (*,*,*) »0 , 0 000163 

MAXIMUM  OF  4 ITERATIONS  000170 

X/Y { I ) 000180 

DIVIDE  SECOND  PASS  000190 

Y(I*l)»0,5«(YtI),<X/Y(I) ) ) 000200 

000210 

SCAU«1,/SQRT(SCIS)  000220 

DIVIDE  SECOND  PASS  000230 

U*2,LMAX-1  000240 

MSNOR(*,*)*SNOR<*,L**l  000250 

1210  NSNOfl {*,*) «SNOR (*,L, *) *MSNOR  (*,<* ) *SCAL  000260 
1220  SN0R4<*»L»«> »0,5*(NSNOR[*,*>*MSNOR<*,*>  000270 

000280 

440  TlA»04<*,2lUMAX*l,*)*RLl-Q4<«,*,*>»RL  000290 

450  T1S»Q3  <*,2 1 UMAX* 1 , •) *RL1“Q3 (*,*,*) *RL  000300 
440/450  TlC/0»ZZ2/3t*,2ILHAX*l,*>*ZZ2/3(*,*»  000310 

1140  MAA1 (*, 1,»)  000320 

1140  MAA2(*,*)«ZZ2<*,1*»)  000330 

1140  MAA3<«,*)»ZZ3<4,i»*)  000340 

440  T1E-«T1C«T1A)-<T1D*T1B>  000360 

470  T2A=Q2*ftll-Q2*RL  000370 

440  T1»0,5*TIE  1 480  T2C»ZZ1 (*,<*,“) *ZZl (*, 2 000380 

470  T2E“(T1D*T2A)-(T2C*T1A)  000390 

500  T3E*<T2C*T10)-<T1C*T2A>  000400 

470/500  T2«0.5*T2E»  T3»0.5»T3E  000410 

000420 

REDEFINE  RL  «.  «L1  000430 

000440 

590  TA1»Q4(*,#, 3J JSL*2) *RL1«Q4 (»,»,*) „RL  000450 

600  7A2»Q3!*»«,3J JSL*2)*RLl-Q3t*,*,»)»Rl.  000460 

590  TA»XX  <2) pTAI«XX(3)*TA2  000470 

610  T81aQ2(*,»,3:  JSL*2)*RH-02(»,»,*)»RU  000480 

610  T8*XX(3)*T81*XX(1)*TA1  000490 

630  TC»XX<n*TA2-XX(2)*T01  000500 

000S10 

REDEFINE  Rl  5.  RLl  000520 

000530 


660  TDl»a4(3lKMAX*2,*,»)«RLl-04(*,*,*)*RL  000540 
670  T02*Q3 (3  JXMAX*2,» , *)  «RLl«G3  (*,  *t  *)'°RL  000550 
660  TO»YY (2) *T0i-YY{3)*TD2  000560 
680  TE1»Q2 (3 tKMAX*2, **») «RL  1 -02 (*,*,*) “RL  000570 
680  TE»YY (3) *TE1“YY { 1 ) “TD1  000580 
700  TF*YY (1)*TD2-YY(2>*T£1  000590 
720  S1«S1*0.25“<TA*T0>  000600 
730  S2*S2“0«25*<TB*T£)  000610 
740  S3»S3*0 , 25* (TC*TF)  000620 

000630 


REDEFINE  RL1  6 RL 


000640 

000650 


780  TA1»Q4 (*,31LM2*3l JSL*2) »RL1*Q4  < *, 3 ILM2*  * 000660 
790  TA2*Q3(*»3JLM2,3JUSL*2)*RLI-Q3<*,31LM2,<*  000670 

780  TArXX(2)*TAl-XX (3>*TA2  000680 

800  TB1»02<*,3 JLM2.3I JSL*2I *«Ll-Q2(**3ILM2,#  000690 

800  TB«XX(3J»T81*XX(1)*TA1  000700 

820  rC»XX(l)«TA2-XX(2)*Tai  000710 

10S0  MQ6(*,*)»06(*,1»*)  000720 

1050  MQ 1 l * , * ) *Q i ( * , 1 , * ) 000730 

1120  KM2(»,«,*)3l  000740 

1130  Y0UM<“, *»*>»! .E-3  000750 


1 — F — 10 


F 

F 

F 

V 0,0*3.1,60000*9,4,1 

V 0*0*3*1.60000*9*4,1 

V 0*0, 3*1*60000, 9, 4,1 

V 0*0*3, 1»60000»9*4»1 

V 0*0*3,1*60000*9*4*1 

V 0 ,0*3, 1 ,60000  *9, 4*. 1. 

V 0,0*3,1,60000,15,4*1 

V 0*0*3,1*60000, 1S«4,1 

V 0.0*3*1,60000*15. 4,1 

V 0,0*2*1*60000,9*4*2 

V 0*0*3*1*60000*9*2*1 

V 0*0*3*1*60000.15*2*1 

V 0*0*3.1.60000*9.2.1 

V 0*0*2,1.60000.9, 2,1 
H 0*0*2*1*6*100 

F 

F 

V 0,0*2.1*60000*9*3*2 

V 0 *0 *1  * 1 *60000 *20 *2*2 

V 0*0*0*1*60000*18*3*1 

V 0*0*1*1*60000*20*2*2 

V 0*0*0* 1*60000*18*3*1 

V 0 * 0 1 2 * 1 * 60000*9*3*2 
M 0*0*1*1*1*60000 

R 2 
R 4 

V 0*0*1*1*60000*20*2,2 

V 0*0*0*1,60000*18.3,1 

V 0*0.2.1*60000.12*3*1 
C 

M 0*0*2*1*6*100 
M 0*0*1,1*60000*1 
M 0*0*1*1*60000*1 
C 

V 0*0*1 *1*60000*20*2*2 
M 0*0*2*1*6*100 

V 0*0*2*1,600*15*3*1 

V 0*0*3* 1*600 *9* 2* 1 
'V  0*0*3*1*600,12*3*1 

V 0*0*3*1*600.12*4*1 

V 0*0*2*1*600*9*3*1 
R 2 

R 4 

V 0*0*1*1*600*20*2*2 

V 0*0*0*1*600*18*2*1 

V 0.0*2.1*600,12.3.1 
C 

C 

V 0*0*1*1*600,20*2,2 

V 0*0,0*1,600*18*3*1 

V 0»0*1*1»60000»9*2»1 

R 1 

V 0*0*3*1*60000*15*4*2 

V 0*0*2*1*60000*9*3*1 

V 0*0*3*1*60 000*15*3*1 

V 0*0*3*1*60000. 15*3*1 

V 0*0*2* 1*60000 *9*3* 1 

V 0*0*2*1*60000*9*3*1 

V 0*0*1*1*60000*20*2*2 

V 0*0*0*1*60000*18*3*1 
C 

V 0* 0*3*1 *60000* 15*4* 1 
R 16 

M 0*0*1*1*6*100 

V 0 *0* 0* 1 *600 *9*2*0 

V 0 * 0* 0* 1 *600*9* 1 < 1 
C 

R 5 

M 0*0*1*1*6*100 

V 0*0* 0* 1 * 600, 9*2*0 

V 0*0*0*1*600*9*1*1 
M 0*0*1*1*6,100 

V 0*0*0*1*600,9*2*0 

V 0*0*0*1*600,9*1*1 


000760 

REDEFINE  RL  6 RL1  000770 

000780 

TQ1*Q4<3IKM2.3ILM2**>*RL1-0A (*»3ILM2,*>«  000790 
TD2*Q3OJKM2»3H.M2*«>*ftLl-03<**3tLM2**>*  000800 
TD«YY<2)*T01-YY(3)*TD2  000810 

T£l«Q2<3lKM2,3tl_M2**)*RLl-Q2<**3!!.M2»*)*~000820 


880  T£«YY(3)*TE1-YY(1)4TD1 

900  TFaYY(l)*T02-YY(2)*TEl 
920  S1»S1*0,2S*(TA*TO) 

930  S2»S2*0,25*(T8*TE) 

940  S3«S3*0.25«(TC*TF) 

950  TWI»T1*S1  1 TH2«T2*S2 

9S0  TW1»TW1*TW1*TV(2*TW2 
950  TW»Twi* (T3*T3) * (T3+T3) 

970  Ul *02*02 *Q3*Q3 
970  gl*Ul*Q4*Q4 

1300  MYDU<*,*)aYDU(*,l**) 

SORT  OF  TW  6 UTOT 
I.E.  SORT(X) 

$U1«C*X 

SQlaB/(C*X) 

DIVIOE  SECOND  PASS 
SQ1«8/<C*X)  FOR  UTOT 
DIVIOE  SECOND  PASS 
YU)»A*SQ1 

990  TURMU (**  ***) »0  « 0 
FOR  TW  & UTOT 

MAXIMUM  OF  4 ITERATIONS  FOR  NECESSARY  ACCURAC 
X/Y ( I) 

SECOND  PASS 

Y(I*1)*0,5*<Y(I) *X/Y  H J > 

1040  MTAU(***)aTAS(**l**> 

1410  MTAS<***,*>*TAS<KMa<«.*,*>-l> 

1420  MTAS (***»*) *TAS (KM2 (***  **) ♦ 1 ) 
TASaA8S(S0RT<TW)  1 
UUaSQRT (UTOT) /Q1 

1270  MuU(***)aUU<*,l**> 

1050  TRA1»MQ6*MQ1*MTAU 
1140  TSCIS-MZZ1*MZZ1*MZZ2*M2Z2 
1140  TYM»C*TYM*MZZ3*MZZ3 
1050  TRA1»C*TRA1*RE* ( 1/26, ) 

1050/1140  Y(l)aA*TRAl  ) Y(l)aA*TYM 
SORT  FOR  RA  AND  YM 
MAXIMUM  OF  4 ITERATIONS, 

X/Y ( I ) 

SECONO  PASS  DIVIDE 
Y ( !♦!) ■0,5* (Y ( I) *X/Y ( I) ) 


000830 

000840 

000880 

000890 

000900 

000910 

000920 

000930 

000940 

000950 

000980 

001010 

001020 

001030 

001040 

001050 

001060 

001070 

001080 

001090 

001100 

oonio 

001120 

001130 

001140 

001150 

001160 

001170 

001130 

001190 

001200 

001210 

001230 

001240 

001250 

001260 

001270 

001280 

001290 

001300 

001310 

001320 

001330 

001340 

001350 

001360 


1050  RA  001340 

1140  YM«0.5/SQRT(TYM)  001350 

SECONO  PASS  FOR  DIVIDE  001360 

1250  EXl*SNORA<*,2JLMAX+l,*)-RA(*,2JLMAX*0O136l 
CALCULATION  OF  EXP(EXl)  EXACTLY  AS  DONE  A80VE001362 

001363 
001364 
00 1365 
001366 
001367 
001368 
001369 
001370 
001371 

12*0  YOU( *2tlMAX«l* ) *SNORA*7AS* ( 1 . 0-EXP (E001372 
DO  21  L»2*LM 

MUU (*, *)aUU (**L •*)  001374 

1270  IF(MUU,LT,UMAX(**1«*) ) 001380 

THEN  MUMIN (*»*) »MUU  001390 

001395 

DO  18  La2*LE0GE  001400 

MUU(*,*)aUU(*,L**)  001410 

1290  IF(MLlU.eT.MUMAX)  ...  001420 

THEN  MUMAXaMUU  001430 

MrOU(*,*)»YOU(**L»*)  001440 

1300  BITaMYDU  ,LT,  MYOUM  001450 

IF  (BIT)  THEN  MYDUM  ■ MYDU  001460 


1 -F-1  1 


M 0*0*1,1,6,100 

V 0,0*0,1.600,9,1*1 
M 0*0*1*1.6*100 

V 0,15,0*1 ,600*9, 1,1 

c 

H 15,0,1*1,60000*1 
M 0,2*1,1,60000,1 
M 0,0*1,1,60000,1 
H 0*3*1*1*60000,1 

V 0*0*0,1*60000*9*4,0 

t a 

V 2,0*2,1*60000*9,4*2 

V 3,0*2,1*60000*9,3*1 

V 0*0*2,1,60000,9,3,2 
R 2 

V 0*0*3*1,60000*15*4*2 

V 0*0 *2 *1*60000 *9*3*1 

V 0*0*3*1*60000*15*3*1 

V 0*0*3*1.60000, 15*3.1 

V 0*0*2*1*60000*9*3*1 

V 0*0*2.1*60000*9,3.1 

V 0*0*1*1*60000*20*2*2 

V 0*0*0*1,60000,18,3*1 
C 

R 30 

L 

L 

F 

L 

C 

V 0*0*3*1*60000,15,4*1 

V 0*0*3*1*60000*15*4*1 

V 0*0*2*1*60000*9*4*2 

V 0,0*2*1*60000*9*3*2 

V 0*0*2*1*60000*15*2*2 

V 0*0,3,1*60000*9*4,1 

V 0*0*3*1*60000*15*2*1 

V 0 * 0* 3* 1 * 60000 * 9 *4* 1 

V 0*0*1*1*60000*20*2*2 

V 0*0*0*1*60000*18*3*1 

V 0*0*1*1,60000*20,2,2 

V 0*0*0*1*60000*9,2,0 
T 2 

R 30 

L 

l 

F 

L 

C 

V 0*0*1*1*60000*20*2*2 

V 0*0*0*1.60000*18.3,1 

V 0 « 0*2* l *60000 * 9,3* 1 

V 0,0,3*1*60000*15*4,1 

V 0*0,0*1*60000,9*4,0 

V 0*0*0* 1*30000*9*2*0 
T 2 

R 30 
L 
L 
L 

F . 

F 

L 

C 

R 30 

L 

L 

F 

L 

C 

V 0*0*0*1*60000*9*1*1 

V 0*0,0,1*60000*9,1*1 

V 0*0*0,1*60000*9*2*0 

V 0* 0 » 1 » 1 *60000  * 9*2* 1 


HSNORA(*,*)»SNORA(*»L,*> 

1320  IF  OlT>  THEN  MYHaMSNORA 
MKM2  <***) »KM2 (*,L, *) 

1330  IF  (BIT  > THEN  MKM2»l-1 
18  CONTINUE 

MSNORO <*♦*,*) aSN0R(KM2  (*,*,»>  *2) 
MSN0R1 (*,*,»> aSNOR (KM2 <***,*) *1) 
MSN0R2 (*,*,*)  aSNOR (KM ?(*,*,*) > 
MSN0R3 <*,*»*  > aSNOR (KM2 (*»*»*) -1) 


001470 
001460 
001490 
0Q1S00 
001510 
001511 
001512 
001513 
- 001514 


TBlTl»KM2 (*,***) ,LT,2J  TBIT2aKM2.GT, LEDGE-001520 

001530 

T YM3a (MSNOR 1 *MSNORO ) I TYM1«SNOR2*SNOR001540 

001550 
001560 


1390 

1400  YMlaO,S*TYMl  1390  YH3*0.5*TYM3 

1410/1420  EX1«YM1-RA  6 EX2»YM3-RA 
TWO  EXPONENTIALS  TO  CALCULATE  EX1  t,  EX2 
Ni*EX*(  1/L0G(2)  >*161  KaN/16-l(0R  0) 
(2“»K)*(2**<M/16) 

Q«Q01*F*F+Q00 

PaP01*F*F*P00 

F1»Q*F*P 

F2*S«F»P 

2**FsF1/F2 

DIVIDE  SECOND  PASS. 

60000  8ITSI  SCALAR  UNIT  DOES  64  AT  A TIME. 


1380  BIT*  T8IT1 .0R.T8IT2 

1410  YDUM1*YM1*MTAS*  ( 1 . 0-£'XP<EX  1 ) > 

1420  YOUM3aYM3»MT AS* (1, 0-EXP (EX2>) 
1430/1440  C2»Y0UM-Y0UM1  6 C3*Y0UM3-YDUM1 
1650/1460  OY2sYM-YMl  6 0Y3«YH3-YM 


1470 
1470 
1470 
1480 
1470 

DIVIOE  2N0  PASS 
1480  8M»T8M/TAM3 
1490  SITlsBM.GE. 0 


TAM1*DY2*0Y2»  TAM2a0Y3«0Y3 
TAMlaTAMl»C2*TAM2*C3 
T AM2*0Y2*0Y3* ( DY2*OY3> 
TBM*OY2*C3*DY3»C2 
AM»T  AM1/T  AM2 


001570 

001580 

001590 

001600 

001610 

001620 

001630 

001640 

001650 

001660 

001670 

001680 

001690 

001700 

001710 

001720 

001730 

001740 

001750 

001760 

001770 

0017B0 

001790 

001800 

001810 

001820 

001830 

001840 

001850 

001860 

001870 

001880 

001890 


1S00  8TT»( .N0T.8IT.0R.N0T.BM}  001900 

001910 

AM/8M  001920 

DIVIDE  2ND  PASS  001930 

1510  IF(BIT)  THEN  Y600aYM-0,5* (AM/BM)  001940 


1520  IF ( BIT)  THEN  TQUaYDUM-0 ,25*AM» < AM/BM001950 
1530  T8ITlaYDU.LT.Y0UM!  T8IT2aY600.LT,YM001960 
1530  TBIT3aY600.GT.YM3  « EACH  HALF  DONE  1001970 

001980 

001990 

002000 

002010 

002020 

002030 

002040 

1530  BITlsTBIT1.0R.TBlT2.0P.TBIT3  002050 

002060 

002070 

002080 

002090 

002100 

BITaBlT .AND. .NOT.RITl  002110 

002120 

1550  IF (BIT)  YOUMaYDU  002130 

1560  IF (BIT)  YMs  Y600  002140 

1570  YM  .ST.  MSNOR1  (.  YM  ,LT.  SNOR2  002150 

1570  IF ( . . . ) KM2«KM2*l  002160 


1-F-12 


V 

0,0,1, 1,60000,9,2.1 

1580 

IF ( , , , ) KM2«KM2-1 

002170 

V 

0*0*3.1.56800. 15.4.2 

• 1620 

SNOR  <*» 1J LEDGE,*) «.5*(SN0R  <*. UUEDGE002180 

F 

♦SN0R(*,2*LE0GE*1 

.*))»  1680 

TFIA«FKLEB*SNOR t*. 1 {LEDGE,*) 

002190 

V 

0.0.2.1.58600.15.3.1 

1630 

FFC»K*Q1 ( , 1 iLEOGE, ) »Q6 ( , 1 (LEDGE 

9)  002200 

V 

0.0*2.1.600.15.3. 1 

1640 

Tl»YM*YOUM  6 UOIFF»A8S(UMAX-UMIN) 

002210 

V 

0.0.2.1.58800.9.3.1 

1640 

TW0(*,1«LEDGE»*)»FCC*T1  t.  FFCWK*FC002220 

V 

0.0.0.1.600.9.3.1 

1670 

IF  C YDUM  .GT.  UDIFF*YDUMF) ... 

002230 

V 

0.0.2.1.600,12.3.0 

1670 

T 1 « YM*UD I ff»ud I ff 

002240 

V 

0.0..1  ..1.600, 20.2. 2 

Tl/YOUM 

002250 

V 

0,0,0,1,600,18.3.1 

divide, second  PASS 

002260 

V 

0,0,1,1,58800,9,2,1 

TWO« 

FFCWK* (Tl/YDUM) 

002270 

V 

0,0,1,1.58800.20.2.2 

1680 

T l*$NOR ( , 1 1 LED  » ) /YM 

002280 

V 

0.0, 0. 1 ,58800, 18.3,  1 

DIVIDE  2N0  PASS 

002290 

V 

0,0. 1.1,58800. 9, 2,1 

1680 

fia*fkleb*ti 

002300 

V 

0.0, 0,1. 58800,9, 2,1 

1690 

IF(FIA.GT.IES)  ... 

002310 

V 

0,0. 0,1.58800, 9,2.1 

1690 

THEN  FIA*l.E5 

002320 

V 

0*0,2,1,58800,15,1,1 

1700 

T1»FIA*FIA*FIA 

002330 

V 

0,0,3,1,58800,15,3,1 

1700 

FI»l» 0*5.5* (Tl*Tl) 

002340 

V 

0,0,1,1,58800,20.2,2 

1710 

TWO»TWO/FI 

002350 

V 

0*0,0,1,58800,18,3.1 

OIVIDE  2ND  PASS 

002360 

F 

002370 

F 

EXP(-RA*SNOR) 

002380 

V 

0.0,1,1,60000.9,2,1 

1770 

EXl*-RA*SNOfi 

002390 

V 

0.0,3,1,60000,15,4,2 

002400 

V 

0,0,2,1,60000,9,3,1 

002410 

V 

0,0,3,1,60000*15,3,1 

002420 

V 

0,0,3, 1,60000 ,15,3,1 

002430 

Vi 

,0*0,2,1,60000,9,3,1 

002440 

V 

0,0, 2, 1,60000, 9, 3j1 

002450 

V 

0,0*1,1,60000,20*2,2 

002460 

V 

0,0*0,1,60000*16,3,1 

002470 

V 

0,0,3,1,60000,15,4,1 

1770 

T1»,4*SN0R* ( 1-EXP (EX1 ) > 

002430 

V 

0*0,2*1,60000,9,3,1 

1770 

T2«Q6*Q1*RE 

002490 

V 

0,0*1.1,60000,9,2,2 

1770 

TM1«ABS (T1*T2)  ) 1830  TURMU (*, 

1 f LED002500 

V 

0,0,0*1,30000*9,2,0 

1850 

BIT.TMI.LE. TWO 

002510 

V 

0,0*0,1,30000,9,2,1 

IF (BIT)  THEN  TURMU  » TWO 

002520 

M 

0,0,2*1,6,100 

1910 

SMPvTURMU  { * 1 1 f # ) 

002530 

R 

17 

DO  60  L«2,LMAX 

002540 

M 

0,0,2,1,6,100 

1930 

TUHHS«TURMU(*,L»*> 

002550 

V 

0,0,2,1,600,12,3,1 

1940 

TURMU(*,L,*)*2.0*SMP-TURMS 

002560 

M 

0,0,1,1,1,600 

1950 

60  SMP.TURMS 

002570 

C 

002580 

E 

002590 

• * 

* FLOATING  point  SAVEVALUES  ♦ 

« * 


NUMBER  CONTENTS 

VECFP  ' 7.5499436261100E-001 

CLKPO  1529465 

NUMBER CONTENTS 

MAPFP  1 .963505 132368 OE-O 02 


NUMBER  CONTENTS 

VECBZ  8.5181743077500E-001 


NUMBER-  CONTENTS t 

MAPBZ  3.5302342841 140E-00 1 


1-F-1  3 


H 32768,16,3,16 

LX  ROUTINE 

000090 

F 

tOTDX«DT*DXl 

000100 

R 1 

tOO  1 K*KS1 »KE2 

000110 

R 1 

100  2 JaJSl , JE2 

000120 

R 5 

000130 

M 0.0,1,1,100,1 

IPROTCT  t )■ 

000140 

c 

000150 

V 0,0,2,1*100, 15*2,1 

|P«A*B*C 

000160 

R 2 

tOO  4 N»l,2‘ 

000170 

F 

000180 

F 

000190 

F 

000200 

V 0,0.2,1,101,12*2,1 

tUU»  ( A*B)  *C 

000210 

V 0,1,2,1,101,9,2,1 

ITMPa(A*B-C) 

000220 

V 0,0 .3*1*1 0'l  *15, 3,0 

tTMP«<A*8-C>*TMP>0  -control  vect 

000230 

V O.O.l.l. 100,9,2,0 

1U(I*11-U(I)<0  -CONTROL  vect 

000240 

H 0,0,4, X » 100*25 

1 IF ( ) UII» 

000250 

M 0 » 0 ,4, 1 ,100,25 

lift  ) UII- 

000260 

F 

tuu>  • 

000270 

F 

000280 

V 0,0,2, 1,100,9,2,2 

1 RLMBQ A« A*BSRK»C»0 

000300 

F 

tC«,5*DYl 

000340 

V 0.0. 2.1.100.12. 2.1 

tOYXa<A*B>*C 

000350 

V 0.0.2.1.100.9.4.2 

tUYX«A-BSVYX»C-0 

000360 

V 0.0.3.1.100.12*2.1 

I (W-W»*OZ 

000370 

V 0.0.3.1.100.12.2.1 

1 <U-U)*0X 

000380 

V 0.0.3.1.100.9.2.1 

I VXY*OY*T 

000390 

V 0.0.2.1.100.9.3.1 

IUXY*DY-T 

000400 

V 0.0.3.1.100.9.3.1 

tLM8OA*2*M0 

000410 

V 0.0.2.1.100,12.2.1 

1 (V-V)*DX 

000440 

V 0.0.3.1.100,9.3.1 

it-vyx*oyx 

000450 

V 0,0.2.1,100,9.2.1 

tUYX*OY.T 

000460 

V 0.0.2,1.100,12,3.1 

t-(W-W)  *0YX. 

000480 

V 0.0.3.1,100,12,2,1 

t <*-W)*DX 

000490 

V 0.0,3.1.100,12,2,1 

1 (U«U)»DZ 

000500 

V 0,0.2,1,100,15,3.1 

tT*T-T 

000510 

V,  0,0,3.  1 , 100, 12.2,  1 

t (E-E)*DX 

000540 

V 0,0,2,1,100,12,3,1 

IRK*(T*T) 

000550 

V 0.0,3,1,100.15,4,1 

«S*U*TAU*vf 

000560 

V 0,0,3,1.100,15,4,1 

tDISX»TAU*V*T*T 

000570 

V 0,0,1,1,100,9,2,1 

IF ( 1 ) *A*B 

000580 

R 4 

000590 

V 0,0,2,1,100,9,3,1 

JF  <J) mA«8*C 

000600 

c 

00061.0 

F 

tlFUSHOaO)  GO  TO  25 

000620 

F 

* 11*11*1 

000630 

V 0,0,3,1,98,15,3,1 

}T»P-2*P*P 

000640 

V 0.0. 3.1.98, 15, 3,1 

tT*2*ABS(P) *T 

000660 

V 0,0,1,1,98,9,1,1 

tC*T 

000670 

V 0.0*0. 1,-98, 20, 2, 2 

1 / PASS  1 

000680 

V 0.0,1,1,98,18,3,1 

» / P4SS  2 

000690 

V 0*0, 1,1, 98,9, 1«1 

JG«ABS(T) 

000700 

R 29 

tCH«SQRT(G*A8S) 

. S000710 

L 

t range  reduction 

S000720 

R 5 

S000730 

F 

t scalar  manipulation  of  exponents 

S000740 

c 

S000750 

L 

t 

S000760 

c 

S000770 

R 3 

t R ( 2, 1 ) ■ P/Q  (3.660) 

S000780 

V 0 f 0 • 2v 1 9 96»9v 1 * 1 

JpaPOLY  S Q=POLY 

S000790 

c 

S000800 

V QfOfOf  l998f?0»2t'2 

tRaP/Q 

S000810 

1 -F-1  4 


V 0* 0» 1 t 1 ,98* 18* 3* 1 
ft  2 

V 0*0*0*1*98*20*2*2 

V OiO»l*l*98*18,3»l 

V 0*0*2*1*98*12*2*1 
C 

V-  0,0 *T»  1*98*9* 2*1 

V 0*0*2*1*98*12*3*1 
R S 

V 0*0*3*1*98*15*4*1 
C 

ft  5 

V 0 *0*3* 1 * 98* 15*3*1 

V 0*0*3,1*98*15*2*1 
C 

V 0*0*0*1*98*20*2*2 

V 0*0*1*1*98*18*3*1 

V 0*0*2,1*98*9,3*2 

V 0*0*2, ,1. 98*9*3*2 

V 0*0*3*1*98*15*2*1 

V 0*0,2*1*98*9,2,1 

V 0*0*2*1,96*9*2*1 

V 0*0*2*1,98^15*2*1 
F 

F 

F 

C 

C 

C 

E 


3000820 

I TWO  NEWTON  ITERATIONS  (14. 6D>  S000830 

(X/Y(N>  S000840 

S000850 

|,5*<Y(N)*X/Y(N) ) S000860 

S000870 


{Post  normalization  - eno 

ICOEF«(T*T)*T 

100  K6*l *5 

(Fa  (A»B)*C*0 

(END  OF  FX  SUBR 

IPHOICT  « 

I tA*B)*OD 
IA«(T*C*0) 

i / pass  i 

( / PASS  2 RHOlal/PROlCT 
(UaA*e  S8aC»e 
(WaA«B  S TaC*B 

( u*u*v*v 
|W*W*T 
1EI«».5«*T*T 
(P»A*B*El 

( IF ( J.NE.2)  00  TO  100 
I IF  < J.LT ..JE2)  60  TO  35 
( IF (K .NE.KE2)  60  TO  50 
(4  CONTINUE  END  OF  N LOOP 
12  CONTINUE  END  OF  J LOOP 
(1  CONTINUE  END  OF  K LOOP 
(END 


OF  SORT  S000880 

' 000890 

000900 
000910 
000920. 
000930 
0009*0 
000950 
000960 
000970 
000980 
000990 
001000 
001010 
001020 
001030 
001040 
001080 
001090 
001160 
001190 
001230 
001240 
001350 


• • 

* FL0ATIN6  POINT  SAVEVALUES  * 

• • 


NUMBER  CONTENTS  . 

VECFP  7.734890 14568 O0E*0 01 

CLKPO  2398 


NUMBER * CONTENTS 

MAPFP  2. 34564361 85400E-002 


NUMBER  CONTENTS 

VECBZ  7 . 055696 0 04580 0E»0 01 


NUMBER CONTENTS  I 

MAPBZ  2.2B51781386000E-001 


1 — F —15 


H 32768*16,3* 16  LYI 

R 1 
ft  2 
F 

r 

F 

V 0* 1 * 0* 1*5000*20* 1 ,2 

V 1*2*1*1*90 00*19*3*1 

V 2*0*3*1*5000*15*3*1 

V 0*0 *3* 1*5000 *15*3*1 

V 0*0*2*1*50 00*9*3*2 

V 0*0*2* 1*5000*9*2*2 

V 0*0*3*1*50 00*15*3*1 

V 0*0*3* 1*5000* 15*4*1 
R 6 

M 0.0*1*1.1.100 

V 0*0*1*1*100*9*1*1 

c 

F 

F 

M 0*0*1*1*1*5000 

V 0*0.2.1.5000,9,1,1 

V 0*0*2*1*5000, 12,2*1 

V 0.0*3*1*5000*15,3,1 

V 0*0*2*1*5000*9*2*1 

V 0*0*3*1*5000*15*3*1 

V 0*0*2*1*5000*12*3*1 

V 0*0*3*1*5000*15*3*1 

V 0*0*3* 1*5000* 15*3*1 

V 0*0*2*1.5000,12*3,1 

V 0*0*3*1*5000. 15*3*1 

V 0*0*2*1*5000*9*3*1 

V 0*0*3*1*5000*15.3*1 
R 3 

V 0.0.2*1*5000,12,3.1 
C 

V 0*0,2,1,5000,9,2.2 
R 3 

V 0,0,2,1*5000,12*3*1 
V*  0*0*3,1*5000,15,4,1 

V 0,0*3*1*5000,9,1,1 
C 

V 0*1*0*1*5000,20*1*2 

V 1*0*1,1*5000*12*3*1  . 

F 

R 4 

V 0*0*2,1*5000,15,2,1 
C 

V 0*1*2*1*5000*9,4*2 

V 1*0*2*1*5000*9*2*2 
R 3 

V 0.0*3* 1,5000. 15.4*1 

V 0*0*3*1*5000,15*3*1 

V 0*0. 2*1, 5000. 9.3,1 
C 

V 0,0*3.1.5000.15.3.1 

V 0*0*2* 1*5000,15.3* 1 

V 0*0.2,1.5000*9,3.1 
F 

F 

R 6 

V 0.0.2.1.100,9*3*1 
C 

V 0,0*3*1*100,15*3*1 

V 0,0,2*1*100.9,1*2 
F 

F 

F 

F 

F 


routine 


iVLtl  - SETUP  PORTION 
I SINGLE  QUOTE  n KLEN 
I COLON  • KLEN#JLEN/2 

(Old  oo  8 loop 
?Rhoj» 


18  CONTINUE 
JMISC 

«UI*UI  ETC 


»0L0  DO  10  LOOP 
ISUBR  SI 
IRMU 


IENO  OF  SI 
JOISX  ETC 


i a/rho 

1SU8R  01 A60N 


|£N0  OF  01 AGON 
110  CONTINUE 

tFFU» 


113  CONTINUE 
IVLYI  - SOLVER  PORTION 
\ DOLLAR  * JLEN/2 
ISINGLE  quote  » klen 
» COLON  • KLEN« JLEN/2 


000100 

000110 

000120 

000130 

000140 

000150 

000160 

000170 

000180 

000190 

000200 

000210 

000220 

000230 

000240 

0002SO 

000260 

000270 

000280 

000290 

000300 

000310 

000320 

000330 

000340 

000350 

000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 

000480 

000490 

000500 

000510 

000520 

000530 

000540 

000550 

000560 

000570 

000560 

000590 

000600 

000610 

000620 

000630 

000640 

000650 

000660 

000670 

000680 

000690 

000T00 

000710 

000720 

000730 

000740 

000750 

000770 

000780 

000790 

000800 


1 — F —16 


R 7 

, I CALL  VTRI2  <7  TIMES) 

000810 

M 0*0*1*1*1*100 

0Q0820 

M 0*0*1*1*1*100 

• 

000830 

R 10 

»oo 

000840 

V 0*1*2*1*100*9*3*1 

- 

000850 

V 1*2*2*1* 100*9*1*1 

000860 

V 2*3*0*1*100,20*1*2 

000870 

V 3*4*1*1*100, 18*3,1 

000880 

V 4*0*2*1*100,15.2*2 

000S90 

V 0,,_O  * 3 ♦ 1 * 1 0 0 ,1 5 *3  *1 

000900 

C 

000920 

R 10 

too  JaJSl  »<JE1 

000930 

F 

000940 

V 0*0*2*1*100*9*3,1 

000950 

C 

000960 

C 

t£NO  OF  VTRI2 

000970 

V 0*0*2*1*100*9*2*2 

000980 

V 0*0*1*1*100*9*1*1 

000990 

M 0*0* 1*1*1  * lOO 

001000 

M 0,0*1*1*1*100 

001010 

R 3 

IOL0  00  13  LOOP 

001020 

V 0*0*2*1*5000*15*2*1 

001030 

V 0*0*3*1*5000*15*3*1 

001040 

V 0*0*1*1*5000*9*1*1 

001050 

V *0*0*2*1*50 00*9*2*1 

001060 

C 

001070 

V 0*0*3*1*5000*15*3*1 

001080 

V 0*0*1*1*5000*9*2*1 

t 13  CONTINUE 

001090 

R 2 

JOLD  00  14  LOOP 

001100 

V 0*0*3*1*5000*15*2*1 

oomo 

V 0*0*3*1*5000*15*3*1 

001120 

V 0*0*3*1*5000*15*2*1 

001130 

V 0*0*1*1*5000*9*1*1 

00M40 

C 

001150 

V 0*0*3* 1* SO 00* 15*3*1 

001160 

V 0*0*391*5000*15*2*1 

001170 

V 0*0*1*1*5000*9,1*1 

001180 

V 0*0*3*1*5000*15,3*1 

001190 

V 0*0*3*1*5000*15*4,1 

001200 

V 0,0*3*1*5000*15*2*1 

001210 

V 0,0*3*1*5000*15*2*1 

11*  CONTINUE 

001220 

F 

t A3*0Y1 

001240 

F 

J-CftKNIS 

001250 

R 3 

001260 

V 0,1*3*1*100.15*3*1 

IRMU#DY1*<UI-UI> 

001270 

V 1,0*2*1*100*12*2*1 

I0UPK2«<A-8)*C  ETC 

001280 

C 

001290 

R 2 

001300 

V 0*1,2*1*100,9*2*1 

tau-T*ov 

' 001310 

V 1,0,2,1*100*9*2*1 

tS8C«S8C+A*B  ETC 

001320 

C 

001330 

V 0,0*1*1,100,9*2*1 

ISBC ( I »*) »A*8 

001340 

F 

IF0RTH*0Y1 

0013S0 

y 0,1*3*1*100*15*3*1 

t ( VSQ-VSG) *C*FUSQ 

001360 

V 1,0,3*1*100,15*4*1 

tUSQ-USQ*T*FVSQ 

001370 

V 0,1,3*1,100*15,3,1 

I0Y1#RMU* (WSQ-WSQ) 

001380 

V 0,0,3,1,100,15,3,1 

IOYl»RK*(EII-EII) 

001390 

F 

l-COSTSQ 

001400 

V 1,2,3,1*100*15*3*1 

I RMU« l-COSTSQ) »T*S 

001410 

V 2*3*3*1*100,15*4*1 

|A*FWSQ-0*F 

001420 

V 3*0*2*1*100*9*2*1 

t SBC ( I » 51 *A*8*C 

001430 

F 

tJAODa 

001440 

F 

001450 

V 0*1,0*1*5000*20,1*2 

001460 

V 1*2*1*1*5000*18.3.1 

1 «H0I«1/PR0ICT 

001470 

R 3 

001480 

V 2*0*1*1*5000*9*2,1 

|U»P*RHOI  ETC 

001490 

C 

001500 

V 0*1*3*1*5000*15*2*1 

jU**2*V**2 

001510 

V 1,2*3*1*5000*15*2*1 

|-.S*<T*W**2> 

001520 

V 2*3*2*1*5000*9*3*1 

lEI»P*RHO*T 

001530 

V 3,0*2*1*5000*15*2*1 

|P«A*B«C 

001540 

1 — F — 1 7 


nioo1i3oxni»’i^oni3)oo<»',io<»oo^»3)oi»^^c'n<oi»i^ 


I IF(JS1.LE.2)  001550 

0*0*1*1*1*100  1 P ( 1 ) *P (2)  001560 

3 001570 

0*0*1*1*1*100  ;u*u  etc  ooisso 

' 001590 

0*0*1*1*100*9*1* 1 «V*-V  001600 

IIFU.LT.ILE)  60  TO  253  001610 

0»0*2*ltl 00 *9*2*2  IW»-W  SUi-U  001620 

tIFUADBWL.EQ.O)  001630 

»IF<I.NE,IE)  GO  TO  255  001640 

* 001650 

0 *0* 1 • 1 .1*5000  lU«U  ETC  001660 

001670 

10  001660 

11  001690 

001700 

001710 

1256  CONTINUE  001720 

2 001730 

0*0*2*1*5000*9*2.1  |UP«A*8*C  ETC  001740 

001750 

IIF(I.NE.IE)  GO  TO  70.  001760 

2 001770 

0.0*2*1.5000.9.2.1  |UP*A*8«C  ETC  001760 

001790 

}7o  CONTINUE  -ENO  OF  N«l,2  LOOP  001800 

5 . 001810 

0*  0* 1 1 1 » 1*5000  «RHOX*PROICT  ’ 001820 

001830 

U CONTINUE  -END  OF  1*2* IE  LOOP  001840 

001850 

001860 

5 .001870 

0*0*1*1*1*100  l RHOaRHO  ETC  001880 

001890 

10  001900 

5 001910 

IS.C.  AT  K-KL  001920 

001930 

001940 

0019SO 


FLOATING  POINT  SAVEVALUES 


number  .............contents 

VECFP  1.0262380 171S60E*000 

CLKPD  140233 


NU.M0ER  CONTENTS 

MAPFP  3.2089436825900E-005 


NUMBER  CONTENTS 

VECBZ  9.36826 149681 OOE-OO l 


NUMBER  CONTENTS  I 

MAPBZ’  7,21 37 05 398 460 0E- 002 


1 — F — 1 8 


H 32766* 16, 3» 16 
R 8 

V 0*0»2tlt 1344*9.2*2 

V 0*0*2* It  1344* 9* 2* 2 
C 

R 3 
R 2 

V 0*0*2*1*1344*9*2*2 

V 0*0*2*1*1344*9*2*2 
R 2 

V 0.0*3. 1*1344. 9. 4*1 

V 0*0.3.1*1344*9.4*1 

V 0»0*2*1. 1344.9*2.1 

V 0*0*2*1*1344*9*2*1 
C 

C 

C 

R 2 

V 0*0*2*1*1344*9*2.2 
C 

R 6 

V 0*0*3*1*1344*9*4*1 

V 0»0»2*1. 1344.9.4*1 

C 

V 0*0*2*1.1344.9.3.2 
E 


FFT  'ROUTINE 

00  IS  L*l»16.2 

RLO<L)»RLO<U  *RLO<M) I RLD<M)«RLD(L)-RLD<M> 
YMO (L) «YMQ  <L) *YMD(M) ) YMO (M) »YMO (U -YMO (Ml 
15  CONTINUE 
00  89  I 

00  89  J«1 * 2 (APPROX, ) 

RLD (L> ( RL0(M1 
YMD(L)I  YMO  (Ml 
00  89  K»2. 3 (APPROX) 

TI«YMD(M)*W(1*MM)-rLD(M)*W2(MM) 

TRpRLO (M) *W ( 1 *MM>  *YMO (M) *W2 (MM) 

YMO(M)|  YMO(L) 

RLD(M) | RLD(L) 

89C0NTINUE 


LEFTOVERS  FROM  APPROX. 


H II  It 

II  II  It 


RLO0I  YMOO 


000099 

000150 

000190 

000200 

000210 

,000260 

000330 

000390 

000400 

000440 

000500 

000510 

000520 

000530 

000540 

000550 

000560 

000561 

000562 

000563 

000564 

000565 

000566 

000567 

000570 

000580 


• FLOATING  POINT  SAV£VALUES  * 

* • 


NUMBER  .............  CONTENTS  NUMBER  .............  CONTENTS j 

CLKPO  161m 


NUMBER  CONTENTS  NUMBER  CONTENTS 

VECFP  7.5786540768500E-001  VEC8Z  9.8076699818000E-001 


H 32768*16,3*16  LEGENDRE  TRANSFORM  ROUTINE  (SPCFOR)  000100 
F BEFORE  THIS  ROUTINE  MAY  BE  UTILIZED.  A SINGLE  ELEMENT  GATHER  MUST  000110 
F BE  DONE  ONCE  (AND  ONLY  ONCE  FOR  THE  RUN  OF  THE  ENTIRE  MODEL)  TO  000120 
F MAKE  A MATRIX  OF  LEGENDRE  COEFFICIENTS  WHICH  WILL  BE  WELL  ORDERED  000130 
F AND  CONFORMAL  WITH  THE  MATRICIES  IN  THE  FOLLOWING  ROUTINE.  000140 
F THE  GATHER  ISl  - 000150 
F DO  10  J*1,L«1  (1.23)  000160 
F 00  10  Ial.7  000170 
F DO  10  K«1 .NLATHF/2  (1.26)  000180 
F A(KiI.J)*P(I*J*K>  000190 
F DO  10  M«1,nV£RT  (1.48)  000200 
F TP(M*K*I*J)*A(K*IiJ)  000210 
F A TOTAL  OF  10*000  SINGLE  ELEMENT  GATHERS  (15000  CYCLES)  • 000220 
F IN  A TYPICAL  WEATHER  MODEL  THIS  SUBROUTINE  IS  CALLEO  SOME  75*000  000230 
F TIMES.  MAKING  THIS  INITIAL  INVESTMENT  WELL  WORTH  THE  OPPORTUNITY  OF  000240 
F GETTING  VECTOR  LENGTHS  OF  200  ELEMENTS,  000250 


1-F-19 


M 

0,0.2. 1.23*48 

150 

TASPEC (*, 1 , 1 t7) 

000251 

H 

0.0*2,1*23*48 

160 

TASPEC  ( **2»  1 1 7) 

000252 

M 

0,0,2,1,23*96  ?? 

170 

TASPEC(**3J4.H7) 

000253 

M 

0»1*2»1»23»192 

180 

f ASPEC  (*»5j8»1'I7) 

000254 

V 

1*0*3*1*1344.9.4.1 

200  EVENR(*,1I8,L>. 

000260 

V 

0*0*3*1.1344.9.4.1 

210  ODOR (* » 1 18  *L) 

000270 

V 

0.0.2*1.1344,9.3.1 

220  EVENfl<*,H8,U 

000260 

V 

0.0,2*1*1344.9.3,1 

230  ODOR (** 1 J8 ,L> 

- 000290 

V 

0,0*2*1,1344,9.3.1 

240  EVENS  <4*118, L) 

000300 

V 

0*0.2,1.1344*9,3*1 

250  A6RI0  (*, 1 1 8 , L ! t.  AGRID  (*,9«  16, U 

000310 

F 

000320 

F 

000330 

R 

22 

00  30  U«2*LR1 

000340 

M 

0.0.2.1.11*46 

- 31 

0 TASPEC (».l»ICEllCE*ll) 

000350 

M 

0,0.2,1*11*25 

320  TASPEC (*, 2* ICE 1 1CE*1 1 > 

000360 

M 

0*0*2*1*11*96 

330  TASPECI«,3I4,ICE*ICE*11)  • 

000370 

M 

0*2.2.1.11*768 

3*0 

TASPEC C* *5 « 8* ICE  1 ICE* ID 

000380 

M 

3*0, 1*1*1 .400 

470  6 490  Alt*.*,N*2"U 

000381 

F 

000390 

V 

2*0*3*1*1344,9.4,1 

350  EVENR(*.*.U 

000400 

V 

0*0*3*1*1344,9,4,1 

360  EV£N1(*,*,L) 

000410 

V 

0*0.3*1*1344*9,4*1 

370  000RI*.**U 

000420 

V 

0,0,3,1*1344,9,4*1 

380  OOOK*»*.U 

000430 

Y 

0*0*2*1*1344*9.3,1 

390  EVENfi 

000440 

V 

0*0*2*1*1344*9*3*1 

400  EVEN! {*,*,L) 

000450 

V 

0,0,2,1,1344,9*3,1 

410  0O0R<*»**U 

000460 

V 

0*0*2, 1*1344, 9*3*1 

420  OqDI  (****L> 

000470 

V 

0*3,2,1,1344*9.2*2 

430  6 450  AQRID (* *1 1 8»L> 1 AGRID t *» 9 1 16. 

L'J  000480 

V 

0*0*2*1*1344.9*2,2 

440  4 460  AK*»lt8»U  » A I <*  » 9 1 16»U) 

000490 

V 

0*  0 *2* 1 *1344.9,2*2 

480  6 500  AI (*, 1 1 8 *N*2"L)  » AI (**9l 16.N*2 

-U  000500 

c 

30  CONTINUE 

000510 

F 

000520 

V 

0*0*3*1*1344,9,4,1 

550  EVENR  (.*,♦, LJ 

000530 

V 

0*0*2*1*1344,9*3*1 

560  £VENRt«,*.U 

000540 

V 

0*0*2*1*1344*9*3*1 

570  AGRI0<*.ll8*U 

000550 

F 

000560 

V 

0*0*3*1*29568*9*4*1 

580  EVENR(«,*,2ILR1J 

000570 

V 

0*0 .3, 1 *29568*9.4, 1 

600  EVENK*. *.2tLRl) 

000580 

V 

0*4*2,1*29568*9*3*1 

620  AGR  I0<**U8*2IURl) 

000590 

Y 

0*0*2,1,29568*9*3*1 

640  AI<*ili8,2Jlftl> 

000600 

R 

22 

00  79  L>2  *LR1 

000610 

M 

4*0*1*1*1*200 

67#  AGRI0(**1«8*N*2-L) 

000620 

V 

0 * 0*2*1.672*9,2*2 

660  AI  (*,H8»N*2-L) 

000630 

c 

79  CONTINUE 

000640 

E 

- 

RETURN 

0QO6S0 

• • FLOATING  POINT  SAVEVAUJES 

» 


NUMBER  CONTENTS 

VECFP  I , 13882008 15660E* 000 

CLKPO  61590 

NUMBER  ...... CONTENTS 

MAPFP  1.I203106020S20E-003 


NUMBER  CONTENTS 

VECBZ  9.S4699469S7600E-001 


NUMBER  CONTENTS i 

MAPBZ  5. O836I 23 11 64 00 £"00 1 


1-F-20 


LINKHO 


32768 il6t3«16  LINKHO 

LIN6H0  ROUTINE 


partial  simulation 


Ot  If  Itlt3456*_9,t2fl, 


Of Oflf 1 1 llS2»9i  li  l 


I»0t3*l« 3456* I5f 4t  X 


Of  Ot  lib  76S,9f2»l 


OfOtlfXf 384 ♦ 9t  2* l 


OfOflflf 3456f9»2t 1 


Of  Of  Of  If 384f 9t 2*2 


OfOfOflt  384»  9f 1 f 1 


Of  0 f Ot 1 ♦ 3456 *20*2*2 
0*0*1*1*3456*18*3*1 

0 1 0 f 2t 1 14608? I5f  2f i 
0*0*1*1*4608*20.2*2 
OfOtOflf  4608 1 ldt 3f 1 
0 f 0 f X t X >3456 f 20 1 2>  2 
OfOtOflf 3456 1 18 1 3* X 
8 


000090 

000100 

000110 

000120 

000130 

000140 

000150 

000160 

000170 

000180 

000190 

000200 

000210 

000220 

000230 

000240 

000250 

000260 

000270 

000280 

000290 

000300 

000310 

H00320 

000330 

000340 

000350 

000360 

000370 

000380 

000390 

000400 

000405 

000410 

000420 

000430 

000440 

000450 

000460 

000470 

000480 

000485 

000490 

000500 

000505 

000510 

000520 

000530 

000540 

000550 

000560 

000570 

000580 

000590 

000600 

000610 

000620 

000630 

000640 

000650 

000660 

000670 

000680 


1-F-21 


F 

F 

V 
F 
F 
F 
F 
F 

V 
F 
F 

V 

V 

V 

c 

F 

F 

F 

V 
F 

V 

V 
F 
F 

V 

V 
F 
F 
F 
F 

V 
F 
F 
F 

V 

V 
F 
F 

V 
E 


0 1 0 « 3*  1 *384* 1 5 1 1 f 1 


0*0.3.1*384*15.2* l 


0 *0  * 1 * 1 .384*9*  1*1 
0t0*ltit  384,20  1 2 ? 2 
0*0*0*1.384*10*3*1 


0*0*2*1*3072*12*3*1 

0*0.3.1.3072*15*4*2 

0*0*2*1.3072*9.4*2 


0.0*1.1.3072,20*2*2 

0*0*0.1.3072*18*3.1 


0.0.2*1.384,12.3.1 


0.0. 3*1. 384. 12.2.1 
0*0*2.1*384*12.3.1 


0*0*2*1.384.12.3*1 


000090 
000700 
000710 
000720 
000730 
000740 
000750 
000760 
000770 
000780 
000790 
000800 
000810 
0G0820 
000830 
000840 
000850 
000860 
000870 
000880 
000*90 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
001000 
boioio 
001020 
001030 
001040 
oO 1 050 
001060 
001070 
001080 


« » 

* FLOATING  POINT  SAVEVALUES  * 

• o 


NUMBER  CONTENTS  NUMBER  CONTENTS 

VECFP  1 « 1 34578309 1280E* 000  VECBZ  9. 71 03548979500E-00 1 


NUMBER  CONTENTS  NUMBER  CONTENTS! 

CLKPO  . 16436 


1 -F-22 


DIVISION  2 


THE  THREE-DIMENSIONAL  AERODYNAMIC  IMPLICIT  CODE 


DIVISION  2 


THE  THREE-DIMENSIONAL  AERODYNAMIC  IMPLICIT  CODE 


1.0  INTRODUCTION 

A final  recoding  of  the  Ames  implicit  code  has  been  completed 
with  the  proposed  extensions  under  consideration  for  the  FMP; 
these  extensions  are  included  in  the  FMP  FORTRAN  Manual  (Volume 
III)  and  are  discussed  tutorially  in  Division  1 of  this  volume. 
This  report  presents  coding  strategy  which  was  applied  in 
recoding  the  implicit  algorithm,  to  create  an  awareness  of 
factors  which  affect  performance  of  codes  on  the  FMP.  This  is 
followed  by  a discussion  of  the  recoding  which  was  done. 
Performance  analysis  of  this  recoded  version  can  be  found  in 
Division  1 of  this  volume. 
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2.0  CODING  STRATEGY  FOR  THE  3-D  IMPLICIT  ALGORITHM 


To  achieve  the  optimum  performance  of  the  FMP , the  programmer 
must  be  aware  of  the  two  key  characteristics  of  the  machine 
architecture: 

a.  Memory  hierarchy 

b.  Functional  parallelism 

The  data  content  of  the  larger  production  runs  of  the  3-D  model 
make  it  necessary  to  allocate  portions  of  the  data  base  and 
working  storage  to  each  level  of  the  memory  hierarchy  in  the 
FMP.  For  example,  a 100  x 100  x 100  mesh  would  entail  the 
storage  of  6 million  flow  variables  (Q  matrix) , 3 million 
coordinate  variables  (X,  Y,  and  Z) , and  5 million  intermediate 
results  (S  matrix) . The  expansion  of  this  data  into  working 
storage  areas  for  the  block  tridiagonal  solution  requires  25  x 3 
x VL  elements  for  the  A,  B,  and  C arrays  plus  30  x VL  elements 
for  the  L,  U,  and  F arrays  in  the  BTRI  computation  (VL=vector 
length).  The  engineering  tradeoffs  that  have  led  to  the  current 
design  of  the  FMP  have  dictated  a maximum  main  memory 
configuration  (using  existing  memory  technologies)  of  8 million 
64-bit  words.  Decisions-  must  be  made  as  to  where  each  of  the 
major  portions  of  the  data  in  the  implicit  solution  are  to  be 
retained.  It  does  not  seem  feasible  at  this  time  for  a compiler 
to  be  able  to  make  the  allocation  determinations  automatically, 
thus  the  programmer  must  use  the  LEVEL  statements  to  advise  the 
compiler  (and  the  system)  as  to  the  desired  storage  assignments 
for  each  block  of  data. 

This  becomes  even  more  necessary  as  one  contemplates  the 
creation  of  even  larger  "research”  codes  that  have  meshes  of  the 
order  of  tens  of  millions  of  points,  since  the  third  level  of 
memory  (LEVEL  3)  which  is  made  up  of  block-transfer-only  Backing 
Storage  is  brought  into  play.  The  programmer  must  not  only  be 
aware  of  the  relative  storage  capacities  of  each  memory  level, 
but  also  the  implications  in  using  that  level  of  memory  during 
processing.  The  basic  groundrules  are: 


2.1  MEMORY  HIERARCHY 

2.1.1  MAIN  MEMORY 

a.  Arithmetic  memory-to-raemory  operations  can  only  be 
performed  from  Main  Memory. 

b.  Effective  rates  for  arithmetic  access  in  64-bit 
mode  of  Main  Memory  are  four  sets  of  eight 
operands  transferred  to  the  Vector  Units  every 
machine  clock  cycle,  and  one  set  of  8 results 
stored  back  to  memory  in  the  same  clock  cycle. 

c.  In  32-bit  mode  these  rates  are  doubled  (four  sets 
of  16  operands  input,  one  set  of  16  results). 
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d.  Depending  on  the  operation  being  performed,  one, 
two,  or  three  arithmetic  processes  (ADD,  SUBTRACT, 
MULTIPLY)  can  be  accomplished  per  set  of  operands 
delivered  to  a Vector  Unit,  per  clock  cycle. 

e.  Concurrent  with  vector  arithmetic  the  Main  Map 
Unit  can  achieve  a simultaneous  processing  rate  of 
8 64-bit  input  operands  per  clock  cycle,  while 
storing  8 operands  in  the  same  clock  cycle. 

f.  Single-element  access  rates  to  Main  Memory  for 
scalar  load/store  or  vector  scatter/gather 
operations  are  one  per  clock  cycle. 

2.1.2  INTERMEDIATE  MEMORY 

a.  Data  can  be  mapped  in  blocks  to  and  from 
Intermediate  Memory  at  a maximum  rate  of  8 
elements  every  3 clock  cycles. 

b.  Single-word  access  rates  are  one  element  every  6 
clock  cycles. 

c.  No  memory-to-memory  arithmetic  can  be  performed 
involving  the  Intermediate  Memory. 

d.  Data  transfers  to  and  from  Main  Memory  can  proceed 
at  the  Intermediate  Memory  rates,  and  are  fully 
concurrent  with  all  Main  Memory  activities  listed 
previously  except  other  Main  Map  Unit  operations. 

e.  The  maximum  configuration  of  Intermediate  Memory 
'is  32  million  64-bit  words. 

2.1.3  BACKING  STORAGE- 

a.  Data  can  only  be  transmitted  between  Backing 
Storage  and  Intermediate  Memory. 

b.  Data  can  only  be  accessed  and  transferred  in 
integral  32,768-word  blocks. 

c.  Access  time  per  block  is  negligible  since  a data 
transfer  begins  as  soon  as  a starting  address 
(current  address  within  the  block)  is  transmitted 
to  the  backing  storage  controller  (Swap  Unit), 

d.  Transfer  rates  for  Backing  Storage  can  attain  a 
maximum  of  8 64-bit  words  every  16  clock  cycles. t 
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2.2  FUNCTIONAL  PARALLELISM 


The  memory  system  description  above  indicates  the  degree  of 
concurrency  available  in  the  FMP.  Maximum  performance  of  the 
FMP  is  achieved  by  maximizing  the  overlap  (or  concurrency)  of 
mapping  operations  (needed  to  organize  data  into  efficien-t 
vectors)  and  the  arithmetic  processing.  If  one  examines  modern 
day  scalar  machines  and  FORTRAN  object  code,  a ’’dual”  can  be 
found  to  this  "scheduling”  situation.  Most  high  speed 
processors  today  possess  the  ability  to  engage  in  several 
simultaneous  activities  in  order  to  attain  high  performance.  In 
particular,  the  time ■ required  to  access  a data  element  in  memory 
via  a scalar  load  operation  can  be  overlapped  with  the 
processing  of  other  data  that  had  been  loaded  previously.  A 
great  deal  of  work  has  been  expended  in  compiler  development  to 
maximize  the  automatic  scheduling  of  load,  store,  and  arithmetic 
operations  so  that  the  arithmetic  units  are  not  left  idle,  while 
unnecessarily  waiting  on  the  results  of  a load  operation  to  be 
returned  from  memory. 

This  same  approach  is  used  by  the  programmer  and  compiler  for 
the  FMP.  Data  for  one  set  of  arithmetic  operations  can  be 
"prepared"  by  the  Map  Units  while  the  Vector  Units  are  operating 
on  a previously  aggregated  set  of  data.  The  degree  to  which 
these  processes  can  be  overlapped  determines  the  extent  to  which 
the  Vector  Units  can  be  kept  busy.  The  objective  for  maximum 
FMP  performance  would  be  to  keep  the  Vector  Units  100%  active, 
performing  triadic  operations  at  every  turn.  This  level  of 
activity  would  yield  an  operation  rate  of  1.5  billion  64-bit 
floating-point  operations  per  second,  or  3 billion  32-bit 
floating-point  operations  per  second.  It  is  obvious  that  to 
attain  a sustained  rate  of  1 billion  floating-point  operations 
per  second  in  64-bit  mode,  the  combination  of  hardware, 
programmer,  and  compiler  have  to  maintain  a 67%  efficiency  in 
the  use  of  the  Vector  Units.  Given  the  current  state  of  the  art 
of  compilers,  it  can  be  stated  firmly  that  the  programmer  must 
provide  some  assistance  in  the  statement  of  codes  in  order  to 
achieve  the  requisite  efficiency. 

The  coding  strategy  for  the  3-D  implicit  code  consists  of  the 
following  general  principles: 

a.  Allocation  of  all  flow  variables,  coordinate  arrays, 
and  the  intermediate  (S)  array  to  Intermediate  Memory. 

b.  Reserving  Main  Memory  for  working  storage  and  temporary 
holding  areas  for  data  being  mapped  to  and  from  the 
Intermediate  Memory. 

c.  Backing  Storage  usage  to  be  invisible  for  this  set  of 
metrics,  that  is,  relying  on  the  Operating  System  to 
roll  the  entire  job  in  and  out  of  Backing  Storage  but 
no  explicit  data  transfers  during  program  execution. 
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d. .  Processing  of  "slabs",  "chunks",  or  "pencils"  of  the 

data  base  at  each  step  of  the  algorithm  to  maximize  the 
vector  Lengths  seen  by  the  vector  arithmetic 
operations . 

e.  Slab  sizes  to  be  limited  by  the  available  workspace  in 
Main  Memory. 

f.  Smaller  problems  can  be  run  entirely  in  Main  Memory  as 
a single  slab  but  the  main  program  remains  unchanged, 
provided  declarations  such  as  LEVEL  are  done 
dynamically. 

g.  When  slabs  or  subsets  of  the  major  arrays  are  to  be 
processed,  they  are  explicitly  described  with  subarray 
notation  so  that  this  usage  is  obvious  to  the  reader 
and  the  compiler.  This  means  that  although  the 
compiler  may  be  able  to  discern  a slab  process  from  the 
construct 

DO  10  Js1,JMAX 
DO  10  L=L1 ,L2 
DO  10  K=1 , KMAX  10 
RJ=Q(K,L,6, J) 

the  programmer  should  use  the  explicit  notation 
RJ=Q(*,L:LSL,6,*) 

which  highlights  the  fact  that  a slab  of  Q is  being 
used . 

This  notation  not  only  makes  it  clearer  to  the  reader 
(particularly  in  a complex  DO  loop  of  several  hundred 
lines)  of  the  code  but  the  compiler  can  deal  with  this 
single  statement  as  a single  map  function.  Note  the 
duality  of  this  concept;  in  scalar  mode  the  statement 
at  10  would  result  in  a scalar  load,  while  the  subarray 
statement  generates  a map  operation.  Both  the  load  and 
the  map  may  be  handled  by  the  compiler  in  similar  ways,- 
in  terms  of  scheduling  the  resulting  object  code  for 
efficient  execution. 

h.  Special-casing  of  subroutines  is  used  rather  than 
single,  general-purpose  routines.  For  example,  the 
XXM,  YYM,  and  ZZM  subroutines  contain  data  dependent 
branch  operations  whose  purpose  is  discernable  at  the 
time  the  program  is  being  created.  An  in-line 
expansion  of  these  routines  in  the  STEP  subroutine, 
eliminates  the  need  for  these' branches , sinbe  during 
STEP  the  execution  of  XXM,  YYX,  and  ZZM  is  not  data 
dependent . 
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i.  Solution  algorithms  and  methodology  (other  than  the  use 
of  slabs)  remains  unchanged. 

j.  As  much  as  possible  a line-by-line  congruency  is 
maintained  between  the  original  scalar  coding  and  the 
FMP  vectorized  version.  The  major  exceptions  to  this 
are  the  in-line  incorporation  of  XXM,  YYM,  and  ZZM,  and 

.the  use  of  explicit  notation  for  data  structuring, 
restructuring.,  .and  transformation.  The  heavy  use  of 
the  DEFINE  and  DYNAMIC  FORTRAN  extensions  makes  it 
possible  to  deal  with  the  familiar  scalar  temporaries 
such  as  L11,  L12,...,  and  RJ,RR,U,....  as  temporary 
vectors  (or  arrays). 
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3.0  THE  STEP  SUBROUTINE 

The  most  computationally'  intensive  portion  of  the  implicit  code 
is  found  in  STEP  and  the  called  subroutine  BTRI-.  This  set  of 
programs'  has  therefore  received  the  most  attention  in  developing 
language- extensions  and  compiling  strategies.  The  problem 
restatement  will  be  examined  as  it  impacts  data  movement  -and- 
arithmetic  in  each  of  the-  three  sweep  directions. 


3.1  SLABS 

The  maximum  vector  processing  is  achieved  by'  ensuring  vector 
lengths  of  more  than  1000  elements  so  that  the  effect  of  vector 
startup  time  is  negligible.  It  is  desirable  to  reiterate  here 
that  since  there  are  effectively  8 Vector  Units  (four  units, 
half-clocked),  a vector  of  length  8 would  be  processed  in  one 
clock  cycle,  but  with  a startup  time  of  six  to  nine  cl.ock 
cycles.  The  non-arithmetic  overhead  of  such  an  operation  would 
be  600/6-900%  of  the  arithmetic  processing  time.  At  vector 
lengths  of  1000  or  greater  this  overhead  amounts  to  .6%-. 9%,  or 
less,  of  the  arithmetic  processing  time. 

The  first  problem  then,  is  to  systematically  divide  the  mesh  to 
be  processed  into  chunks  that  can  be  fed  to  the  arithmetic  unit 
as  long  vectors.  Obviously,  if  all  flow  variable  could  be  held 
in  Main  Memory,  the  entire  mesh  could  be  processed  as  a single 
vector.  For  a cubic  mesh  of  N x N x N dimensions,  the  data 
storage  required  would  be 

14*N**3+105*N**2  elements 


where: 


N cubed  is  the  number  of  mesh  points.,  14  the  number  of 
variables  to  be  stored  .per  mesh  point,  105  the  number  of 
temporary  variables  per  vector  element,  and  N squared  is 
the  vector  length  (one  plane  of  the  cube). 

Assuming  an  8 million-word  limit  on  contiguous  high  speed 
storage,  then 

• 14*N**3+105*N**2<8000000 

and  thus  N can  be  approximately  80  and  there  will  still  be  space 
left  for  incidental  working  storage  for  the  solution  process. 

In  such  a case  all  memory  map  opratlons  would  proceed  at  a rate 
no  slower -than  one  element  per  clock  cycle,  and  with  a peak  rate 
of  8 elements  per  clock  cycle. 
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For  meshes  larger  then  80x80x80  however,  the  computational 
variables  must  be  held  in  Intermediate  Memory,  rather  than  Main 
Memory  because  of  the  storage  requirements  for  data  and 
temporaries.  In  this  case. any  map  operations  involving 
Intermediate  Memory  would  run  slower  than  their  counterparts  in 
Main  Memory.  For  example: 

• Main  Memory  to  Main  Memory  map  operation,  8 64-bit  words 
per  clock 

• Intermediate  Memory  to  Main  Memory  map  operation,  8 
64-bit  words  per  3 clocks 

• Intermediate  Memory  to  Intermediate  Memory  operation,  4 
64-bit  words  per  clock. 

In  estimating  performance,  the  problem  arises  as  to  what  mix  of 
data  and  memory  should  be  used.  That  is,  how  much  data  should 
be  stored  in  Main  Memory  and  how  much  in  Intermediate  Memory?  If 
for  example,  a mesh  size  of  85x85x85  were  to  be  processed,  all 
the  flow  variables  could  be  retained  in  Main  Memory  and  the  X, 

Y,  and  Z matrices  placed  in  Intermediate  Memory.  Then  a process 
would  be  coded  for  'slabbing*  of  the  X,  Y,  and  Z from 
Intermediate  to  Main  Memory  as  the  computations  proceeded.  As 
the  mesh  dimensions  change  the  amount  of  inter-memory  mapping 
also  changes,  and  thus  the  performance  rates  change. 

To  simplify  the  estimation  process,  it  was  decided  to  assume 
that  all  meshes  are  held  in  Intermediate  Memory  regardless  of 
size.  If  the  resulting  simulations  show  that  the  performance  of 
the  FMP  on  these  meshes  is  at  least  one  gigaflop  in  64-bit  mode, 
it  is  obvious  that  the  same  problem,  if  held  in  Main  Memory 
only,  would  run  at  least  as  fast. 

To  provide  maximum  overlap,  space  must  be  allocated  in  Main 
Memory  not  only  for  the  slab  being  processed,  but  also  the  next 
slab  of  data  being  mapped  in  from  Intermediate  Memory.  Thus  the 
execution  of  line  930  (from  the  FORTRAN  listing  found  in 
appendix  B,  Division  1) 

RJ=Q (2: KMAX-1 , L: L+LSL-1 , 6 , * ) 

•would  initite  a map  operation  into  a data  area  called  RJ  during 
its  first  pass.  As  soon  as  all  flow  variables  have  been  mapped 
into  Main  Memory  for  the  current  value  of  L,  code  generated  by 
the  compiler  would  perform  the  operation 

RJ'=Q (2: KMAX-1 , L+LSL: L+(2*LSL)-1 ,6,*) 

where  RJ*  is  a data  buffer  area  created  by  the  compiler  and 
invisible  to  the  programmer.  This  map  operation  would  be 
carried  out  during  the  arithmetic  processing  of  the  first  batch 
of  mapped  data.  At  the  next  pass  through  the  loop,  the  pointers 
to  data  area  RJ  would  be  modified  (without  programmer 
intervention)  by  the  object  code  to  point  to  the  new  data  area 
RJ*.  Likewise,  the  pointers  to  RJ'  would  be  modified  to  point 
to  the  original  data  area  RJ. 
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This  activity  is  similar  to  the  technique  used  by  multiregister 
machines  and  compilers  that  "prefetch”  data  into  working 
registers  during  one  trip  through  a DO  loop,  and  move  the  data 
to  a new  register  for  processing  during  the  next  trip  through 
the  loop.  This  "invisible"  allocation  does  impact  the  total 
main  memory  storage  requirement  however,  and  is  a function  of 
the  slab  size.  Inversely,  the  slab  size  is  a function  of  the 
available  memory,  the  three  mesh  dimensions,  and  the  sweep 
direction.  The  allocation  of  slab  space  is  now  examined  for  the 
J-sweep  direction. 

First  a slab  is  made  consisting  of  an  integral  number  of  planes 
(each  consisting  of  JMAX*KMAX  elements)  as  seen  in  figure  1. 
Vector  lengths  then  are  JMAX*KMAX*LSL  elements  where  LSL  is  the 
number  of  planes  in  the  L direction.  Since  working  storage  for 
the  block  tridiagonal  is  105*(vector  length),  1 05*JMAX*KMAX*LSL 
words  of  storage  is  required  for  temporary  data. 

Also,  14*KMAX*JMAX*LSL  words  of  storage  must  be  provided  for  the 
flow  variables  mapped  to  and  from  Intermediate  Memory,  plus  an 
equal  amount  of  storage  for  buffering  the  data  for  the  next  trip 
through  the  loop.  The  gross  requirements  for  Main  Memory  are 
then 


105*JMAX*KMAX*LSL+28*JMAX*KMAX*LSLs133*JMAX*KMAX*LSL 

If  for  example,  JMAX=KMAX=1 00,  then  1,330,000  words  of  data 
would  be  required  for  each  plane  to  be  processed.  Given  a 
somewhat  unintelligent  and  brute  force  data  allocation  to  Main 
Memory,  LSL  would  have  to  be  about  6 in  order  to  fit  the  problem 
within  the  8 million  words  available  in  Main  Memory.  This  would 
give  vector  lengths  on  the  order  of 

LSL*JMAX*KMAX=6*1 00*1 00=60 , 000  elements,  which  is  remarkably 
close  to  the  maximum  size  of  65,536  elements  for  the  FMP.  This 
optimizes  vector  performance  by  minimizing  startup  time  per 
element  in  the  vector. 

The  corresponding  slab  sizes  for  the  other  sweep  directions,  JSL 
and  KSL  are  computed  in  the  same  manner.  Note  then  that  data 
allocation  of  arrays  such  as  RJ  is  different  in  total  size  and 
dimensionality  for  each  sweep  direction  (assuming  JMAX,KMAX,  and 
LMAX  not  identical) . Thus  such  array  variables  necessarily 
become  DYNAMIC  elements  in  this  code. 


2-9 


J=JMAX 


-►  L 


K=KMAX 


00 

10 

20 

30 

40 

50 

□ 

70 

80 

90 

ot 

n 

41 

51 

m 

71 

81 

91 

02 

12 

B 

32 

42 

52 

62 

72 

82 

92 

03 

13 

23 

33 

43 

53 

63 

73 

83 

93 

04 

14 

24 

34 

44 

54 

B 

74 

84 

94 

05 

15' 

25 

m 

45 

55 

65 

75 

85 

06 

36 

46 

56 

66 

76 

86 

96 

07 

B 

27’ 

37 

47 

57 

67 

77 

87 

97 

1 

08  ! 

t 

18 

28 

38 

48 

58 

68 

78 

88 

98 

09 

19 

29 

39 

49 

59 

69 

79 

89 

99 

* I * — 

/ V LSL=2 

/V^  r 

L=1  L=2 


y///$AvJA 


tvj 


v 

Sjx 


ww 


/ 


L=LMAX 


Figure  1.  Storage  Allocation  for  the  X Array  in 
Intermediate  Memory 
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The  first  discussion-  will  be  of.  the  processing  for  the 
left-hand-side  solution,  followed  by  the  subroutines  RHS, 

VISRHS,  and  MUTUR. 

The  computation  of  the  residue  (lines  500  through  680)  has  been 
left  intact,  and  in  place.  The  compiler  is  capable  of 
automatically  vectorizing  this  segment  of  code.  However,  the 
processing  rate  is  limited  by  the  rate  at  which  the  S matrix 
elements  can  be  transmitted  from  Intermediate  Memory  (hereafter 
called  LEVEL  2) . A better  approach  for  this  computation  would 
be  to  embed  the  RESIDUE  calculation  within  SMOOTH,  where  S array 
elements  are  mapped  into  Main  Memory. 

Processing  of  the  flow  variables  in  the  J-sweep  direction  begins 
at  line  730.  Figure  1 gives  the  storage  mapping  of  a specimen  X 
array  of  dimension  10  x 10  x 10  to  demonstrate  the  method  of 
'’slabbing”  the  data.  Elements  -of  the  X array  are  stored 
sequentialy  in  physical  memory  from  00  to  999-  To  improve 
vectorization  the  metric  computation  XXM  is  recoded  in-line  from 
lines  930  through  1100.  Three  intermediate  variables  not  found 
in  the  original  XXM  routine  (XKL,YKL,  and  ZKL)  are  created  to 
hold  the  mapped  X,  Y,  and  Z slabs.  This  becomes  necessary  in 
order  to  minimize  the  number  of  times  map  operations  are 
performed,  as  well  as  to  provide  the  buffer  space  which  holds 
mesh  data  for  the  differencing  operations  (lines  970  through 
1020). 

The  statements 

XKL=X(* ,L-1 :L+LSL, 2: JMAX-1 ) 

' Y-KL=Y(*,L-1  :L+LSL,  2:  JMAX-1  ) 

ZKLsZ(* ,L-1 :L+LSL, 2: JMAX-1 ) 

produce  map  operations  which  are  of  the  "prefetch  and  buffer" 
type  described  previously.  This'  means  that  there  are  actually 
two  buffer  areas  for  each  variable  XKL,  YKL,  and  ZKL,  one  of 
e.ach  "invisible"  to  the  programmer.  Note  that  the  slab  being 
moved  for  these  variables  is  'LSL+2  planes  in  size.  This  is  due 
to  the  need  for  the  adjacent  differencing  used  in  the  metric 
computation.  If  LSL  is  6,  thus  requiring  17  trips  through  the 
loop  (16  trips  for  LSL  planes  and  1 trip  for  4 planes),  then  2 
extra  planes  of  data  will  be  moved  at  each  trip  through  the 
loop.  The  effect  of  this  is  moving  2*17+LMAX  planes  of  data. 

This  extraneous  movement  could  be  reduced  by  explicitly 
programming  the  retention  of  the  LSL+2  plane  before  commencing 
the  next  trip  through  the  loop.  This  would  require  additional 
thought  and  data  movement  in  the  existing  program.  Instead,  the 
brute  force  approach  of  moving  the  extra  data  has  been  taken  to 
keep  the  program  as  similar  to  its  scalar  counterpart  at 
possible.  The  overlapping  of  map  operations  ensures  that  this 
extra  data  motion  is  hidden  by  the  Computations  being  done  in 
the  loop.  The  only  penalty  for  this  technique  then  becomes  the 
initial  overhead  in  getting  the  first  slabs  of  data  ready  for 
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the  first  trip  through  the  loop.  In  the  worst  case  this 
additional  burden  becomes  2*KMAX*JMAX=2000  elements  which  are 
moved  at  a rate  of  8 per  48-nanosecond  period,  or  12 
microseconds  per  sweep  per  trip  (time  step)  through  the  entire 
STEP  subroutine. 

Although. a 10  x 10  x 10  mesh  could  fit  in  Main  Memory,  those 
dimensions  will  be  used  for  -th-i-s-  part  of  the  discussion  while 
referring  to  the  FORTRAN  listing  (appendix  B,  Division  1)  for 
the  metric.  Thus  some  of  the  figures  which  follow  can  be  used 
to  aid  the  illustration  of  the  coding  of  the  J-sweep. 

Therefore: 

JMAX , KM AX , LMAX= 1 0 LSL=2 

Figure  2 shows  the  storage  of  the  XKL  array  after  executing  the 
statement  at  line  940: 

XKL=X(*,L-1 : L+LSL , 2: JMAX-1 ) 

This  statement  becomes  a map  operation  which  can  be  called 
Gather  Record  wherein  LSL+2  columns-  of  KMAX  operands  are 
gathered  JMAX  times.  The  resulting  data  is  moved  to  Main  Memory 
and  appears  as  the  slab  in  figure  2.  Note  that  the  dimension  of 
this  temporary  mesh  is  KMAX*JMAX*(2+LSL) . 

In  statement  970 

XK=(XKL(3:KMAX,2:LSL+1 ,*)-XKL(1 :KMAX-2, 2:LSL+1 ,*))*DY2 

the  entire  slab  is  processed  by  a diadic  arithmetic  operation. 
The  vector  length  for  this  operation  is  JMAX*(KMAX-2)*LSL 
elements.  The  compiler  produces  object  code  which  computes  the 
proper  starting  addresses  for  the  offsets  needed  to  compute  the 
adjacent  differences.  A subsequent  map  operation  is  also 
generated  which  compresses  the  K=1  and  K=KMAX  elements  from  the 
array.  This  operation  proceeds  in  parallel  with  the  arithmetic 
statement  980.  The  result  is  shown  in  figure  3 where  the  final 
slab  of  dimension  (KMAX-2 )*LSL*JMAX  is  stored.  From  this  point 
up  to  statement  1520  all  slabs  processed  are  conformal  and  have 
the  same  dimensions. 
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Figure  2.  The  J-sweep  XKL,  YKL , and  ZKL  Arrays  in  Main  Memory 
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Figure  3.  The  J-sweep  XK,  YK,  and  ZK  Arrays  in  Main  Memory 
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Statements  930,1140  through  1170,  and  1210  perform  gather 
operations  on  operands  in  the  Q matrix.  Figure  4 shows  the 
storage  layout  of  the  Q matrix  in  physical  memory.  Note  that 
element  600  of  the  array  is  the  first  element  in  the  J=2  segment 
of  the  Q array.  This  is  due  to  the  storage  allocation  that 
makes  Q(K,L,1,J)  the  density  component  of  the  flow  variables  at 
the  point  (K,L,J)  in  the  mesh.  Thus  the  statement  (line  930) 

RJ=Q(2 : KMAX-1 , L: L+LSM , 6 , *) 

results  in  a map  operation  that  gathers  KMAX-2  elements  from 
each  column  for  LSL  columns,  JMAX  times.  Figure  5 shows  the 
resulting  slab  as  it  would  appear  in  Main  Memory,  with  each 
element  labled  with  its  original  sequential  storage  location 
within  the  Q array  in  LEVEL  2 memory.  Thus  the  first  element 
moved  from  the  Q matrix  would  be 

RJ( 1 )=Q(2 , 2, 6, 1 ) 

or  element  511  in  the  linear  storage  of  the  array.  Note  that 
the  entire  slab  can  be  processed  as  a single  vector  by  all 
statements  down  to  statement  1520. 

The  effect  of  some  of  the  FORTRAN  extensions  on  this  sequence  of 
code  is  now  examined  briefly.  Statements  930  through  1020  make 
use  of  the  explicit  subarray  notation  described  in  the  extension 
specification  to  define  not  only  the  slab  to  be  processed  but 
also  the  offsets 

( 3 : KM AX . . . 

( 1 : KMAX-2 . . . 

....  3 * LS  L ... 

....  1 :LSL-2. . . . 

necessary  for  the  adjacent  differencing  operation.  The 
variables  RJ,  XKL , YKL , ZKL , XK,  YK,  ZK,  XL,  YL,  and  ZL  are 
defined  as  DYNAMIC.  Thus  they  take  on  the  dimensionality  of  the 
right-hand  expression,  and  their  storage  is  allocated 
dynamically  at  object  time. 

Statements  1030  through  1060  then  compute  with  these  DYNAMIC 
variables  producing  arrays  for  each  of  the  DYNAMIC  ARRAY 
variables  XX(1),  XX(2),  XX(3) , and  XX(4).  In  this  case  the 
DYNAMIC  ARRAY  XX  will  contain  4 sets  of  pointer  information, 
with  dimensionality  established  at  object  time  and  storage 
allocation  also  defined  during  execution  of  the  statements.  The 
DYNAMIC  ARRAY  variable  D(i,j')  is  handled  in  much  the  same  way. 
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Figure  4.  Q Matrix 
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Figure  5.  The  J-sweep  RJ  Matrix  in  Main  Memory 
R J=Q (2 : KMAX-1 ,L:L+LSL-1 ,6,*) 
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At  statement  1270  it  is  necessary  to  insert  an  explicit  DEFINE 
statement 

DEFINE  ( D ( 1 , 5 ) , ( 1 : KMAX-2 , 1 : LSL-2 , 1 : JMAX-2 ) ) 

for  although  all  other  pointer  data  in  the  DYNAMIC  ARRAY  D is 
implicitly  defined  by  the  associated  arithmetic  statements  such 
as 

DC1 ,2)=XX(1)*HDX 

where  XX(1)  is  a slab  (from  figure  5)  of  dimensions  (KMAX-2), 

LSL , and  (JMAX-2),  then  D(1, 2)  takes  on  these  identical 
characteristics.  D(1, 5)  however,  has  not  been  given  any  such 
characteristics,  and  the  desire  is  to  fill  this  variable  with 
scalar  zeroes.  The  DEFINE  statement  explicitly  establishes  the 
necessary  relationships  and  then  statement  1280 

D(1 ,5)  = 0 

performs  the  filling  of  a created  slab  with  the  needed  zeroes. 

Statements  1520,  1530,  and  1540  perform  arithmetic  operations  on 
the  slab  called  RJ.  By  simply  adjusting  the  starting  address 
and  field  lengths  at  object  time,  these  operations  yield  new 
slabs  with  dimensions  ( KMAX-2 )*LSL* (JMAX-2)  without  the  need  for 
any  intervening  map  operations.  The  DO  loops  commencing  at  1550 
and  continuing  through  1650  are  a slight  restatement  of  the 
original  scalar- loops . This  restatement  is  partly  for 
convenience  and  expedience,  and  partly  to  make  visible  the  power 
of  the  DYNAMIC  ARRAY  and  DEFINE  constructs  in  the  FORTRAN 
extensions . 

The  purpose  of  statement  1570  is  the  same  as  1270,  to  assign  a 
-set  of  attributes  to  all  DYNAMIC  ARRAY  elements  B(n,m),  since 
the  dimensionality  is  not  established  implicitly. 

The  purpose  of  statement  1580 

DEFINE  (D1,D(N,M)) 

is  to  establish  the  characteristics  of  a single  DYNAMIC  variable 
D1  so  that  they  can  be  modified  with  offsets  in  statement  1590: 

A(N,M)=-D1(*,*,1: JMAX-2) 

This  is  necessary  since  DYNAMIC  POINTERS  appearing  in  assignment 
statements  such  as  1590  cannot  have  any  modifiers  included,  but 
DYNAMIC  VARIABLES  such  as  D1  can  possess  a modified  set.  of 
subscript  notation  such  as  shown  here." 

The  result  of  these  loops  is  to  establish  25  pointers  in  the 
DYNAMIC  ARRAYS  A,  B,  and  C which  point  to  vectors  of  data 
(KMAX-2)*LSL  elements  in  length.  The  BTRI  subroutine  then 
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operates  on  tnese  vectors  as  it  eacn  were  in  ract  a scalar 
quantity  in  the  original  implicit  code.  In  this  manner  the  BTRI 
algorithm  can  be  kept  intact  as  provided  by  Ames. 

Skipping  to  BTRI  briefly  (line  4120)  this  setting  up  of  the 
input  arrays  is  discussed. 

3-3  BTRI 

The  DYNAMIC  ARRAYS  (pointer  data)  A,  B,  and-  C are  passed  to  BTRI 
through  COMMON.  Notice  that  for  every  pointer  in  A a set  of 
attributes  exists  which  describe  the  vectors  created  in  STEP. 
Each  vector  possesses  three  dimensions  (K,  L,  J).  At  the 
beginning  of  the  L-U  decomposition  the  J=1  element  should  be 
extracted  from  each  vector.  This  is  done  as  in  statement  4300 

DEFINE  ( BUN,  M)  ,B(N,M)  (*,*,D) 

where  a dummy  DYNAMIC  ARRAY  B1  is  created  whose  pointers  each 
point  to  the  J=1  element  of  the  corresponding  B(N,M).  Note  that 
this  is  the  only  construct  wherein  DYNAMIC  ARRAY  pointers  can  be 
redefined.  The  vector  length  of  operations  upon  B(N,M)  would  be 
(KMAX-2)*LSL*(JMAX-2)  elements  whereas  vector  operations  on 
B1(N,M)  would  involve  lengths  of  (KMAX-2)*LSL  elements!  This  is 
the  effective  length  of  most  vector  operations  in  the  balance  of 
the  BTRI  routine. 

This  technique  is  found  again  at  statement  4870  and  beyond.... 

DEFINE  (A1(N,M) ,A(N,M)(*,*,I)) 

In  all  of  the  computations  in  BTRI-  no  map  operations  are 
required,  just  the  recomputation  of  pointers  and  lengths  at 
object  time. 

Other  than  the  operation  on  vectors  rather  than  scalars-,  BTRI 
appears  almost  identical  to  its  scalar  version  in  the  original 
code. 

On  return  from  BTRI.  the  elements  of  the  S matrix  are  updated' 
with  the  tridiagonal  solution  (see  statement  1730) 

DO  24  N=1 ,5 
SI  (N)=F1 (N) 

24  CONTINUE 

where  the  pointer  data  in  the.  DYNAMIC  ARRAYS  SI  and  FI  were 
established  in  statements  870  and  880: 

DO  5 N=1 , 5 ' 

. DEFINE  (FI (N ) ,F( 2: KMAX-1 , L: L+LSL-1 , N,  2 : JMAX-1 ) ) 

5 DEFINE  (SI (N ) ,S (2: KMAX-1 , L: L+LSL-1 , N , 2: JMAX-1 ) ) 
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3.4  K AND  L SWEEPS 


The  memory  mapping  of  arrays  during  the  J-sweep  have  been 
diagramed  in  what  may  seem  excessive  detail.  This  was  done  to 
show  the  basic  organization  of  data  that  is  efficient  for 
processing  by  the  heavily  compute-bound  BTRI  subroutine..  Since 
vectors  are  linearly  stored,  the  statements 

DIMENSION  -A-(  100,  TOO, TOO)  AC*,*,  1)=2*A(*,*,  1) 

would  result  in  the  generation  of  a vector  multiply  operation  of 
length  100x100,  beginning  at  Jsl.  The  statement 

A(*,1,*)=2*A(*,1,*) 

would  result  in  a series  of  J=100  vector  operations,  each  of 
length  100  and 

A(1,*,*,)=2*A(1,*,*) 

would  result  in  a series  of  100x100  scalar  operations  for  all 
K1. 

It  can  thus  be  seen  for  subscript  notations  of 
A(K,L,J) 

that  processes  applied  one  at  a time  to  each  J index  would  yield 
vectors  of  length  KMAX*LMAX.  The  J-sweep  direction  can 
therefore  be  vectorized  with  ease  since  the  ’'natural'*  vectors 
are  already  stored  in  physical  memory  in  the  most  efficient 
way. 

The  K-sweep  is  not  an  efficient  method,  since  vectors  are  stored 
sequentially  beginning  with  K=1,  K=2....,  K=KMAX,  then  for  L=2 
they  continue  in  storage  for  K=1,.,.,  etc.  In  the  K-sweep 
direction  however,  the  interest  is  not  in  vectors  in  the  K 
direction,  but  instead  for  each  K,  a vector  of  length  at  least 
LMAX*JMAX  is  desired.  To  achieve  this  a method  must  be 

contrived  to  ''transpose”  the  data  from  the  flow  and  coordinate 

meshes  so  that  the  LMAX*JMAX  vectors  result.  Using  figure  1 to 
represent  the  original  LEVEL-  2 storage  of  the  X matrix,  figure  6 

then  shows  the  desired  storage  of  the  XJL  array  (slab)  in  Main 

Memory. 
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Figure  6 


The  K-sweep  Matrix  XJL  in  Main  Memory 
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Following  the  previous  representation  of  physically  sequential 
storage  of  data  by  vertical  column,  with  each  vertical  column 
contiguous  by  plane,  figure  6 shows  the  new  positions  of  X array 
elements  as  they  would  appear  in  Main  Memory.  Each  block  in 
figure  6 contains  the  original  sequential  number  of  the  data  as 
it  appeared  in  LEVEL  2 memory.  Mote  that  subscript  axis  (upper  . 
left-hand  corner  of  the  figure)  shows  the  new  directions  implied 
by  the  subscripts  K,  L,  and  J. 

To  achieve  this  transposition,  the  map  operations  of  data  from 
LEVEL  2 memory  must  be  described  differently  than  were  coded  in 
the  first  (J-sweep)  phase  of  this  code.  The  transposition  is 
explicitly  described  by  statements  1900  through  2020,  wherein 
RJ,  XJL , YJL , ZJL , and  the  transposed  arrays  Q1  through  Q5  are 
created.  Taking  the  XJL  map  operation  from  statement  1920 

XJL ( 1 :LMAX, 1 : JSL+1 , K)=X(K , 1 :LMAX, J-1 : J+JSL) 

it  can  be  seen  that  for  every  trip  through  the  loop,  K will  be 
adv-anced  by  one  element.  The  statement  shown  becomes  then: 

"For  each  K,  transfer  a vector  of  length  LMAX*(JSL+2)  to 
the  array  XJL” . 

The  map  operation  called  for  can  be  accomplished  with  a single 
map  function  which  will  not  only  move  the  requisite  vector  but 
will  perform  the  move  for  KM AX  times.  Note  that  this  map 
operation  must  make  single  element  references  to  LEVEL  2 storage 
for  each  element  of  the  vector  in  the  L and  J directions.  This 
requires  6 clock  cycles  per  reference  instead  of  the  3/8  of  a 
cycle  used  for  the  corresponding  map  operations  in  the  J-sweep 
direction.  The  key  to  the  FMP  achieving  its  performance  goals 
is  tied  directly  to  the  ability  of  the  compiler  to  overlap  this 
"slow  transpose”  with  computations.  A rough  estimate  suffices 
to  show  that  for  STEP  this  overlap  is  achievable  in  principle: 

Elements  to  be  moved  from  LEVEL  2 per  mesh  point: 

a.  Q1  through  Q5  = 5 elements 

b.  X,  Y,  Z = 3 elements 

c.  Additional  data  for  adjacent  differencing  = 2/LSL= 
2/6=1/3  element 

d.  SI  through  S5  = 5 elements 

e.  Update  of  SI  through  S5  = 5 elements 

TOTAL 18.3  elements  per  grid  point 

Six  clock  cycles  are  required  per  element  moved  * 6*18.3  =110 
clock  cycles.  The  peak  64-bit  arithmetic  rate  - 24  results  per 
clock  cycle;  thus  in.  110  clock  cycles  the  Vector  Unit  could 
produce  24*110  = 2640  results  maximum,- or  880  results  minimum. 

To  achieve  complete  overlap  of  the  mapping  functions  necessary 
in  the  K-sweep  direction,  then  at  least  880,  or  at  most  2640, 
different  arithmetic  operations  would  have  to  be  performed  on 
each  grid  point  of  the  whole  mesh.  The  heart  of  the  BTRI 
subroutine  itself  yields  many  more  arithmetic  operations  than 
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2640,  so  that  if  the  compiler  can  properly  schedule  the 
respective  map  operations,  almost  all  transpose  operations  can 
be  overlapped. 

Once  the  transpose  operations  are  completed  (by  the  time 
statement  2090  is  reached)  the  resulting  main  memory  slabs  can 
be  proccessed  identically  by.AMATRX,  FILTRY,  FILTRZ,  and  BTRI 
functions  as  were  used  in  the  J-sweep  direction.  These 
functions  are  retained  as  in-line  code  to  maintain  congruency 
with  the  original  scalar  code,  as  well  as  to  permit  the  compiler 
to  perform  more  intelligent  scheduling  of  the  map  operations. 

The  L-sweep  direction  is  handled  in  exactly  the  same  manner  as 
the  K-sweep  with  a transpose  operation  called  out  at  the 
beginning  of  the  loop  and  a transpose  operation  required  for  the 
updating  of  the  Q matrix  in  LEVEL  2 storage  after  computations 
are  complete.  Figure  7 shows  the  corresponding  storage  of  the 
XLJ  array  in  Main  Memory  for  this  sweep  direction.  Note  again 
the  revised  subscript  directions  in  the  upper  left  corner  of  the 
figure.  As  in  the  K-sweep  direction,  once  the  transpose  has 
been  completed  the  computations  on  the  main  memory  slabs  are 
identical  to  those  in  the  J-  and  K-sweep  portions  of  the  STEP 
code . 

Two  major  differences  should  be  noted  however.  One  is  the 
retention,  of  the  originally  mapped  Q array  data  in  a main  memory 
buffer  until  it  is  updated  in  statements  3980  through  4080.  The 
other  is  the  retention  of  the  Q1  through  Q5,  D(1,1)  through 
D(1, 4),  and  ZZ(1)  through  ZZ(4)  temporary  arrays  for  use  in 
VISMAT  so  that  no  additional  map  operations  are  required  in  that 
routine. 

The  transpose  operation  in  the  L-sweep  direction  proceeds  at  the 
same  rate  as  the  simple  map  operations  i-n-  the  J-sweep  portion  of 
the  program.  At.  a maximum,/ 8 elements  are  moved  every  3 clock 
cycles  (see  description  of  gather  in  section  2.1.3,  Division  1, 
this  volume).  This  is  16  times  faster  than  the  single-element 
transfers  required  for  the  K-sweep  direction.  Thus  only  165 
arithmetic  operations  are  required  to  ensure  overlap  of 
processing  in  the  Vector  Unit  and  Map  Unit  for  those  sweeps. 

This  number  of  vector  operations  is  much  less  than  the  nearly 
4000  operations  that  appear  in  each  sweep  direction  in  STEP. 
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Figure  7.  The  L-sweep  Matrix  XLJ  in  Main  Memory 
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4.0  THE  RIGHT-HAND  SIDE  COMPUTATION 

The  "slab”  technique  used  in  the  left-hand  side  computation  is 
not  as  efficient  in  machine  usage  when  employed  for  the 
right-hand  side  (RHS)^  The  major  reason  for  this -is  that  the 
amount  of  arithmetic  computation  required  for  the  right-hand 
side  is  substantially  less  than  that  needed  in  the  left-hand 
solution,  and  data  mapping  f.or  the  right-hand  side  becomes  the 
governing  commodity  in  the  calculation  rate. 

As  an  example,  assume  that  the  throughput  rate  for  the 
right-hand  side  is  limited  to  the  map  rate  for  the  data  to  be 
used  for  computations.  The  data  to  be  moved  would  be 

a.  3 X,  Y,  Z quantities 

b.  5 Q mesh  quantities 

c.  5 S matrix  quantities  (moved  back  to  Intermediate 
Memory) 

for  the  first  (L  direction)  pass.  In  order  to  provide  the  data 
for  the  adjacent  differencing  needed  in  me-tric  calculations,  2 
additional  planes  of  data  must  be  moved  for  each  slab.  Thus  if 
a slab  consists  of  6 planes,  then  2/6,  more  data  is  moved  than  is 
required  for  the  final  computation.  This  extra  data  is  moved 
from  the  X,  Y,  and  Z meshes,  so  that  3*2/6  = 1 more  element  of 
data  oh  the  average  needs  to  be  moved  per  mesh  point.  I-n  the 
first  pass  then,.  3 + 6 + 5 + 1 =15  elements  are  moved  per  mesh 
point  calculated  on.  The  time  needed  to  move  this  data  from 
Intermediate  Memory  is 

15*3/8  clock  cycles  = 6 clock  cycles  per  mesh  point. 

For  the  second  pass  (K  direction)  the  15  data  elements  already 
described  must  be  moved  plus  retrieving  the  intermediate'  S mesh 
elements  for  a total  of  15  + 5 = 20  elements.  The  rate  for  this 
move  is  the  single-element  map  rate  of  one  element  every  6 
cycles.  Thus  the  per-point  cost  of  mapping  is 

20*6  = 120  clock  cycles. 

The  third  pass  (J  direction)  requires  the  transfer  of  20 
elements  at  the  gather-record  rate  of  3/8  elements  per  clock 
cycle.  The  cost  of  this  map  per  mesh  point  then  is' 

20*3/8  = 8 clock  cycles. 

The  total  number  of  cycles  committed  to  data  mapping  for  the 
right-hand  side  (excluding  viscosity  calculations)  is  ' 

6 + 120  +8  = 134  clock  cycles  per  mesh  point. 

A quick  count  of  the  floating-point  operations  for  the 
right-hand  side  shows, that  a total  of  221  operations  are 
performed  per  mesh  point.  If  64-bit  mode  only  is  assumed,  the 
rates  for  the  Vector  Units  ar.e 

1-  arithmetic  operation  = 8 ops  per  clock  cycle  = .5 
gigaflop, 
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2 arithmetic  operations  = 16  ops  per  clock  cycle  = 1 
gigaflop, 

3 arithmetic  operations  = 24  ops  per  clock  cycle  =1.5 
gigaflops. 

The  number  of  clock  cycles  needed  to  process  the  221  operations 
required  per  mesh  point  for  the  various  gigaflop  rates  are 

221/8  = 28  cycles  for  a .5  gigaflop  rate, 

221/16  = 14  cycles  for  a 1 gigaflop  rate, 

221/24  = 10  cycles  for  a 1.5  gigaflop  rate. 

Note  that  it  takes  134  cycles  just  to  move  the  data,  but  only  28 
cycles  (at  worst)  to  compute  with  it.  The  right-hand  side  is 
thus  Map  Unit  bound.  Thus  the  gigaflop  rate  for  this  processing 
method  is 

GIGAFLOP  RATE  = NUMBER  OF  OPS/ (NUMBER  OF  CYCLES*16.) 

for  a 1 6-nanosecond  clock  cycle. 

RATE  = 221/(134*16)  = .103  gigaflops. 

This  is  clearly  much  less  than  the  1 gigaflop  rate  objective  for 
the  FMP,  and  even  when  combined  with  the  left-hand  side 
computation,  the  RHS  acts  as  a major  constraint  on  the  implicit 
code  performance. 

The  best  solution  to  this  dil.emma  is  to  recode  the  right-hand 
side  to  reduce  the  amount  of  data  mapping  necessary.  The  key  to 
this  approach  is  that  there  is  no  recursive  relationship  between 
the  data  used  at  each  pass.  Therefore  it  is  possible  to  map  a 
complete  slab  from  Intermediate  Memory  (see  figure  8)  and 
process  all  three  sweeps  for  that  slab.  Not  only  does  this 
reduce  the  number  of  data  transfers,  but  the  single-element 
gather  operation  is  eliminated. 
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Figure  8.  Right-hand  Side  X Array  in  Intermediate  Memory  - 
Matrix  XJL  Shown  Before  Move  to  Main  Memory 
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Lines  260  through  1430  of  the  RHS  listing  (found  in  appendix  C, 
Division  1)  give  the  major  DO  loop  wherein  the  slabs  are  moved 
along  the  J direction.  Note  that  9 elements  are  moved  to  Main 
Memory  and  the  slab  of  S array  is  retained  there  until  all 
updates  are  complete,  then  mapped  back  to  LEVEL  2 memory  at  the 
completion  of  each  pass  through  the  RH  loop.  To  reduce  map 
operations  the  choice  was  made  to  process  all  data  for  points  at 
K = 1,  K = KMAX  and  L = 1,  L = LMAX  even  though  the  operations 
are  meaningless..  Thus  in.  a 1.00x1-00x1-00  mesh-  t-hds  method  will 
have  passed  over  40,000  extra  data  elements  that  need  not  be 
processed.  This  is  an  added  burden  of  4?  on  the  number  of 
computations  against  a benefit  of  more  straightforward 
programming  which  results  in  fewer  (slower)  map  operations.  Note 
that  when  the  S matrix  is  mapped  back  to  LEVEL  2 memory,  the 
unneeded  data  points  at  K = 1 , KMAX  and  L = 1 , LMAX  are 
discarded . 

The  computation  rate  for  this  approach  is: 

9 elements  mapped  into  Main  Memory 

5 S elements  returned  to  LEVEL  2 memory 

1 element  per  mesh  point  moved  as  an  extra  for  adjacent 
differencing 

15  elements  at  8/3  element  moved  per  cycle  = 6 cycles  per 
mesh  point 

A glance  at  the  arithmetic  rates  given  previously  for  the  FMP 
Vector  Units  shows  that  if  a way  can  be  found  to  achieve  the 
maximum  of  1.5  gigaflops,  10  clock  cycles  per  mesh  point  will  be 
required. for  computation.  Obviously  the  6-cycle  map  time  can  be 
completely  overlapped  by  the  computation  (assuming  a smart 
compiler  can  schedule  the  object  code) . 
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5.0  RIGHT-HAND  SIDE— VISCOSITY  AND  TURBULENCE  COMPUTATIONS 


The  right-hand  side  calculations  are  complicated  somewhat  by  the 
inclusion  of  two  subroutine  calls  which  have  been  retained  in 
the  recoding  for  the  FMP— VISRHS  and  MUTUR. 

The  restructuring  of  this  code  needed  for  the  FMP  consists  of 
bringing  the  large  slabs  from  Intermediate  Memory  in  the  most 
efficient  form  possible  (minimal  memory  conflicts  during  the 
gather  operation)  . 

5.1  VISRHS  . 

With  the  storage  algorithm  chosen  for  the  flow  variables  and 
X,Y,Z  data  (the  'L  sweep  direction  proceeds  along  the 
FORTRAN-stored  "rows"  of  data)  , this  means  that  the  maximum 
length  of  vectors  for  many  calculations  in  VISRHS  are  no  more 
than  column  length  of  the  flow  mesh  --  KMAX  elements. 

To  improve  the  processing  rate  of  the  FMP  for  this  computation, 
VISRHS  (viscosity  calculations)  contains  a transpose  operation 
on  the  U,  V,  and  W arrays  that  were  generated  in  the  RHS 
subroutine.  The  time  required  for  the  three  key  transpose 
operations  is  offset  by  the  ability  to  process  vectors  of 
KMAX*JSL*LMAX  elements.  With  no  recursion  in  VISRHS,  this 
technique  permits  maximum  vector  performance  for  the  FMP. 

If  the  parameter  LAMIN  is  not  equal  to  zero,  the  turbulence 
model  MUTUR  is  called.  This  routine  offers  some  programming  of 
interest  since  there  are  both  explicit  recursion  and  data 
dependent  IF  branches  involved  in  that  routine. 

5.2  MUTUR 

The  computations  found  in  MUTUR  are  a "mixed  bag"  for  the 
effective  use  of  the  FMP.  It  was  decided  that  transposition 
operations  on  all  the  necessary  meshes  in 

MUTUR— ZZ, XX,  YY,  RR,Q1 ..  .Q6 — was  too  expensive  to  undertake  for 
the  performance  returned  in  the  vector  arithmetic  operations. 
Thus  the  meshes  were  left  in  their  original  orientation.  This 
means  that  vector  lengths  will  be  as  small  as  KMAX  elements.  The 
first  approach  to  conversion  consisted  of  changing  the  program 
into  a rational  form  for  the  STAR  compiler.  This  involved  the 
replacement  of  the  three-dimensional  array  references  with 
four-dimensional  array  references.  The  use  of  the  compound 
variable  KL  is  thus  eliminated.  Appendix  A is  a listing  of  the 
original  MUTUR  code  but  with  KL  eliminated. 

Once  this  variable  was  removed  the  intent  of  the  code  is  .more 
obvious  to  the  reader  and  to  the  compiler.  Evaluation  of  the 
resulting  program  by  an  FMP  FORTRAN  compiler  could  possibly 
yield  optimal  results.  However,  to  make  clear  the  probable 
restructuring  done  by  either  programmer  or  the  compiler,  the 
choice  was  made  to  recode  the  problem  using  extensions  provided 
by  the  proposed  FMP  FORTRAN. 


CL'S 
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The  next  step  was  to  recode  as  many  statements  as  possible  in 
the  subarray  form.  It  became  obvious  that  the  subscripts  and 
loops  at  the. beginning  of  MUTUR  could  be  replaced  by  an 
’’unrolled”  form  found  in  lines  430  through  990  of  appendix  B, 
the  recoded  MUTUR.  These  statements  yield  vectors  of  length 
KMAX*LMAX*JSL,  despite  the  fact  that  there  are  offsets  in  the 
subscripts  of  +1  and  -1  for  all  three  dimensions.  A feature  of 
the  FMP  is  its  ability  to  discard  results,  under  the  guidance  of 
a bi-t-by-bit  control  vector.  In  this  case  the  compiler  is 
capable  of  discerning  the  fact  that  Q3(3:KMAX+2,*,*)  will 
involve  only  adjustment  of  starting  addresses  and  discarding  of 
results  later.  Thus  the  length  of  the  operation  will  be 
KMAX*LMAX*JSL  although  the  useful  results  will,  in  the  final 
output,  be  (KMAX-2) *(LMAX-2)*JSL  elements. 

The  presence  of  IF  statements  in  original  FORTRAN  source  code 
usually  causes  some  difficulty  in  the  vectorization  process.  In 
MUTUR  there  were  four  different  classes  of  IF  statements,  each 
of  which  has  to  be  resolved  by  analyzing  the  intent  of  the 
code . 

1)  The  first  class  of  IF  statement  in  MUTUR  was  apparently  used 
to  reduce  source  and  object  code  computation  of  arrays  TA, 
TB,  TC....  through  manipulation  of  subscripts  and  a one-time 
looping  back  to  recompute  a new  set  of  values.  This  was 
resolved,  as  discussed  previously,  by  unrolling  the  loop 
into  statements  430  through  990.  Although  unrolling  of  the 
loop  requires  a greater  allocation  of  object  code,  the 
intent  of  that  sequence  seems  to  be  clearer  in  the 
restructured  version  (see  appendix  B) . 

2)  The  second  class  of  IF  statement  is  used  to  identify  and 
‘ locate  the  maximum  and  minimum  elements  of  arrays  UU  and 

YDU.  The  replacement  construct  shown  in  lines  1260  and 
1270 

DO  21  Ls2,LM 

21  IF ( UU  (*,L,*) .LT.UMIN(*, 1 ,*))UMIN(*, 1 ,*)=UU(*,L,*) 

creates  object  code  wherein  a control  vector  is  generated 
for  every  J,K  element  at  the  position  L in  the  matrix,  with 
a one  representing  the  fact  that  the  particular  K,L,J 
element  of  UU  is  less  than  the  corresponding  element  in 
UMIN.  The  entire  statement  21  then  causes  a replacement 
(using  the  Map  Unit)  of  all  UMIN  elements  by  new  minimum 
values  where  indicated  by  the  control  vector.  A slight 
modification  in  the  source  statement  would  have  instead 
generated  the  machine  instruction  Q8SMIN  (minimum  of  vector 
X): 


DO  21  L=2 , LM 

21  IF(UU  (*,L,J) . LT . UMIN ( * , 1 ,J))UMIN(*,1,J)=UU(*,L,J) 

where  the  maximum  would  be  evaluated  for  vectors  of  length 
KMAX.  If  the  position  of  the  minimum  element  is  desired, 
the  programmer  must  invoke  the  'Q8  IN-LINE’  construct  that 
permits  direct  access  to  the  hardware  from  the  FORTRAN 
compiler.  Thus  the  previous  example  would  become 
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DO  21  L=2,LM 

2.1  CALL  Q8SMIN(UU(*,L,  J)  , UMIN , MINPOS) 

In  this  case  the  parameter  MINPOS  will  be  returned  with  the 
index  of  the  minimum  element  in  array  UU. 

Examination  of  the  MUTUR  code  showed  that  the  maximum'  length 
for  the  minimum  function  under  these  circumstances  would  be 
KMAX  elements.  By  using  the  control  vector  and  processing 
planes  of  data,  the  maximum  and  minimum  functions  can  also 
be  accomplished,  but  at  a much  higher  performance  level. 

In  lines  1280  through  1330  the  control  vector  is  generated 
for  a plane  of  the  meshes  at  each  L and  then  used  to 
suppress  or  permit  the  movement  or'  insertion  of  data  into 
the  arrays  YDUM,  YM,  and  KM.  This  control  vector  use  is 
performed  solely  by  the.  Map  Unit,  while  the  generation  of 
the  control  vector  requires  the  use  of  the  Vector  Units  to 
accomplish  the  arithmetic  compare  operations. 

Note- that  in  line  1330  a single  scalar  is  broadcast  to  all 
elements  of  KM2  where  permitted  by  the  control  vector.  The 
construct 

IF  (BIT) 

where  BIT  is  defined  to  be  of  type  BIT,  will  normally 
generate  control  vector  operations. 

.3)  The  third  class  of  IF  statement  appears  to  have  the  same 
function  as  that- of  the  second,  that  is,  the  selective 
insertion  of  data  into  meshes  under  the-  control  of  some 
conditions  of  interest.  This  class  becomes  converted  to 
control  vector  operations  as  shown  in  statement  1490  through 
1560  and  also  in  statements  1570  and  1580  .(although  less 
obvious  in  this  latter  situation) . A bit  vector  BIT  is 
generated  at  line  1380.  It  is  then  combined  in  a logical 
operation  with  another  bit  vector  generated  at  line  1490 
resulting  in  a new  BIT  at  line  1500.  This  new  BIT  is  thence- 
used  to  control  the  modification  of  corresponding  elements 
of  YMM  and  YOU  in  statements  1510  and  1520.  ' Note  that  in 
this  case  the  arithmetic  is  performed  for  all  elements  of 
YM,  AM.,  BM,  and  YDUM  but  results  are  stored  into  the  result 
vector  only  where  permitted  by  the  control  vector.  Since 
this  .is  a data  dependent  operation,  estimation  of  processing 
rates  is  difficult.  In  the-  analysis  of  the  simulation 
results  (see  Division  1)  this  will  be  dealt  with  for  MUTUR 
by  providing  three  possibilities  for  the  contents  of  the 
control  vectors’ — 0%,  50%,  and  100%  density  of  permissive 
bits.  The  processing  rate  range  can  then-  be  determined  for 
this ’portion  of  the  code. 

4)  The  final  IF  statement  class  is  similar  also  to  the  last 
two,  but  has  one  additional  area  for  caution  and  analysis. 

In  this  case  (lines  1840  through  1860)  elements  of  TURMU  are 
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to  be  set  depending  upon  the  position  of  a crossover  point 
in  the  values  of  TMO'  and  TMI . Until  the  crossover  point  is 
reached  data  is  to  be  moved  from  TMI,  and  after  the 
crossover,  data  is  to  be  moved  from  TMO.  In  this  particular 
situation,  analysis  shows  that  all  elements  of  TMO  and  TMI 
have  values  which  are  on  the  proper  side  of  the  crossover 
point.  That  is,  elements  1 through  n of  TMI  will  all  be 
less  than  their  counterparts  in.  TMO...  If  n is  chosen  as  the 
crossover  point  then  it  can  be  said  that  all  elements  from  n 
to  LMAX  of  TMO  will  be  less  than  those  in  TMI.  It  is  this 
fact  that  allows  simply  replacing  the  IF  statements  with  a 
control  vector  operation  which  will  place  the  correct  TMO 
and  TMI  elements  in  TURMU. 

If,  however,  the  positional  relationship  of  TMO  elements  and 
TMI  elements  did  not  hold  on  both  sides  of  the  crossover 
point,  a form  of  recursion  exists  which  requires 
manipulating  the  control  vectors  to  produce  the  proper 
’mask'  for  movement  of  data. 

Because  of  recursions  like  that  in  lines  1920  through  1950  it 
has  been  necessary  to  retain  the  DO  loops  in  L and  to  process 
planes  of  data  at  each  point  L.  The  maximum  vector  length  in 
all  of  the  recursive  portions  is  thus  KMAX,  although  the 
compiler  does  generate  all  .of  the  necessary  vector  operations  in 
the  J direction,  automatically.  No  gather  operations  are 
indicated,  as  the  Map  Unit  expense  would  overshadow  the  value 
that  longer  vectors  in  arithmetic  might  have. 
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APPENDIX  A 


ORIGINAL  MUTUR  ROUTINE 


c 
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SUBROUTINE  MUTUR 

COMMON/0ASE/NMAX* jMAX,KMAX»LMAXt jMf KM*LM»OT,GAMHA»GAMl .SMU.FSMACH 
1 ,OXl,OYl.DZl,ND,N02.FV(5>»PO<5>  .HO, ALP. GO .OMEQAiHDX *HDY .HQZ 
2,RM,CNBR.PI,ITR,INVISC,LAMIN,NP,INT1,INT2, INT3 
COMMOM/GEO/NB1 ,NS2*PFRONT,RMAX,XR,XMaX,OPAO.OXC 
COMMON/REAO/IREAD, IWRIT.NqRI 
COMHON/VIS/REtPR.RMUE.RK 
COMMON/VARS/Q ( 720  .6, 30 ) 

COMMONAVARO/S (720,5,30) 

COMMON/VAHl/X(720.30> .Y(?20t30> .2(720.30) 

COMMON  /VAR3/PU20O01  .XX(60,4>  ,YY(6Q,A)  ,ZZ160,4> 

LEVEL  2.Q»S.X,Y,Z 
COMMON/COUNT/NC  *nci 

CQMMQN/8TRI0/A (60,5, 5} ,8(60,5.5) ,C(60,5.5) .0(60,5.5) ,F(60,SJ 
COMMON  TURMU(720*30) 

OIMENSION  TAS ( 60) ,UU(60) ,SNOR(601 ,TMO(60) tTMI (60) .S5(60) .56(60) , 
l U160) iV(60) ,W(6Q) *E(60) ,RR(60> 

EQUIVALENCE  (P(l,l>  . TAS ( 1) 1 , (P ( 1 .2)  «UU( 1) > , (P<1«3)  .SNOR(l)) 

♦(P(l.A)  |TM0(1)),(P(1,5)  fTMI(D)  , (P(I,6J  *S5  ( l)  ) , 

* (P ( i ,7)  • S6 ( i ) ) ♦ (p ( i .8)  tuun«(P(i.9)  *vu)),cpu»io)  .wan, 

*(p(i,ii)  tEaj ) »<pu«i2j  , rr a ) i 

DATA  F 27. LEDGE/ 1,6, 25/ 

0 ATA  FK , FKK , YDUMF/0 .4,0.0168,1,0/ 

OATA  FKLE8/0.3/ 

CALCULATE  TURBULENT  VISCOSITY 

DO  80  0 > 2,JM 
00  80  K i 2, KM 

IZH  COMPUTATIONS  ELlMlNATEO*ZZ  RETAINED  FROM  RHS  CALCULATIONS 

CALCULATE  VORtlClTY  TAS (L)  AND  TOTAL  VELOCITY  UU(L) 

00  11  L' * L.LM 

RU  - l«/ti(KtL«l.l*J) 

RL  * l./Q<K,L*l,J> 

T1  a ,5»(  (ZZ(L*lt2)*ZZ(Lt2n*(Q(K.L*l,4,j)*RLl-Q(K,L,4,J)*RL) 

I -<2Z<L*i»3)*ZZ(Lt3) ) *(Q(K.L*1,3.J)*RL1-Q(K.L.3.J)*RU  1 
T2  a ,5*( (ZZtL*l*3)*ZZ(L,3))*(Q(K.L^i,2.J)*8Ll-Q(K,L»2tJ)*RL) 

1 -IZZ(L*l»l)*ZZ<Ltln*<Q<KtL*lt4.U)*RLl-Q<KtL»4,J)*RL]  > 

T3  * ,5*aZZ(L*l»l>*ZZ(L,l))*(Q(K,L»l»3.J)*RLl*Q(K.L.3,J)*RU 
1 -(ZZ<L*1»2)*ZZ(L»2) )*(Q(K,L^1,2.J)*RL1*Q(K.L,2,J)*RU ) 

51  * 0.0 

52  a 0.0 

53  - 0,0 

■XXM  COMPUTATIONS  ELIMtNATEO*OUE  TO  RETENTION  OF  XX  RESULTS 
YYM  COMPUTATIONS  ELlHlNATEDtYYM  RETAINED  FROM  RHS  CALCULATIONS 
RL1  » WQ(K»L»1»J*1> 

RL  * l./Q(K»L.l,J-l) 

TA  a ,5*XX(U,2)«(Q(K.L,4,j*l)*RLi*Q(K.L.4,J-l)4RL) 

1 -t5»XX{  J.3)  *(Q(K,L,3,vJ*l)*RLl-0  (K.L.3,  J*I)  *RU 

TB  * ,S»XXt J,3)MQlK,L.2,J*l)*RH-Q<K.L*2.J-U*RL> 

1 -15*XX(J.l)*(C(KtC,4fJ«,l)*RH-a(K*L*4*U-i)*«U 

TC  » ,5#XX(Jtl)«(Q(K»L,3tJ*l)«RLl-Q(K.L.3»J-I)*RU 
1 -,S*XX(J.2)*(Q(K,L.2,J%i>*RLl^(K.L.2,J-U#RU 

RL1  « l./0<K*l.ltl,J) 

RL  * i./Q(K-l,LiItU) 

TO  * ,5*YY(K,2)MQ<K*l,Li*»U)*aLl-Q(K-l»L»4»U)*RU 
l ^•5*YY<K.3)*<0(K*lttt3,J)*RLl-0(K-l,Lt3tJ}*RL) 

TE  * ,5*YY(K,3)*(Q(K*ltL.2*J)*RLl-Q(K-i,Lt2»J>*RU 
1 a*5#YY  lK.l)*lQ(K*l»L»4,J)  *RL1*Q  (K-1,L»4*JI  #RL) 

TF  • ,5*YY(K.l)*(Q<K*l,L,3.J)*RH-0(K-l.L,3.J|aftL> 

1 <.,S*YY(K,2)*(Q(K4ltL»2.Jl*RLlia<K-lii:.2.Jl*RU 


000  1 o 0 

QOOUO 

000120 

000130 

000140 

OOOISO 

000160 

000170 

000 1 BO 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 

•000270 

000280 

000290 

000300 

000310 

000320 

000330 

000340 

000350 

000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 

000480 

000490 

000300 

000S10 

' 000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 


■t^AL 


2-A-1 


c 

c 

c 


c 

c 

c 


c 

c 

c 


*L*1  *4* > *RD 
*l»3td->l)*RL> 

• LM*2*U»X>*RU 

*t*1.3*J*D*RL) 

♦ X*2tJ-U*RL) 


•l.L*l »4*03 *RL) 
♦ t.*l  *3t  JJ  *RL>  - 
-l.U*W2f  JJ*«U 

•l »L*l *3* J) •flL) 


L*4»J)**2 


51  * SX**5*(TA*T0> 

52  * S2*.5*<TB*TE> 

53  * S3*.5*(TC*TF> 

RU  * 

RL  * l*/Q(K«L*ltltJ-l) 

TA  « .5*XX(J*2)*(Q<K*L*Xt4»J^l)*Rtl-Q(K 
1 »#5*XX(J»3)MQ<KtL«>l*3tJ*l)#RU-Q<K*L 

TB  a «5*XX ( J»3)  * (QiX$L*l *2f J*l) *RL1^Q  <K 
X «*5*XX  < J* 1) * <Q (KtL*l t4*d*l) *RL1~0 (K*L 
TC  a ♦ S*XX«dtl>*<Q<KfUXt3td*l)*RLi-G»K 
X -«5*XXid*2)*<Q<K*Ul*2*d*l)*RLl~Q<KtL 
RU  * l./QtK*l»L*ltitd> 

RL  * l./Q(K-ltL*ltl.d) 

TO  a .S*YY(K*2)*iaiKMtL*X»4*d>*RLl-Q<K 
l • ,5*YY<K*3)M0(K*l*L*l*3td)*RLl-Q<K-l 
TE  * ,5*YY(K*3)MQ(KaX*L*l*2*d>*RU-<a<K 
1 ■’*5*YY(K*l)*{Q{K*l»LM***'J)*AU-0(K-l 

TF  * *5*YY<Kt  iyiQ{K*lvL+l*39sn**L\~QlK 
X -*5*YY<Ki2>MQtX*X»LMt2»dJ*RLl-Q<K«l 

51  « Sl**5* (TA*TO) 

52  * S2*  *5*  <T8*TE> 

53  * S3o*5MTC*TF> 

TW  * ( Tl-*S1 ) **2*  <T2*S2>  **2*  tT3*S3) **2 
TAS<UJ  « SQRT(TW) 

UTOT  a Q(K*Lt2*J) **2*Q  <X*L»3*d> **2*Q (X# 
UU(U  * SQRT(UT0T)/Q(K,L»1*J) 

TUftMU { K * L *0)  • 0 * Q 
IX  CONTINUE 

COMPUTE  RA 


L * X 

WMU  a 1# 

TAU  a AHSITASIU) 

RA  * SORT  IR£*Q  fK*U»6#J)*Q(K<L*l*J)  •TAU/WMU)  /26* 

COMPUTE  NORMAL  DISTANCE  SNOR(L)  ano  ydum 

SNOR(X)  « 0* 

KM2  a X 
YDUM  a X »£«3 

YM  * *5/SQRT { A8S  <ZZ { It  X } *ZZ (2» 1 ) +ZZ  ( X » 2) *ZZ I2t2)*ZZ(l*3) 
UMAX  a UU<1> 

UMIN  a UU<X> 

YOUS  a 0»0 
00  20  L a 2»LM 

IF TUU (L)  *LT * UMIN)  UMIN  a UU(U 

SCIS  * A8S<ZZ[L«Iil)*ZZ<L*iUZZU.-If2>*ZZ<L.2>*ZZ(L-I»3) 
SCAL  * 1.0/SQRTCSCXS) 

SNOR(L)  a SN0R<L-1>  ♦ SCAL 
SNORA  * 0*5*  tSNOR 1L)  ♦ SNOR<L-l>) 

YOU  a SNORA*ABS(TASlL-n )*tX*-EXP{-RA*SNORA) ) 
IF«L*fiT,LE0GE)<50  TO  20 
IF(UU(L) .GT*UHAX)  UMAXaUU(L) 

IF (YOU  ,LT.  YOUM)  GO  TO  20 
KM2  a L -»  l 
YOUM  a YOU 
YM  a SNORA 
20  CONTINUE 


000730 
000740 
000750 
000760 
000770 
000760 
000790 
000600 
000810 
000820 
000830 
000840 
000850 
000860 
000870 
000880 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000980 
000990 
00X000 
0010X0 
00X020 
00X030 
001040 
001050 
001060 
001070 
00X080 
001090 
001100 
oomo 
001120 
001130 
*ZZ (2*3) ))001140 
00X150 
001X60 
001170 
001180 
001190 
*ZZ  <L*3) ) 00X200 


INTERPOLATE  TO  FINt)  YM,  YDUM,  ano  UM 


IF{KM2  .LT*  2 *OR.  KM2  #Gt.  LEOGE-l)  GO  TO  22 
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YM3  * 0.5#<SNOR(KM2*1)  ♦ SN0R(KM2*2>> 

YMl  * Q .5*  <SNOR  (KM2**1 ) ♦ SNOR  (KM2M 

YOUHl  « YHl*ABS(TAS{KH2-n  >*<1.0  - EXP  <-RA*YMl ) ] 

Y0UM3  a YH3«A8S<TAS»{KM24i)  - EXP < -RA*YM3 > ) 

C2  a YDUM  - YOUM  l 
C3  « Y0UH3  - YDUM 
0Y2  =«  YM  - YMl 
0Y3  a YM3  - YM 

AM  a tDY3*OY3*C2*OY2*OY2*C31/(OY2*OY3*tDY2+OY3) ) 

BM  a (DY2*C3  DY3#C2J/(DY2*DY3*(OY2  ♦ OY3>  > 

IfiBM  *G£.  Q.)  00  TO  22 
YMM  3 YM  - O.S*AM/BM 
YOU  3 YOUM  - 0.25aAH*AH/8M 
YMM  3 YM  - 0.5*AM/BM 

IF (YOU  »LT « YOUM  .OR.  YMM  ,LT.  YMl  .OR,  YMM  .GT.  YM3)  GO  TO  22 
YDUM  a YOU 
YM  ■ YMM 

IF  ( YM  .GT.  SN0R(KH2M>)  KM2  3 KM2  ♦ 1 
IF  (YM  *LT.  SNQR(KM2)>  KM?  * KM2  ■ 1 
22  CONTINUE 
C 

c compute  outer  edoy  viscosity 
c 

00  25  L«I»LEOGE 

SNOR(L)  * 0.5MSNOHCU  ♦ SNGR(L*l>> 

FFC  a FKK*F27*REaQtK,i.,ltj)  •Q(K*L*S.J) 

TMO(U  a FFC*YM*YOUM 
FFCWK  * YOUMF*YDUMF*FFC 
UDIFF  a ABS (UMAX-UMlH) 

IF (YOUM  ,GT»  UOIFF*YOUMF>  TMO(U  a FFCWK*YM*UOIFF*UOIFF/YOUM 

FI  A a FKLEB*SNOR(L>/YM 

IF (FIA  .GT.  1 .£51  FIA  a 1.E5 

FI  a 1.0  ♦ 5.5*FlA**6 

TMOIU  a TM01U/FI 

TM0IL1  * ARS(TMO(U> 

25  CONTINUE 
C 

C COMPUTE  innner  eouy  viscosity 

c 

00  30  Lai, LEDGE 
TAU  a ABS(TAS<L>> 

TMKL)  a Q(K*L«6*U)*Q<K,Ltl*U>*RE*TAU*(.4*SN0R<L>*U.-EXP(-RA 

1 *SNOR(U > )>**2 
TMI(L)  ■ AflS(TMKL)) 

30  CONTINUE 
C 

C LOAG  VISCOSITY  CQEFFS,  INTO  ARRAY,  USE  INNER  VALUE  UNTIL 

C MATCH  POINT  IS  REACHED 

c- 

L * 1 

40  TURMU (K,L*U)  a THI(L> 

L « L+  i 

IF(L.GT.LEOGE)  GO  TO  10 

IF ( TMI(L)  *L£»  THO(U)  GO  TO  40 

41  TURMU (K ,L«0>  * TMO(U 
L » L*1 

IF ( L.LE.  leogej  go  to  ai 
10  continue 
c 

c REARRANGE  TURMU (L3  SUCH  THAT  WHEN  AVERAGED  AT  L ANO  L*1 
C THE  CORRECT  MIOWAY  VALUE  WILL  BE  OBTAINED 

C 

SMP  a TURMU 
00  60  U 3 2.LMAX 
TURNS  « TURMU(KtL.U) 

TURMU (K , L 1 J ) * 2.0#SMP-TURMU(K.L-1«J) 

60  SMP  a TURMS 
80  CONTINUE 
RETURN 
END 
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001660 
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001700 

001710 

001720 
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001740 

001750 

001760 

001770 

001780 

001790 
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2 -A -3 


APPENDIX  B 


RECODED  MUTUR  ROUTINE 


SUBROUTINE  MUTUR 

COMMON/aASE/NMAX *JMAX*KHAX»LMAX,UM^KMtLH,OT. GAMMA, GAMI, SHU, FSMACH 
1 *0Xl#DYl*DZl.ND,N02tFV(5)  *FO(S)  »HD*  AL.P  * GO  i OMEGA  »HDXt  HOY  *MOZ 
2*«M,CN8R*PI * ITR, INVISC*LAMIN,NP* INTI  * INT2, INT3 
COMMON/GEO/N01,N02.Rf;RONT.HMAX*XR,XHAX,OflAD»QXC 

cqmmon/reao/ireaq, i writ  #ngRi 

COMMON/VIS/RE, PR *RMUE»RK 

COMMON/VARS/Q (720*6*30 J 

COMMON/VA«0/S( 720*5*30 J 

COMMQN/VARl/X( 720*30) »Y(720*30) *2(720*30) 

COMMON  /VAR3/  P*  XX*  YY*  ZZ 
LEVEL  2*G»S*X*Y*Z 
COMMON/COUNT /NC  ?NCl 
COMMON  /aTRIO/  A*  B»  C.  0*  F 
COMMON  TURMU 

DYNAMIC  P*XX*YY»ZZ*A,8*C.O*FtPl 

DYNAMIC  TAS*TM0*THl*SS*S6fU*V»W.EtRR 

DYNAMIC  YOUM* YOUMI * Y0UM3* YM* YMI *Ym3* SCIS *SCAL 

DYNAMIC  BIT *0Y2* SY3* AM*8M* YMM*8IT1 

DYNAMIC  ZZ1.ZZ2*ZZ3*ZZA*ZZ5*RH*RL 

DYNAMIC  T1*T2*T3*S1»S2*53*TA,T8*JC 

DYNAMIC  to t TE * TF i T" • TA3 » UTOT , UU « TURMU 

OYNAMIC  TAU«WMU*RA»SN0RtSNORAt 

DATA  F27*LEUGE/1 ,6*25/ 

DATA  FK*FKK,YOUMF/0. 4*0,0168* 1.0/ 

DATA  F*lE8/0,3/ 

C 

OEFINE  (TAS,P<n60»l)  1 * (UU*P(1 160.2)  ) * (SNOR «P < It  60 *3} ) 

DEFINE  (TM0*PU  160*4) ) » (TMI ,P U 1 60 * 5)  ) * ( S5* P (I 1 60 *6) ) 

DEFINE  <S6»P  (1160*7) ) » (U*PU  160*8) ) * ( V ,P  ( 1 1 60  *9) ) 

OEFINE  <W*PUI60. 10 ) ) i <E*P < 1 1 60* U > > • (RR * P U 160 * 1 2)  ) 

C 

C CALCULATE  TURBULENT  VISCOSITY 
C 

DEFINE  (ZZ1.2ZTU)  ) * (ZZ2.ZZT<2)  ) , (ZZ3*  (ZZTO)  ) , (ZZ4,ZZT<4>  ) 

OEFINE  (ZZ5*2ZT (S) ) 

C ZZH  computations  eliminated*zz  RETAINED  FROM  RHS  calculations 
C 

C CALCULATE  VORTICITY  TAS(L)  AND  TOTAL  VELOCITY  UU<L) 

C 

OEFINE  (RLl*RR(**ltLMt2jjSL))*(RL*RR(**2!LMAX*2f JSL) ) 

T1  - ,5*(  (ZZ2(**2lLMAX)  ♦ZZ2(»*liLMAX**n*(Q4t**2iLMAX**l  *RL1 

1 -Q4{»,*,*)*RL)^<ZZ3{»,2ILHAX*1»*)*ZZ3(***»*) ) • (Q3 ( **2ILMAX* 1 **) 

2 *RL1«Q3 (# i •* • ) ) 

T2*«  5* ( (ZZ3 (**2 1 LMAX* 1 ,*) *ZZ3 (•****))• (02 < •♦2ILMAX* X **) *«L1 
t -Q2 <•****> *RL)-(ZZ1 <**2 ILMAX+l ** ) +ZZ1 <♦.***) ) 

2 •<Q4(**2lLMAX*l»*)*RLl*Q4(***,#)*RL) ) 

T3»,5* ( ( ZZ1 (*  *2  tLMAX*i *♦) *221 {*,***>)♦ (G3 (*»2 1LMAX* 1 *•) *RL1 

1 -Q3 <*»**♦)  *RU-(ZZ2(*, 2 lLMAX*lf*)*ZZ2(**i!LMAX)  ) 

2 * (Q2 1*  * 2 1LHAX* l*  *) *RL1*02  (**«»•>  *RL 

51  « 0*0 

52  * o«0 

53  * 0.0 

C XXH  COMPUTATIONS  ELIMINATED* OUE  TO  RETENTION  OF  XX  RESULTS 

C YYH  COMPUTATIONS  ELIMINATE0*YYH  RETAINED  FROM  RHS  CALCULATIONS 

DEFINE  {RLl *RR t#***3 1 JSL*2) • tRL*«R ( ***• 1 1 JSU ) 

TA  * ,5*XXI£) * (04 (* * **3 ( JSL  + 2) *RL 1"Q4 {**•**) *RL) 
l •.S*XX(3)*(Q3(*»**3!JSL^2)*RL1-Q3<*****)*RL) 

TB  « ,5*XXt3)*(Q2<***t3lUSL*2)*RU^<32l*i*»*)*RL) 

1 •,5»XX(1) * 104 (****3 iJSL*2I *RL1*Q4 (*. •* *) *RL) 

TC  « .5*XXU)*<Q3<***t3USL*2)*Rll-Q3(***t*)*RL) 

1 5*Xx (2) • <Q2(«t** 31 JSL*2)«RL1*02 (•♦***) •RU 

DEFINE  (RLl*RR(3lKMAXf#t#) *flL (RR U T KMAX-2*** *) ) 


000100 

000110 

000120 

000130 

000140 

000150 

000160 

000170 

oooiao 

000190 

000200 

000210 

000220 

000230 

000240 

000244 

000250 

000260 

000262 

000270 

000200 

000290 

000300 

000310 

000320 

000330 

000331 

000332 

000333 

000334 

000335 

000340 

000350 

000360 

000370 

000300 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 

0004*0 

000490 

000500 

000510 

000520 

000530 

0005*0 

000550 

000560 

000S70 

000580 

000590 

000600 

000610 

000620 

000630 

Q00640 

000650 
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TD  * .5*YY<2)*«H<3lKMAX*2t*.*)*RLl-Q4(*t*t*)*flL) 
l i -.5*YY(3)*<Q3<3lKMAX*2**t*l*RU-03<*f*»<>)*ftU 
TE  « .5«yY  (3)  • <02  (3  I KMAX+2* *#*) *RL1®Q2  t*i *»•)  *RL) 

TF  * .5#YY{l>*<Q3<3lKMAX*2»*t*>*RLl"Q3I*t*t*>*RD 
1 ®.5*YY<2)*(Q2 (3 lKMAX*2,*f*)*RLl-Q2 (♦■*»*) *RL) 

51  « $1*«5®<TA<>T0] 

52  * S2**5*{Ta«TS) 

53  * S3**5*tTC*TFl 

DEFINE  <RUl.RRt*i3lLH2.3ljSL*2)»(RLfRRf*f3ltM2#»)j 

KH2*KNAX*2 

LH2«LMAX*2 

* TA  * ♦ 5*XX(2)*(QM*OlLM2»3«JSl*2>*RLl-Q4(**3JLH2,#>*ftL) 
l -•5*XX<3)’MQ3<*»3lLHat3tJSL*2)*RLI-a3<*,3iLM2*»>*Rlj 
T0  « .5*XX«3>*t<a2(*»3lLM2#3IJSL*2)*RLl®Q2<*t3lLM2.*)»RLJ 
1 ~%5*XX(i}*<QA{«,3tLM2,3i0SL*2)*RU-Q4(*,3!tH2**)«aU 

TC  « »5*XX  (1 ) * (Q3  <**3  lL.M2*3rj5L*2)  •RLl*03  (♦•3ILH2*  •)  *RL) 
l -»S*XX<2)*<Q2(*,3lLM3t3*OSL*2)*RH~Q2l**3tLM2t*>*RU 
DEFINE  (RLl?RR<3lKH2»3*LH2»*ni  <RL*RR<**3ILM2i*1) 

RL  * l./QU**3tLM2»*J 

TO  * ,5*YY  (2)  * (Q4  {3  lKM2*3tt-M2»*)  •RLl*«04  l®  *3  ILM2 i *J  *RL) 
l -♦S*YY(3J*(Q3(3lKH2*3lU«2*4i*RLl-Q3{**3tLH2**»«RL> 

TE  * «5*YY<3)®<Q2(3lKM2l3tLrt2**)*RLl-Q2(»t3!LM2*#)*RU 
l •^S*YYai*(Q4«3lKM2,3lLM2**J*RUl-04(*t3iLM2t*>#RU) 

TF  » *5*YY<l>®<Q3<31KM2,3tLM2,*)*RU-Q3<*.3iLM2l*)*RU 
l -*5*YY<2)4<Q2{3iKH2*3itH2**)«RLl-02l**3*LH2t*)*RU 
SI  * Sl*«5*(TA*T0) 

. S2  * S2*.S®<T8*TE) 

S3  * 53®»5*{TC®TF) 

TW  « <Tj*Sl)**2MT2*S2)**2*(T3*S3)**2 
TAS  * SQRT(TW) 

UTOT  * Q2**2^Q3**2*o4*®2 
UU  * SORT (UTOT) /Q1 
TURMU  <•*•* Jl JSL)  *0 
C 

c compute  RA 
c 

WMU  * 1. 

TAU»  ASS (T AS (*» 1 »*> ) 

RA  « SaRT«RE*Q6{*ili»)*0U**I#*)«TAU/WMU>/26. 

C 

C COMPUTE  NORMAL  OISTANCE  SNOR(L)  AND  YOUM 

c 

OEFIN E (SNOR?  < I I KM AX, 1 ILMAX « \ j JSL) ) ? (YOUM* ( 1 1 KHAX * 1 t 1 t JSL) > 
DEFINE  (SNORAt  {HXMAXtnLMAX,liJSU  ) • tYM,  mKMAX • 1 ♦ U JSL > > 

SNOR l 1 > * 0. 

KM3  * 1 
YDUM  * 1 #E^3 

YM  3 .5/SQRT<ABS{241t»tlp*)*Z21(*f2«*)*Z32(*tl**l®Z22(«*2.»J 
i ♦ZZ3(*»I**) *ZZ3  <*»2 » •) I ) 

YOUS  * 0*0 

SCXSsABS ( 2Z1 {* t2 ILMAX* l J *222 (*,*,*) *ZZ2 (*?2lLMAX* 1 i 
l ♦223<*»®t*)*2Z3<*»2iLMAX»i,») j 
SCAL  * 1 « 0/5QRT  (SCIS1 
00  19  L*2?LMAX-1 
SNOR  CD  =■  SNOR<L~l)  ♦ SCAL 
SNORA  * 0*5tt (SNOR (L)  * SNOR<L-I)> 

19  CONTINUE 

Y0U<#.2lLMAX*U*>«iSN0RA(*,2lLMAXM»*>*aes<TAS)  >* 

1 ® ( 1 *£XP (-RA  t*»2  *LHAX* 1 »*)  *SNORA {*, 2 1 LMAX*2*®) J 

DO  21  L»2*LM 

21  IF(UUt*iLi*> «LT*UMINJ  UHTN (* , j ,*) *UU t*it**) 

DO  18  L*2«LEDG£ 
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ooo  ooo  oooo  o t»oo 


IF  <UU (**L*  *> « UMAx ( * * 1 i * ) ) UMAX (*«  t «*) *UU(°tL**) 

BIT* (YOU ( **L • *) ,LT.YOUM<*tli»l 
IF (BIT) YDUM<  **  X » *) *Y0U  < 

IF (BIT) YH(*t 1 t *) ^SNCRA » +) 

IF  <BIT)KM2 (**L»*)  *L-1 
18  CONTINUE 
C 

C INTERPOLATE  to  FIND  YM,  YQUM,  AND  UM 

BIT* (KMg {♦»#*#) .LT.2*ORtKM2(*,»9*) *GT,LEDG£*1 ) 

YM3  * 0*S*{$NQR{KM2 (***,*) ♦ !)  * SNOR (KH2 (*♦ * **) *2) > 

Y«1  * 0*5i*(SNOR  (KMZ(*,*,*)-n  ♦ SNOR  <KM2(*, *,*)>» 

Y0UM1  * TM1*A8S(TAS(KM2(**®»*)-1) )#(I,0  - £XP  l-RA*YHl ) ) 

YDUM3  * YM3*A0S  ! TAS  (KM2  (<»*•*«)*  i ] >*(1.0  - £XPl-RA*YMan 
C2  * YOUM  - YOUH1 
C3  * Y0UM3  - YDUH 
DYS  * YM  - YH1 
0Y3  * YM3  - YM 

AM  * ( DY3*OY3*C2*OY2*oY2*C3) / (0Y2*DY3* t DY2>OY3 ) ) 

BM  * (DY2*C3  - 0Y3*C2) /(OY2*OY3*(OY2  * DY3)1 
aiTl*(8M,QE.O) 

B 1 7 * ( ♦ NQT  • B l T • OR  , . NOT  * BM) 

IF  (SIT)  YMM  * YM  «*  0 *5*AM/0M 
IF  (BIT)  YOU  * YOUM  * 0,25*aM*AM/bM 
8IT1*(YDU.LT,YDUM.QR.YMM.LT,YM1.0R*YMH.GT*YM3) 
Bn*BlT*ANO.*NOT,BITl 
IF (BIT) YOUM*YDU 
IF (BIT) YM*YMH 

IF (YM  *ST  » SNOR(KM2 (*i«,*J *1) ) KM2(*,**»l  * KH2<«,*t»>  ♦ 1 
IFiYM  ♦t.T*  SNOR<KM2  <*.*»•)>  ) KM21»t*«”)  * KMH(**«n*J  - 1 

compute  outer  pov  VISCOSITY 

SN0R(*»1 iLEDGEv«)  * 0'5»(SNOR (•• l tlEDGE»«>  ♦ SNOR (*» 2 lLEDG£* I 
FFC  - FKK*F27*RE*QU*»ULECGE,*>*Q&t*,l:LEDGE»*) 

TMO(U  m FFC«YM»YDUM 
FFCWK  ■ YOUMF*YOUMF*FFC 
UOIFF  * ABSIUMAX-UHtN) 

IF (YOUM  .GT,  UOIFF*YDUMF)  TMO  « FFCWK*YM#UOIFP*UOIFF/YOUM 
FI A * FklFB^SNOR (♦,  1 1 LEDGE* •} /YM 
IF (FI A ,GT.  1 *E5)  FIA  * 1.E5 
FI  * 1*0  ♦ 5.5*FlA**6 
TMO  * TMO  /FI 
TMO  * A0S ( TMO  ) 

COMPUTE  INNNER  EODY  VISCOSITY 

TAU  • Ags ( TAS  ) 

THI  « 06*0 1 *RE*TAU*  < . 4*SnOR  *U*-£XP(-Ra 
1 *SNOR  ) ) ) «*2 
TMI  * A3S<TMI) 

LOAO  VISCOSITY  COEFFS*  tNTO  ARRAY t USE  INNER  VALUE  UNTIL 
MATCH  POINT  IS  REACHED 

TURMU (*i 1 IL£DGE»*) «TMI (*,  1 JLEQGEt*) 

BIT«(TMI  (•«  lUEDGEt*)  *LE*TMO<*# 1 iLEDG£»*) ) 

IF (BIT) TURMU ( •* 1 ILEOgE  **>  *ThO (#, l lLEDSEt*} 

rearrange  turmu <d  such  that  when  averaged  at  l and  l*i 

THE  CORRECT  MIDWAY  VALUE  WILL  BE  OBTAINED 

SHP  * T(JRHU(*»I*a) 

00  60  L * 2tLMAX 
TURMS  * TURMU*»Li *) 

TURMU**L’*)  * 2.0«SMp-TURMU(**L-li*) 

60  SMP  * TURHS 
RETURN 
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DIVISION  3 

THE  THREE-DIMENSIONAL  AERODYNAMIC  EXPLICIT  CODE 


DIVISION  3 THE  THREE-DIMENSIONAL 
• AERODYNAMIC  EXPLICIT  CODE 


1 .0  OVERVIEW 

The  second  metric  provided  to  Control  Data  analysts  was  the 
Hung-MacCormack  'explicit*  code  which  used  meshes  of  31x31x31 
to  model  three-dimensional  corner  flows.  This  metric  exhibited 
several  characteristics  of  interest  which  differ  from  the 
'implicit'  form  of  solution  previously  discussed  (Division  2). 
Instead  of  restructuring  the  entire  code  as  was  done  for  the 
Steger-Pulliam  code,  those  routines  of  greatest  interest  were 
essentially  dealt  with  independently,  within  the  code  itself. 
The  routines  chosen  were  LX,  LYI,  and  LYC/CHARAC  because  they 
constituted  the  major  part  of  the  computation  in  the  explicit 
code,  and  because  they  demonstrate  the  essentially  different 
characteristics  needed  for  this  study. 

t 

The  LX  and  LYI  subroutines  were  each  vectorized  first  for  the 
STAR-100  because  the  programming  techniques  used  are  expected 
to  be  common  for  the  STAR-100  and  the  Control  Data  FMP. 

Further,  this  permitted  verifying  answers  against  the  scalar 
code,  and  permitted  analysis  of  the  code  using  the  STAR-100 
performance  counters. 

The  major  points  of  interest  in  this  section  are  the  findings 
regarding  o short  vector  lengths  (compared  to  the  counterpart 
vectors  in  the  implicit  code) ; 

• 'local'  vector ization  instead  of  'global'  vectorization ; 
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• data  dependent  branching,  fundamental  to  the  method  of 
characteristics . 

In  a later  section  the  effects  of  these  factors  on  the 
performance  of  the  FMP  will  be.  discussed.  What  follows  is  the 
basic  programming  considerations  employed  in  vectorizing  the  key 
parts  of  the  three-dimensional  aerodynamic  explicit  code. 
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2.0  OVERALL  ANALYSIS 


The  explicit  code  is  a.  numerical  scheme  for  solving  the 
three-dimensional  Navier-Stokes  equations  for  a supersonic, 
laminar  flow  over  a compression  .corner  with  sidewall  effects 
(ref.  4).  There  are  three  directional  operators  (Lx,Ly,Lz) 
corresponding  to  the  three  coordinate  directions.  The  Ly-  and 
Lz-  directional  operators  are  split  into  suboperators;  each  of 
these  uses  a different  method  to  solve  the  appropriate  equations 
on  the  appropriate  grid.  The  three  different  methods  are  the 
explicit  method,  the  Implicit  method  and  the  method  of 
characteristics . 

The  computational  procedure  for  each  time  step  can  be  outlined 
in  this  way: 

(1)  The  Ly-  directional  operator  is  executed 

(a)  LYC  - characteristic  method  on  fine  mesh 

(b)  LYI  - implicit  method  on  fine  mesh 

(c)  LY  - explicit  method  on  coarse  mesh 

(2)  The  Lz-  directional  operator  is  executed 

(a)  LZC  - characteristic  method  on  fine  mesh 

(b)  LZI  - implicit  method  on  fine  mesh 

(c)  LZ  - explicit  method  on  coarse  mesh 

(3)  The  Lx-  directional  operator  is  executed 

(a)  LX  - explicit  method  on  whole  grid 

(b)  TURB-  turbulence  model 

(c)  LX  - explicit  method  on  whole  grid 
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(4)  The  Lz-  directional  operator  is  again  executed 


(a) 

LZI 

- implicit 

method 

on  fine  mesh 

(b) 

LZC 

- characteristic 

method  on  fine  mesh 

(c) 

LZ 

- explicit 

method 

on  coarse  mesh 

(5)  The  Ly-  direction  operator  is  again  executed 

(a)  LYI  - implicit  method  on  fine  mesh 

(b)  LYC  - characteristic  method  on  fine  mesh 

(c)  LY  - explicit  method  on  coarse  mesh 

To  determine  the  relative  effect  of  vector ization  on  each  of 
these  components,  relative  timings  of  the  different  methods  on 
the  7600  for  a 31  x 31  x 31  grid  were  collected: 


Implicit  Method 
LYI 
LZI 
Total 


24.53* 
24. 8H 
49-34* 


Explicit  Method 
LX 
LY 
LZ 

Total 


23.58* 

5.76% 

6.12% 

35.46* 


Method  of  Characteristics 


LYC 

3.29* 

Excluding 

subroutine 

CHARAC 

LZC 

3.33* 

Excluding 

subroutine 

CHARAC 

CHARAC 

6.64* 

Total 

13.26* 
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Miscellaneous  other  operations 


Total 


1.94% 


Overall  Total 


100.00% 


2 . 1 Data  Handling 

The  model  for  the  FMP  version  of  the  code  is  to  use  the  same 

algorithm,  but  expand  the  problem  to  a 100x100x100  grid.  The 

basic  variables  associated  with  each  grid  point  are  RHO,.  RHQU, 

RH0V,  RHOW,  E,  El,  U,  V,  W,  RMUL,  giving  a basic  storage 

6 

requirement  of  10x10  data  points. 


6 

In  the  proposed  FMP  the  Intermediate  Memory  contains  32x10 

6 

words,  which  is  sufficient  to  hold  1 program  of  the  10x10  size 
while  permitting  the  staging  of  the  next  job  to  Intermediate 
Memory  during  current  job  execution. 

6 6 

The  Main  Memory  has  4x10  words  (option  to  8x10  words),  a size 
not  large  enough  to  store  the  whole  problem,  thus  forcing  the 
algorithm  to  incorporate  some  sort  of  '•circular  buffering" 
scheme.  The  Intermediate  Map  Unit  must  be  used  to  read  in  new 
data  to  the  Main  Memory  and  write  out  old  data  to  the 
Intermediate  Memory  while  the  Vector  Unit  is  processing  the 
"current"  data. 


In  addition  to  the  circular  buffer,  the  algorithms  must  also 
reorder  (or  rotate)  the  data,  so  that  the  vectors  for  the  Vector 
Unit  are  stored  in  sequential  locations.  One  can  do  this  in 
several  ways.  First,  one  can  do  gathers  and  scatters  from/to 
Intermediate  Memory.  Second,  one  can  also  do  a 
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"transposition"  within  Main  Memory  or  Intermediate  Memory.  A 
third  option  depends  upon  the  groupings  of  the  operators  in  each 
time  step.  One  can  initially  store  the  data  indexed  by  (k,j,i), 
then  perform  the  3 methods  of  the  Ly  operator  vectorized  on  "k". 
The  data  is  stored  back  or  fetched  from  the  Intermediate  Memory, 
in  (j,i,k)  order  for  the  Lz  operator  which  is  vectorized  on  " j" 
etc.  Stated  differently,  it  is  not  required  that  the  data  be 
rotated  between  each  of  the  subroutines.  In  any  case,  it  is 
clear  that  the  data  handling  between  the  Intermediate  and  Main 
Memory  is  an  integral  part  of  the  problem. 

2.2  Speed  Optimization 

When  launching  into  a vectorization  effort  on  a new  piece  of 
production  code,  the  programmer/analyst  is  well  advised  to  get 
reacquainted  with  the  basic  tradeoffs  inherent  in  the  FMP 
architecture.  The  basic  execution  rate  of  the  Map  Units  and  the 
degree  to  which  they  can  be  made  to  operate  concurrently  with 
the  Vector  Unit  is  a major  factor  in  the  vectorization  process. 
In  the  case  of  the  implicit  and  explicit  codes,  it  has  been 
determined  that  the  map  operations  (scatter,  gather,  transpose) 
can  be  almost  totally  overlapped  with  other  functional  unit 
execution.  The  ’second  order  effects’  of  the  FMP  architecture 
then  become  of  great  concern. 

In  particular,  the  effectivity  of  the  Vector  Unit  becomes  the 
real  measure  of  the  machine  performance.  The  efficiency  of 
operation  is  tied  to  the  amount  of  time  the  unit  can  be  kept 
productively  busy  throughout  a code  execution.  The  sole 
contributing  factor  that  limits  the  unit’s  full  capacity  from 
being  utilized  is  vector  startup  time.  This  concept  is 
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should  be  reviewed  here.  First,  startup  time  is  a function  of 
the  pipeline  configuration  for  the  previous  operation,  the 
function  now  being  initiated,  and  the  interdependency  of  one 
vector  operation  with  another.  Thus  a short  vector  operation 
whose  results  must  feed  another  vector  operation  requires  that 
all  the  data  be  stored  in  memory  before  the  subsequent  operation 
can  be  started.  The  time  delay  required  for  data  to  clear  the 
pipelines  and  be  stored  back  to  memory,  then  brought  back  from 
memory  to  refill  the  pipelines  is,  in  effect,  called  startup. 
Startup  time  is  a fixed  overhead  assigned  to  a particular 
sequence  of  instructions,  and  thus  the  longer  the  vector  to  be 
processed,  the  less  effect  that  startup  time  has  on  overall 
rates  of  computation. 

Tables  I and  II  are  provided  to  illustrate  the  effect  of  this 
architectural  characteristic.  These  tables  represent  the 
relative  megaflop  rate  of  the'  FMP  pipelines  when  compared  to 
operations  on  vectors  of  length  30,  or  when  compared  to 
theoretical  sequences  of  vector  operations  which  have  zero  delay 
between  operations  due  to  the  dependency  of  one  vector  on  another . 

Table  I 


R (N , f ,d) 

N = 

30 

100 

500 

1000 

10000 

R(30,f ,d) 

d 

= 0 

1.0 

1 .66 

2.16 

2.24 

2.324 

d 

= 5 

1.0 

2.04 

3. 16 

3*395 

3.638 

d 

= 10 

1.0 

2.27 

4.03 

4.46 

4.94 

3,7 


Table  II 


R(N,f ,d) 

d= 

0 

• 5 

10 

R(N,f ,0) 

Ns30 

1..0 

. 63 

.46 

-1-00 

1 .0 

.77 

.63 

500 

1.0 

.93 

.87 

1000 

1.0 

.96 

.93 

From  this  example  one  can  conclude  that  long  vectors  are  much 
faster.  Next,  it  can  be  seen  that  for  shorter  vector  lengths 
(30-50),  reducing  the  average  dependency  delay  can  produce  the 
same  increase  in  speed  as  going  to  much  longer  vectors 
(500-1000).. 

The  reduction  in  dependency  delay  can  be  accomplished  by  two 
techniques.  The  compiler  can  schedule  a sequence  of 
interdependent  vector  operations  far  enough  apart,  and  with 
other  independent  operations  interspersed,  so  as  to  obviate  the 
need  for  the  dependency  key  being  used.  This  is  analogous  to 
the  current  scalar  compilers  scheduling  a number  of 
interdependent  scalar  operations  by  interspersing  other 
operations  between  the  dependent  ones,  to  maximize  the  use  of 
the  floating  point  bandwidth  of  the  Scalar  Unit.  The  second 
approach  is  to  maximize  the  use  of  long  vectors,  for  the  purpose 
of  eliminating  the  dependency  keys.  If  a vector  is  sufficiently 
long,  its  first  elements  will  be  well  settled  in  memory  long 
before  the  last  elements  have  emerged ‘from  the  pipelines.  These 
first  elements  can  be  ’fetched’  from  memory  for  the  next  vector 
operation  while  the  current  one  is  still  in  progress.  In  this 
instance  the  compiler  (if  it  knows  that  the 
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vectors  are  long  enough  at  compile  time)  can  eliminate  the 
dependency  keys,  and  the  consequent  delay. 

To  achieve  long  vector  operations  for  the  majority  of  the 
explicit  code  execution  requires  a recoding  of  the  explicit 
portions  such  that  they  no  longer  compute  successive 
displacements  (that  is  the  next  value  at  the  current  point  is 
based  on  the  just  computed  new  value  for  the  adjacent  points) , 
but  instead  use  a process  of  simultaneous  displacements.  The 
metric,  as  provided,  requires  the  use  of  successive 
displacements  however,  and  this  fact  is  reflected  in  the  short 
vector  lengths  that  were  used  in  its  simulation. 
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3.0  IMPLICIT  METHOD 

The  two  routines  that  use  the  implicit  method  are  LYI  and  LZI; 
these  routines  account  for  approximately  half  the  compute  time 
required  on  the  CDC  7600.  They  are  basically  the  same,  except 
that  LYI  operates  in  the  2 direction'.  The  LYI  routine  is 
discussed  below. 

The  LYI  routine  operates  on  " j-pencils"  and  takes  two  ’’half 
steps"  for  each  pencil.  Each  half  step  requires  setting  up  and 
solving  seven  tridiagonal  systems-  of  equations.  The  j-pencils 
are  solved  successively  by. a pair  of  outer  DO  loops  on  "i"  and 
"k" . The  j-pencils  only  extend  over  the  fine  mesh  region,  which 
is  about  half  of  the  total  grid. 

There  are  several  approaches  that  may  be  used  to  vectorize  the 
LYI  routine.  One  could  run  the  vectors  in  the  "j"  direction. 
This  runs  head  on  into  the  problem  of  the  inherently  sequential 
nature  of  solving  tridiagonal  systems  by  the  standard  Gaussian 
elimination  scheme;  each  computation  depends  on  the  result  of 
the  previous  computation.  There  are  several  algorithms 
available  for  solving  tridiagonal  systems  on  vector .machines 
given  in  reference  5. 

Their  analysis  indicates  that  the  best  algorithm  is  cyclic 
reduction.  However,  the  timing  comparison  (albeit  for  the 
STAR-100)  shows  no  significant  improvement  over  the  standard 
Gaussian  elimination,  until  the  vector  lengths  are  on  the  order 
of  250.  Since  the  j-pencil  will  only  have  a length  of 
approximately  50  for  a 100x100x100  mesh,  there  is  little  promise 
in  vectorizing  on  the  "j"  direction. 


3-1  0 


One  can  run  the  vectors  in  the  "k"  direction.  In  this  case  all 
problems  with  solving  the  tridiagonal  systems  disappear.  In 
addition,  the  vectors  are  now  of  length  100  instead  of  50.  There 
is  the  problem  associated  with  computing  the  j-pencils 
simultaneously,  rather  than  successively,  as  they  are  in  the 
original  scalar  code.  This  means  that  any  terms  involving  the 
subscript  "k-1"  will  be-  using  values  from  the  previous  time 
step,  rather  than  the  newly  computed  values  from  st  the  (k-1) 
j-pencil . 

One  could  also  run  the  vectors  in  the  niM  direction;  however, 
the  two  variables  "UP”  and  "VP1*  are  indexed  by  "i"  masquerading 
under  the  names  of  "K3"»  "K4",  and  "K5",  and  the  computations 
depend  heavily  on  "UP”  and  "VP",  i.e.  there  is  "recursion”  on 
i" . 

As  a final  alternative,  one  could  try  to  vectorize  the  problem 
by. treating  the  whole  "k"  x "i"  plane  as  a vector.  This 
approach  would  run  into  the  same  problem  that  the  "i"  vector 
approach  had  with  the  variables  "UP"  and  "VP".  In  addition, 
there  would  be  a problem  with  temporary  storage,  since  the 
temporary  vectors  used  in  the  scalar  code  would  now  have  to  be 
three-dimensional  matrices,  each  of  order  100x100x50. 

A combination  of  this  last  alternative  and  the  second  method 
(running  the  vectors  in  the  "k"  direction)  was  implemented  (see 
appendix  A)  and  run  on  the  STAR-100  for  the  ten  time  steps. 
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There  are  differences  between  the  scalar  version  and  the  vector 
version,  as  expected.  The  timings  per  time  step  on  a 31x31x31 
grid  are  shown  below. 

7600  ' STAR  STAR 

Scalar  Scalar  Vector 

LYI  . 8.2  19.8  4.1  seconds 

The  recoding  of  the  VLYI  subroutine  (as  the  vector  version  of 
LYI  is  called)  was  kept  as  straightforward  as  possible,  and 
every  attempt  was  made  to  make  the  statements  as  similar  as 
possible  to  the  original  scalar  code.  VLYI  permits  a high 
degree  of  local  vectorization  compared  to  the  implicit  code.  In 
this  instance  the  variables  to  be  processed  were  retained  in  the 
same  form  as  in "the  scalar  code,  and  were  transposed  within  the 
VLYI  subroutine  itself,  where  necessary.  This  permitted  direct 
replacement  of  the  LYI  subroutine  with  the  VLYI  subroutine  on 
the  STAR-100  to  verify  the  correctness  of  the  final  results.  To 
accomplish  'this  a small  routine  called  ROTATE  was  created  for 
the  STAR-100  version.  This  routine  is  replaced  on  the  FMP  by  a 
vector  map  operation  which  performs  the  rotation  while  gathering 
data  from  Intermediate  Memory  for  the  current  slab. 

In  a totally  vectorized  version  of  the  explicit  code  these  map 
operations  would  be  moved  outside  the  VLYI  subroutine  and 
’hidden'  under  the  arithmetic  operations  of  routines  like  TURBDA 
(which  is  called  before  the  Y operations  are  initiated)  . Local 
optimization  then  consisted  of  further  local  vectorization, 
almost  on  a DO  loop  by  DO  loop  basis.  The  rotation  process 
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arranged  the  data  such  that  all  arithmetic  operations  could 
proceed  over  vectors  of  at  least  KMAX  length.  Each  of  the  DO 
loops  in  J were  analyzed  to  determine  if  there  were  recursions 
in  J,  and  if  not,  the  loop  was  vectorized  for  the  J direction 
also,  yielding  vectors  of  length  KMAX*JMAX/2.  For  mesh  sizes  of 
100x100x100  this  would  provide  vectors  of  about  5000  elements, 
which  is  considerably  shorter  than  the  60000  elements  possible 
in  the  implicit  code. 

In  the  vectorization  of  the  tridiagonal  routine,  the  maximum 
vector  length  can  only  be  KMAX  since  the  solution  is  recursive 
in  J.  The  maximum  vector  length  is  then  100  in  TRIDIAG,  which 
is  the  same  as  that  in  BTRI  in  the  implicit  code. 

To  make  the  vectorization  easier,  routines  such  as  GI  and  DIAG 
were  incorporated  in-line,  rather  than  as  subroutines.  Although 
it  is  expected  that  the  compiler  will  be  able  to  include 
out-of-line  subroutines  into  in-line  object  code  automatically, 
the  programmer’s  help  is  still  desirable. 
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4.0  EXPLICIT  METHOD 

The  three  routines  .that  use  the  explicit  method  are  LX,  LY  and 
LZ.  These  routines  are  basically  the  same  except  for  the 
direction  of  the  operator,  and  the  fact  that  the  LY  and  LZ 
routines  are  restricted,  to  -the  coarse  mesh  portion  of  the  grid. 
The  LX  routine  is  discussed  below. 

The  LX  routine  operates  on  i-pencils  and  takes  two  half  steps 
for  each  pencil.  Each  half  step  solves  the  explicit  equations 
for  the  LX  operator.  The  i-pencils  are  solved  successively  by  a 
pair  of  outer  DO  loops  on  "k"  and  "j" . 

Again  there  are  several  ways  in  which  to  vectorize  the  LX 
routine.  The  most  straightforward  way  is  to  run  the  vectors  in 
the  "i”  direction.  This  can  be  done  since  the  equations  are 
explicit  equations.  There  is  some  apparent  recursion  on  "i"  in 
the  "DO  5 1=2, IE"  loop,  but  a careful  examination  of  the  FX 
subroutine  shows  that  it  is,  in  fact,  not  recursive  on  "i".  This 
was  implemented  (see  appendix  B)  and  run  for  ten  time  steps  on 
the  STAR-100.  The  timings  per  time  step  on  a 31x31x31  grid  are 
shown  below: 


7600 

STAR 

STAR 

Scalar 

Scalar 

Vector 

LX 

8.2 

16.7 

3.6 

seconds 

Running  the  vectors  in  the  "j"  or  "kk"  direction  will  run  into 
the  rate  of  convergence  question  arising  from  solving 
simultaneous  pencils,  rather  than  successive  pencils.  The 
equations  for  SIGX,  TAUXY,  TAUXZ,  and  DISX  show  a greater 
dependence  on  the  " j"  index  than  the  "k"  index,  which  implies 
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that  it  would  be  preferable  to  vectorize  on  "k"  rather  than  "j"  . 
This  gives  the  second  option  of  vectorizing  'the  routine  on  both 
’* i ”•  and  Mk” . This  would  give  a vector  length  of  up.  to  10,000 
rather  than  TOO  and  a corresponding  speed  increase  of  up  jto 
approximately  80%  (subject  to-  the  dependency  delay's  and  size 
restrictions  of  Main  Memory) . 
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5.0  METHOD  OF  CHARACTERISTICS 

There  are  two  routines  LYC  and  LZC  that  use  the  method  of 
characteristics. 

The  original  scalar  subroutine.  CHARAC  is  computation  ally  very 
efficient.  One  can  attribute  its  efficiency  to  the  scheme  used 
to  generate  the  mesh  points.  The  mesh  points  are  generated  in 
such  a manner  that  the  solution  of  the  characteristic  equations 
involves  simple  additions  and  subtractions.  The  mesh  generation 
scheme  involves  some  very  tricky  logic  that  does  not  readily 
lend  itself  to  machines  with  a pipeline  architecture. 

Examination  of  the  routine  LYC  shows  that  except  for  the  call  to 
CHARAC,  the  remainder  of  the  routine  is  easily  and  directly 
vectorized  in  the  same  local  fashion  as  were  LX  and  LYI. 

Assuming  that  all  vectorized  routines  improve  uniformly  in 
performance  from  the  7600  to  the  FMP,  it  is  necessary  then  to 
focus  on  the  potential  ’weak  spot’  in  the  vectorization — the 
CHARAC  routine  itself.  This  routine,  quite  obviously,  cannot 
remain  scalar  in  nature  if  all  other  routines  become  highly 
vectorized,  for  although  it  takes  up  only  6$  of  the  compute  time 
of  the  7600,  it  could  be  the  bottleneck  in  the  FMP  performance 
on  the  explicit  code. 

One  method  of  attack  in  vectorization  is  given  in  the  routine 
VCHARAC  which  is  shown  in  appendix  C.  The  key  feature  in  this 
approach  is  the  processing  of  entire  planes  of  data  of  length 
IL*KL/2  by  both  LYC  and  CHARAC.  The  problem  with  this  is  that 
in  CHARAC  each  element  of  the  plane  may  be  handled  differently 
from  any  other  element  depending  upon  the  data  itself. 
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As  in  MUTUR  (in  the  implicit  code)  use  of  the  'control  vector' 
is  introduced;  this  is  a bit-string  of  ones  and  zeroes  which 
controls  the  storage  of  data,  depending  on  the  presence  (or 
absence)  of  one-bits  in  the  string.  In  the  CHARAC  routine  the 
control  vector  has  as  many  bits  in  it  as  the  plane  (IL*KL/2). 
Elements  in  this  plane  are  updated  depending  upon  whether  the 
the  corresponding  element  of  the  control  vector  is  a one  or  not. 
The  control  vectors  may  be  manipulated  and  combined'  using  the 
bit  logical  operations  — .NOT.,  .AND.,  .OR.  ...  etc. 

A brief  glance  at  the  listing  of  CHARAC  in  appendix  C will  show 
that,  for  the  most  part,  the  scalar  variable  names  have  been 
retained  from  the  original  CHARAC  but  have  become  DYNAMIC 
variables  representing  arrays  (usually  of  IL*KL/2  size).  This 
can  create  some  confusion  on  the  part  of  analysts  familiar  with 
the  original  version  and  thus  some  care  must  be  used  in  reading 
the  listing  to  remember  that  almost  all  operations  shown  are 
array  operations'  and  not  scalar  operations. 

There  are  two  FORTRAN  constructs  used  here  that  do  not  appear  in 
the  implicit  code:  IF ( BIT0)Y (* ,* ,*)=Z(* ,* , *) 
and 

Y(*,*)=Z(JLIST(*,*)) 

The  first  construct  moves  elements  from  the  array  Z to  the  array 
Y depending  upon  the  presence  of  a one-bit  in  the  control  vector 
BITO.  The  second  construct  subscripts  the  array  Z with  an  array 
JLIST.  This  operates  as  follows: 

The  first  element  of  JLIST — JLIST(1,1) — is  used  as  an 
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integer  subscript  for  the  array  Z.  The  element  at  that 
position  in  Z is  then  moved  to  the  first  element  in  the 
array  Y — Y(1,1).  The  next  element  of  JLIST — JLIST(2,1) — is 
then  used  as  a subscript  of  Z and  the  data  moved  to  Y(2_,  1). 
.This  continues  until  all  elements  of  JLIST  and  Y are 
processed.  Obviously  JLIST  and  YLIST  must  be  conformal, 
but  Z need  not  be.  If  a subscript  in  Z is  out  of  range  of 
Z no  error  message  is  created. 

A third  construct  used  employs  the  Q8xxxx  in-line  call  for 
machine  language  instructions  that  is  referenced  but  not 
illustrated  in  the  FORTRAN  specification.  In  the  CHARAC  routine 
the  call  Q8NOBITSCBITO) 

determines  if  there  are  any  one-bits  in  the  string  BITO.  If 
there  are  none,  the  condition  is  TRUE  and  a branch  may  be 
triggered  by  that  condition.  This  call  is  used  to  'bail  out*  of 
the  DO  loops  when  all  elements  in  the  I-K  plane  have  become 
inactive,  to  prevent  unnecessary  passes  through  the  DO  loops. 

Examining  one  example  of  the  vector ization  technique  illustrates 
how  these  constructs  help  in  'parallelizing'  CHARA.C. 

DO  loop  10,  lines  1730  through  2060  of  VCHARAC , shows  the  means 
used  to  process  each  element  in  the  plane  separately,  while 
still  performing  vector  operations. 

First,  the  starting  value  of  the  DO  loop  index  could  be 
different  for  each  element  in  the  plane  depending  on  values 
calculated  for  elements  of  JLIST  in  the  preceding  loop.  Thus 
the  DO  10  loop  must  be  viewed  as  a parallel  set  of  DO  10  loops 
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(as  a matter  or  fact,  a whole  plane’s  worth  of  DO  loops),  each 
with  a potentially  different  starting  index.  The  DO  10  shown  is 
then  set  up  to  start  at  the  earliest  index  found  in  JLIST  (via 
the  function  Q8SMIN  which  returns  the  scalar  minimum  of  the 
entire  vector  JLIST),  and  the  loop  10  could  potentially  end  at 
JL,  unless  ended  by  a ’bail  out’  earlier. 

Once  launched  into  the  loop,  the  immediate  need  is  to  find  out 
which  elements  in  the  I-K  plane  to  process,  first  of  aTl , which 
elements  have  indexes  in  JLIST  that  have  not  yet  reached  the 
limit  JL.  This  is  accomplished  by  the  statement  at  1870 

BIT4=( JLIST. LE. JL) 

which  forms  a control  vector  at  vector  rates  from  the 
conditional  test  shown.  In  statement  1880  any  elements  (bits) 
from  this  control  vector  are  eliminated  if  they  have  already 
been  ’deactivated’  in  previous  loops.  This  information  is 
carried  in  the  bit-string  BIT5  (and  BIT3),  and  the  logical  .AND. 
operation  thus  provides  a BIT4  which  represents  all  active 
elements  at  this  time. 

The  ’bail  out'  check  is  then  made  at  statement  1890,  to  skip 
processing  entirely  if  all  elements  are  inactive. 

Statements  1900  through  1930  deal  with  temporary  data  areas 
where  there  is  no  need  to  worry  about  controlling  the  data 
storage.  Likewise  the  updating  of  YJK2  temporary  data  need  only 
be  controlled  by  the  condition  YJK2.GT.Y2.  Note  that  the  form 
shown  in  lines  1940  .and  1950  could  be  replaced  by  the  original 
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IF(YJK2.GT. Y2)YJK2=Y2 

however,  the  desire  was  to  explicitly  show  how  the  hardware 
actually  performs  the  operation  at  this  point  in  the  listing.  In 
later  examples  the  original  scalar  form  is  preserved  and  the 
programed  must  be  aware  of  its  vector/contro-l  vector  nature. 

Lines  I960  through  2010  then  update  key  data  arrays  based  on  the 
contents  of  the  control  vector.  Finally  at  line  2030,  a test  is 
made  to  determine  if  other  elements  should  become  inactive.  For 
all  remaining  active  elements,  the  individual  indices  are  then 
updated  in  JLIST,  and  a return  is  made  to  the  beginning  of  the 
loop.  It  can  be  seen  that  elements  can  become  ’deactivated’  in 
this  loop  by  having  their  individual  index  reach  the  limit  JL, 
or  by  having  the  computed  value  of  YJK2  for  that  particular 
element  become  equal  to  the  value  of  Y2. 

The  computations  in  lines  I960  through  2010  involve  the  use  of 
the  list  of  indexes  JLIST  rather  than  the  scalar  DO  variable. 

Thus  a potentially  different  value  of  Y may  be  used  in  the 
processing  for  each  element  of  the  I-K  plane.  The  operation 
implied  by  this  involves  performing  gather  operations  from  the 
array  Y.  The  Map  Unit  can  perform  both  gather  operations  for  a 
single  statement  such  as  1980: 

IF( BIT4)VI JK2=WT1 *HYV( JLIST )+WT2*HYV ( JLIST+1 ) 

In  this  example  one  map  and  one  vector  operation  will  be 
generated  by  the  compiler. 

The  use  of  index  lists  and  control  vectors  throughout  the  oth  er 
loops  in  CHARAC  follows  the  same  pattern  described  here.  In 
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some  cases  the  DO  loop  limits  rather  than  the  DO  indexes 
themselves  are  separate  entities,  and  in  the  case,  of  LOOP  38 
both  the  starting  and  -ending  conditions  are  individualized  for 
every  element  in  the  I-K  plane. 

6.0  IMPLICATIONS 

The  method  of  vectorization  shown  here  appeared  to  be  the  most 

straightforward  one  handy.  The  use  of  control  vector 

techniques  is  not  without  its  penalties,'  however;  as  more  passes 

are  made  through  the  loops,  and  more  elements  are  deactivated, 

the  efficiency  of  this  scheme  degenerates  quickly.  NASA  and 

Control  Data  mathematicians  firmly  believe  that  in  the  domain 

of  real  problem  solutions,  the  number  of  iterations  through 

each  loop  would  be  from  3 to  5,  as  the  ’waves*  tend  to  travel 

closely  together  in  real  physical  solutions.  In  this  instance 

then,  the  unused  calculations  in  the  I-K  plane  would  be 
£ 

discarded,  but  would  still  take  processing  time.  If  a 1/2 
reduction  in  elements  is  assumed  for  each  pass  until  the  last, 
then  the  number  of  useful  operations  would  be 

Pass  1 IL*KL/2 

Pass  2 IL*KL/4 

Pass  3 IL*KL/8 

Pass  4 IL*KL/1 6 

Pass  5 IL*KL/32 

while  the  number  of  actual  operations . would  b.e  constant  for 
each  pass  at  IL*KL/2  operations.  In  five  passes  5*IL*KL/2 
operations  would  have  been  done,  but  only  31*IL*KL/32 
operations  would  have  been  used  in  actual  results.  This  can 
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reduce  the  floating  point  rate  potential  of  the  vectorization 
by  a factor  of  31/80. 

If  it  turns  out  that  the  number  of  passes  required  to  resolve 
all  the  waves  is  quite  large  and  the  number  of  residual  active 
elements  remaining  from  pass  to  pass  is  quite  small,  then 
another  approach  would  be  called  for.  In  this  instance,  the 
structure  of  the  program  would  remain  the  same,  but  instead  of 
performing  controlled  storage  operations,  the  choice  would  be 
to  perform  compress  and  merge  operations  using  the  control 
vector  to  squeeze  the  I-K  plane  down  to  only  the  active 
elements  each  pass. 

In  the  section  on  performance  evaluation  of  the  metric  codes 
(see  Division  1)  the  impact  of  this  vectorization  technique  can 
be  seen  more  clearly. 
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APPENDIX  A 


VECTORIZED  VLYI  ROUTINE 


•BECK  VLYI2 

SUBROUTINE  VLYI 

c 

COMMON  /Ail/  RHO(3i. 31*31)  » RHOU (31 .31 . 31)  . RHOVf 31 t31 .31 ) 

COMMON  /A12/  SHOW  (31*31*31  i * 6(31.31.31)  . EK31.3l.31) 

COMMON  /A13/  U (31 .31 .31)  . VC31.31.31)  t ¥(31.31.31) 

COMMON  /A6  / RMUU3i.3l.3l) 

COMMON  /A3/  Y(3l)  ,0*CEUU3l>  , JS1 * JE1 . JS2 . JE2t JLFM. JL. YF. YH. 

1 Z<31) *OZC£LU Ol ) *KS1 »KE1 iKS2.KE2.KLFM.KL*  ZF.ZH 

COMMON  /A4/  ISHK.  1LE.  IE.  IL»  Kl.  K2.  K3*  K*.  KB 
COMMON  /AS/  GAMMA.  GAMM1 . GftMMPR . CV.  CVl«  STOKES.  UO.  CO. 

1 PO.  RHOO.  RL.  XQ 

COMMON  /A7/  OXtOXl.OY.OUMOYl.OZ.OOl.EIWAU.IAOBML.OT.CFU.CONST 
COMMON  /AS/  ISMTHX. ISMTHY . ISMTHZ.  LYICNT.  LYCCNT.  LZCCNT.  LZ1CNT* 
1 * NLYI.NLZl . SET  ft . SETA 1 » CRKN I S 

COMMON  /SBC/  SBC (3l .31.5)  . SBCN 

COMMON  /ANOL/  T ANT (32) * C0ST{32)»  TANTHi TANTHB. COSTH.COSTSO.SECTH 
COMMON  /A 2/  PDUM( 32p  5)  * CP<32) 

COMMON  /TRIO/  KLE" 


dimension 


UP(31*23.3)  . VP (31 » 23.3) 


UK31.23) 
USQ(31.23) 
AA (31 « 23) 
AA£(3l.23> 
FFU (31  .‘23) 


'.  VI (31 .23) 

. VSQ (31 .23) 
. B8 (31 .23) 


. MI (31 . 23)  . 

« MSQ (3l . 23)  .EH  (31.23)  * 
t CC ( 3 1 * 23)  . 


BBC (31 .23) . CCE (31.23) 
FFV (3l . 23)  • FFM (31 « 23) 


DIMENSION  FFUSQ (31.23) .FFVSQ <31 .23) .FFWSO (31 .23) .FFEI (31.23) 
DIMENSION  FUSQ (31.23) > FVSQ(3l>23).  FWSQ(31*23) 

DIMENSION  ETA (31 .23) . RKAPPA (31 .23) . RLMBOA (31 .23) 

DIMENSION  FOl.23.5)  . P(3l»31).  PROICT ( 31 .31 . 5) 

DIMENSION  DYl(31,a3» ,OZi (3l»23) * DTOROY (31 . 23) 

DIMENSION  OISX (31.23) . 0!SY(3l.23>»  OISZ (31.23) 

OIMENSION  GUPK2(3l).  GVPK2(3l).  GWPK2(31) 

OIMENSlON  RH0I(31.2q).  RMU(3l.23)»  RK 01.23) 

DIMENSION  OYSELL (31 . 23) 

OATA  FORTH  /t ,3333333333333/ 


DO  2 J=1 » JL 
P(l.J)  * CP(J) 

2 CONTINUE 

CALL  ROTATE  (RHO  . 
CALL  ROTATE  (RHOU  » 
CAU.  ROTATE  (RHOV  . 
CALL,  ROTATE  (RHOW  • 
CALL  ROTATE  (E  * 
CALL  ROTATE  (El  * 
CALL  ROTATE  (U  * 
CALL  ROTATE  (V  . 
CALL  ROTATE  (W  . 
CALL  ROTATE  (RMUL  . 
TSTR  * SECONO  ID) 
LYICNT  * LYICNT  ♦ 1 


IL.  UL»  KL) 
IL.  JL.  XL) 
IL.  JL»  KL) 
IL»  JL  * KL) 
IL.  jL.  KL) 
IL.  JL.  KL) 
IL.  JL.  KL) 
IL.  JL.  KL) 
IL.'  JL.  KL) 
IL.  JL » KL) 


» HOD (LYICNT . 2) 
* FORTH 


KLEN  * KE2  - 1 


DX2  si  ,5*0X1 
C 

C - SETUP  VECT  EQUIV  OF  On.DZl.  AND  OYCELL 


3-A-1 


■ <US 


0Z1  <2*llKLEN>*l,/U(3lKL£Nl-zmKLEN> 3 
00  251  J*i t J£1 
DYl  (*tvl)*l«/(Y(J*l)  -Y  ( J3  3 
OZl<*tJ)*OZU*t  1) 

OYSELL  (* , J) «OYCELL { J) 

251  CONTINUE 
C 

C-  ALU  PRIMARY  VARIABLES  ARE  INDEXED  BY 

c-  vectors  are  on  k for  «»2*kez  iklen;»ke2-i) 
c - main  loop  is  on  i 

C IN  OROER  TO  MARCH  DOWN  STREAM 
C 

DO  1 1*2 t IE 
TANTH*TANT(IJ 

TANTH0*,25*<TANTU*n  ♦TANT(I-i3 ♦2«*TANT ( I) 3 
COSTH  * COST  (13 
SECTH  » !♦ /COSTH 
COSTSQ  w COSTH*COSTH 
TANTM  * 1*0  * TANTH#TANTHB 
C 

C**  »***  CALL  PRESTY(i,K,1,JS2»0) 

C 

PRDICTt*»llJS2>13- * RHO  (*♦  l JUS2«  I ) 

PRDICT(**UJS2,2)  * RHOU<*tl*JS2.I3 
PR0ICT(**1US2*3)  « RHOV  (# 1 1 1 JS2 • I ) 

PROICT  t*» l I JS2»4)  * RHOW { * > i l JS2 * I J 
PROtCT(**UJS2*5)  * E t*«l S JS2t I) 

P (•*  1 1 JS2)  * 0AMMl«RH0(*»lUS2*n*EI(*»ltJS2»I) 
P(«*13*P(*»2> 

C 

C 

C-  BUFFERS  FOR  UP  . VP  K3»I-i  K4*I  K5*U1 
C 

K6*K3 

K3*K4 

K4*K5 

K5*K6 

IF { I «N£,2i  GO  TO  4 

UP<*il*  JS2*K3)*U<*»1US2*13  *TANT < 1 3 *VT*» 1 IJS2#13 
VP<*fllvlS2#K3)«V{*ttlvJS2#U-TANT(13*U<*tllJS2*l) 

UP  (•« 1 1 JS2»K43  *U  t •* 1 1 J52 1 2) *TANT (2)#V(*»liJS2*2) 

VP(*tl IJS2*K4)«V<*tl IJS2»2)*TANTl2)*U<*»ilJS2»2) 

4 CONTINUE 

UP(*UIJS2tK5)«U<*#llUS2,IM)  *TANT ( I* 13 *V <®. 1 1 JS2* I* 13 
VP  t*t 1 I jS2tKS) «U (*» I f JS2> I*i3-TANT (1*1) *U{*«ltJS 2*1+1) 
C 

C PASS  TWICE  FOR  TIME-MEAN  OF  R«H,S • 

C 

00  70  N«l»2 
C 

C SET  UP  IMPLICIT  VBLS 
C UI>VtfWI«£lI »USG* V5Q t *SQ 
C 

RHOt (*tJSl l JS2)*1*/RH0 (*» JSl t JS2»X) 

•i 

UI | JS2) *{RHOU{*, JSI I JS2»I) ♦TANTH* 

1 RH0V<*#US1 I JS2*I) )*RHOI {*» JS 1 i JS2) 

VI(»*JS1IJS2)-<RH0V(#*JS1US2,1)-TANTH* 

1 RHOU  JSIUS2. 1 > 3 *RHGI  {*♦  JSUJS2) 


000730 

000740 

000750 

000760 

000770 

000780 

000790 

000800 

000810 

000820 

000830 

000840 

000850 

000860 

000870 

000880 

000890 

000900 

000910 

000920 

000930 

000940 

000950 

000960 

000970 

000980 

000990 

001000 

001010 

001020 

001030 

001040 

OOIOSO 

001060 

001070 

001080 

001090 

001100 

001110 

001120 

001130 

001140 

001150 

001160 

001170 

001180 

001190 

001200 

001210 

001220 

001230 

001240 

001250 

001260 

001270 

001280 

001290 

001300 

001310 

001320 

001330 

001340 

001350 


3-A-2 


HI {** JS1 | JS2} *RHOH (**JSllJS2tI>  *RHOI l*  * JS 1 1 JS2 J 
> 

USQ {*t JS1 * JS2) *UI (*t JS1 J JS2) *UI (*• JS1 I JS2) 

VSQ  {*tJSl  t JS2) JS2>*VI  (*t  JSI I JS2) 

USQ { * » J5 1 t JS2) *WI (*♦ JS1  i JS2)  *H| <*tOSl  t JS2) 

£IIl*iUSllJS2)«Et*tJSlUS2»I>*RH0n*»JSllJS2) 

1 -.5M  (USQ<*iJSll  JS2)*VSQ(*»JSUJS8)  )• 

2 COSTSQ  ♦ W5Q  <#tOSl 1 JS2) ) 


8 CONTINUE 
NMl.N-1 
B»D/N 

UX  < *♦ l) «Ul (*  t2) 

Wl(*»U*Wlt*t2> 

vn*ti)*-vn*t2> 

USQ(*ti)*USQ(**2) 

VSQ  <*> i) *VSQ {• 1 2S 
HSQ (*i 1) »*SQ {• *2) 

Ell < *« 1) «EI 1 1 * *2  > 

IFU.LT.XUEJGO  TO  7 

!F  t IAOBwL»EQ*0  ) ElI<*.l>«2**EI*ALL-EIt<*,H) 

* UI 

7 CONTINUE 

Al  * FORTH 

* A2*1.0 


C 

CALL  G1 (1  JJ) 

C 

Jl*l 

J2*JE1 

J1P*J1*JADD 

J2P*J2*JADD 

K1H*0 

K2HbKE2«»1 

kip*2 

K2P«KE2*1 

RMU ( * » 1 1 JE1 ) ■ RMUL {*i JlP ! 02P » I) 

RK(**UJ£I)  * GAMHA«RMU  ( * ♦ 1 1 JE 1 ) 

RUMSOA(**II JE1)  * STOKES*RMU{*tII JED 
F { # * J I f J2  » 2 ) « -RMU <•* J1 t J2) MVP<»»JlPt J2P»K2>- 
X Vp(*f JIPI J2Pt*3)  -TANlH* (UP<*»JlPl J2P»K5) * 

2-  UP{«iJ1P*02P*K3) ) )*0X2 

' F<*fJUJ2t3)  * -RLH80A(*f JUJ2J«SeCTSQ* 

1 ttU«*tJlPl J2P»I*l>-U(*tJlPl J2P»I-D ) *0X2 

2 ♦tW(KlPtK2PfJXPt J2P.I)-W<KlMtK2MTJlPlJ2P»I) )* 

3 0Zl(**JilJ21> 

A ♦2«*RMU  t*» J1 t J2) *TANTH* (VP(*tJlPtJ2PtK5) 

S -VPt**JlPl  J2PtK3)  }*0X2 

C**«OTE  - THE  INOEX  ON  THE  DELTA  W TERM  IS  OUT  OF  ARRAY  BOUNDS 

C IN  THE  ABOVE  expression 

C 

F (*t  Jll  J2»  A)  a -RHU<*,JlU2)«U{V(KlPtK2P,JlPlJ2PtI) 


001360 

001370 

001380 

001390 

001400 

001410 

001420 

001430 

001440 

001450 

001460 

001470 

001480 

001490 

001500 

001510 

001520 

001530 

001540 

001550 

001560 

001570 

001580 

001590 

001600 

001610 

001620 

001630 

001640 

001650 

001660 

001670 

001680 

001690 

001700 

001710 

001720 

001730 

001740 

001750 

001760 

001770 

001780 

001790 

001800 

001810 

001820 

001830 

001840 

001850 

001860 

001370 

001880 

001890 

001900 

001910 

001920 

001930 

001940 

001950 

001960 

001970 

001980 


3-A-3 


1 -V (KXM!K2H,JlfMJ2P.I)*TANTH*tU(KlPlK2P,JlPlJ2P,I>  001990 

2 ) >*0Z1I**J1U2) ) 002000 

3 MW<*tJlPlJ2P*lM>-*M**dlPlJ2P? I-I) ) *0X2*TANTHB1  002010 

C 002020 

C*»NOTE  - THE  INDEX  ON  DELTA  V AND  DELTA  U IS  OUT  OF  BOUNDS  002030 

C 002040 

F (#» Jl 1 J2t5)  ■ TANTH*RK (»tdltJ2 )*(£!( M J1P1J2P  * !♦  1)  002050 

1 -Et (♦.JlPlJ2PtI*l) )*OX2  002040 

FUSQ { * » Jl t J2)  « (UP(**JlPt J2P,K4)*UP(MJllJ2*K4)>*F(*tJl!d2.2)  002070 

FVSQ (*? Jl  I J2)  * (VPt*«JlP|J2P»X4)  ♦VPt*»JUJ2fK4>  J*F{*»JU  J2f3)  002080 

FWSa  {♦»  Jl  M2)  « <W(*f  JlPiJ2P,IM4t*»JUJ2,IJ  )*F(*»vlllJ2f4)  002090 

ETA t J 1 1 J2)  * TANTM*RMU(*?J1*J2)*DY1 (**J1I J2)  002100 

RKAPPAt*, JUJ2J  * TANTM*RK(*tJlI J2)*DY1  (*,J1I J2)  002110 

END  OF  Gt  SU8R , 002120 

c 002130 

C 002140 

C*»  NEEO  TO  MODIFY  OUTPUT  OF  GI  FOR  THE  J*1  CASE  002150 

C 002160 

FVSQ (•* 1 J « 0.0  002170 

Jl  * JS1  002180 

J2  * JE1  002190 

JIM  a Jl-1  002200 

J2M  n J2-1  002210 

J1P  * JIM  002220 

J2P  * J2-1  002230 

DISX  (•«  Jl  t J2)  * «.5*(  (UP(#»JlPtJ2P*K4)-UPt**Jl*J2.K4)  > *F ( *. Jl I J2» 2) 002240 
1 ♦(UPC**JUJ2»K4)-UP(*t  J1M|J2M*K4) > *F <*♦ JIMl J2Ht2> ) 002250 

C 002260 

0ISY<*tJllJ2)*-,5M (VP(*.JlPlJ2P*X4)-VP(*.Jl UZ*K4) ) »F(*«J1 IJ2t3)  002270 
1 MVPfMJU  J2tX4)-VP(*tJlMtJ2M*K6) > «F <*♦ JIM! J2H. 3) ) 002280 

C 002290 

0lS2{*tJllJ2>«*.5*(  <¥<**JlPl  J2P»I)*W(**UUJ2tI)  )*F{*fJlJJ2*4)  002300 

1 *(W(*tJll  J2»I)-W<**J1MI  JZHM)  )*F(*tJlMi  J2M.4) ) 002310 

C 002320 

OTDRDY (« i Jl 1 J2J • ( 1 .0*8ETA) *OT/ (OYSELL (*< Jl l J2) *RHO {*» Jl I J2t I > ) 002330 


002340 

002350 

002360 

002370 

002380 

002390 

002400 

CT02410 

002420 

002430 

002440 

002450 

002460 

002470 

002480 

002490 

002500 

002510 

002520 

002530 

002540 

002550 

002560 

002570 

002580 

002590 

002600 

002610 


C 

C***#*CALL  DlAGON 
C 

CRKNIS  e l./NLYI 

8S (*» Jl 102) *-OTDROY | Jl I J2) *ETA t *• Jl I J2>  *CRKNJS 
CC <*t Jl 1 J2> *-OTDROY  Jl | J2>  *ETA  <*» J1P  t J2PI *CRKNIS 

AM  * t Jl I J2 J »* { 89 { * » J 1 1 J2 ) *CC ( * ♦ J 1 t J2) 3 
C 

8eE(*t Jl I J2) ■•OTOROY (*»JltJ2) *RKAPPA(*» Jl i J2) *CRKNIS 
CCEt*tJlU2)*-0TDR0Yt#*JiiJ2)*RKAPPA(*.JlPlJ2P)*CPKMlS 
AA£(**J1 I J2)  »*•  (88E  Jl  l J2>  *CCE  (*♦ Jl J J2) ) 

C 

FFU{#tJl  W2)«UI  (*» Jl f J2)  ^OTOROY  (♦♦  Ji  *J2)‘* 

1 {F(*tJllJ2#2)*F (*t J1MI J2M»2) ) 

C 

FFV<MJllJ2)«VIl*#JllJ2)-0TDR0Y(MJlU2># 

1 {Fl4tJllJ2t3J-F(*»JlMIJ2M*3) ) 

C 

FFW<*t  Jll  J2)*WI <*#  JH  J2)  -OTOROY  (♦.  Jl  I J2)* 

1 lF(*tJllJ2i4)-F(**JlMlJ2M*4> 1 

C 

FFUSQ  <#» Jl I J2) »USQ (•» Jl JJ21 •OTDRDY {#tJllJ2)# 

1 {FUSQ<#t Jl i J2) -FUSQ (*• J1HI J2H) ♦2.*0ISX <*? JH J2) > 

C 

FFVSQ (*• Jl I J2) «V$Q(*» Jl U2) •OTDROY {*♦ Jl t J2>  * 
l {FVSQ (• t Jl 1 J2J •FVSQ  f#tJlMlJ2M)*2.*OISY{#»JllJ2)) 

C 

FF*SQ  <•» Jl t J2) «WSQ(M  Jl I J2) '•DTOROY (•* Jl f J23  * 
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1 <FuSQ<**JllJ2)-F*SQ<*tJlHtJ2HM2.*0ISZ<*»JllJ2>  > 

C 

FF  El  c*f  JlIJS)-OTOROr  <**JliJ2M 

1 tPl*iJlU2i5)-F<**0lH*JaMt5>-C0STSQ«- 

2 (OtS*  t** J1 1 J2 J ♦OISY{**JllJ2) )-0ISZC*tJl t J2> ) 

C 

c*«note**  last  part  of  ougon  is  skipped 

c 

c 

£••«•#**•••••»•«*  ENO  OF  01  AGON 
C 

10  CONTINUE 
C 

C MODIFY  FOR  J-JEl 
C 

JvJEl 

FFU?**J)«FFU<»*J)-CC<*,J>*UI(*.JM> 
FFV(*,J)*FFV(*,J)-CCt*.J)*Vl (*t J*l)  *A3 
rfrW(*,J}  *FF¥<**J)-CC<**J>«*I<**J*1) 

FFUSQ<^J)*FFUSQ<*»J>  -CC  (*  • J)  *USQ  t*  * J*  X) 

FFWSO(*»J)  *FF*IS3  (*  * J)  -CC  *WSQ  {*t  JM ) 

ffei (*»j)*ffei (*tjj-ccE(*»di*eii(*»j*n 

FFVSQ(«»J>*FFVSQi»*U)<.  FORTH  *CCl*tU>* 

1 VS0(*»J^1) 

CC(**J)*0«0 
CCE(**U)*0,0 
IF<NLYUEQ.l)  go  TO  11 
c 

c Special  rory  conoition 
c 

11  CONTINUE 
Al-UO 
A2*0  *0 

IF < I .LT « ILE)  Al»-1.0 

c 

c 

CALL  V7RI2<Ul#AA*Ba*CC»FFUfAlfA2* i*0»JSl,OEl> 

CALL  VTRl2<WItAAiBB«CCtPFWiAl f A2» WOtJSl.JEl) 

CALL  VTRI2 * Vt • AA*Bb  *CC  *FFV »1*0*A2*A3*JS1»J£1) 

j»jsw 

UI  (*»J>«-UK*tJ*l) 

VI l * t J ) I ( * * J * 1 ) 
wt(«,  ji  *-wi  (*»  J*n 
IFU.GE,ILE>  GO  TO  12 
WI (*♦  J) *wl (*» J*i) 

un*.j>*un**j*i) 

12  CONTINUE 

c 

C Old  00  13  LOOP 
c 

J1  * JSl 
J2  * JE1 
JIM  * Jl-1 
J2M  a J2-1 
JlP,a  Jl*l 
J2P  • J2*l 

DISX(#iJ1U2)*-%5*{  <UI  l«tJlPl  J2P)-UH*iJl  I J2J  ) **2 

1 *CC(*f  Jll  J2)  ♦lUIt*tJl  lJ2)-un*,JlMlJ2M))**S 

2 •68t*tJllJ2n 


002620 

002630 

002640 

002650 

002660 

002670 

002680 

002690 

002700 

002710 

002720 

002730 

002740 

002750 

002760 

002770 

002780 

002790 

002800 

002810 

002820 

002830 

002840 

002850 

002860 

002870 

002880 

002890 

002900 

002910 

002920 

002930 

002940 

002950 

002960 

002970 

OO290TO 

002990 

003000 

003010 

003020 

003030 

003040 

003050 

003060 

003070 

003080 

003090 

003100 

003110 

003120 

003130 

003140 

003150 

003160 

003170 

003180 

003190 

003200 

003210 

003220 

003230 

003240 
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c. 

0ISY(*iJllJ2)*-.5M{VIC*,jlPld2P)-VI<*tdliJ2n**2 
X *CC(*tJlIJ2)*tVI<*,JlJJ2}-vr(*»JXHU2Hn**2 

Z *88(**JllJ2n*A3 

c 

0lS2{*»JllJ2)«-,5®((WI{*tjXPlJ2P)-tfI{OtJliJ2J}«2 
1 *CC<*tJltJ2) * (*I (**  Jl  t J2)  **WI (*»J1M|J2M) )**2 

Z •0B(**JUJ2)) 

C 

FFUSQ(*,JXlJ2)*FFUSQt*tJll02)^2.*0ISA«*,JX»J2) 
FFVSQ<»tJllJ2)*FFVSQ(#»Jll  J2)^2,*0rSY(*,JXU2) 
FFWSQ(**J1IJ2)«FFWSQ(**J1»J2)-2.»DISZ(«,JHJ2> 

C 

FFEI (*i J1IJ2J-FFEI <**JltJ2M ( (OISX (*, Jl i J2) ♦ 
l DlSY  (•* Jl l J2) J *COSTSQ*OlSZ(*»JiiJ?) J 

13  CONTINUE 
Al*-1.0 
A 2*0 VO 

CAUL  VTRI2(USQtAA.QB*CCtFFUSQ,Al,A2*X.f JSX»JEl) 

CALL  VTRl2<WSQtAA*e8tCC*FFWSQ*Al,A2»l.#JSl*JEl) 

CALL  VTRI2  (VSQ*AA*eB*CC*FFVSQfAl.A2*A3tJSl»JEl) 

IF { IA08WL  .EQ.  0 .AND.  I «GE,  ILEJ  A1*1.0 

IF  < lAOawL  .EOo  0 .and.  I .GE*  ILE)  A2»2,*EIWALL 

CALL  VTRI2  (Ell * AAE*68EtCC£*FF£l » A1 • A2t l . * JSX • J£1 ) 

C 

C 

C OLD  00  14  LOOP 
C 

Jl  * JSl 
J2  * j£l 

IF (N  . EQ  * 2)  GO  TO  141 
C 

C N«1  CASE 
C 

PR0ICT(**J1  ld2t2)a(RH0(*»JllJ2*n»<UI  (*,JUJ2) 

1  •TANTH*VI(»*J1  W2n*COSTSO*8ETA*ftH0U(**dlld2t  m*BETAl 
PROJCT (*»J1 t J2t3) * (RHO  <** Jl I J2» I) *(VI (** Jl l J2) 

1 ♦TANTH*UI (*  * Jl I J2 i ) *cOSTSQ»8ETA*RhOV (*» J1 f J2t I ) »*8ETA1 

PRDICT(*. J1 I J2*4) *(RHO(*, Jl t J2tl) *WI (*i J1 l J2) 

1 *B£TA*RHOW < • * J I j J2 . 1 ) > *0ET A l 

PROlCT(*tJXlsI2f5>*(RHO(*tJl(  J2il)  *(EH  (*»J1  U2>* 

1 .5* ( (USQ {•* Jl 1 j2) *VSQ(«*J1 l J2) )*COSTSQ* 

2 VSO (*  * Jl l J2 ) ) ) ♦0£TA*E(*.J1 1 J2. I > ) *BETA1 
60  TO  142 

141  CONTINUE 
C 

C N*2  CASE 
C 

PRDICT(»,JllJ2*2)a<  (PR0ICT(*»JUJ2#2)* 

1 RHO  <*  * Jl J J2» I ) # (UI (** Jl I J2) •TANTH*VI t*» Jl ! J2 J ) 

2 *C0STSQ)*.5*aETA*RH0U(*.Jll JHtI) )*0ETA1 
PR0IC7 (** Jl I J2»3) * ( (PftOICT(4> Jl I J2«3>  * 

1 RHO (#«JltJ2«I)M(VI(»tJl)J2) ♦7ANTH*UI ( ♦. Jl I J2 J ) 

2 *COSTSQ>*.S*0ETA*RHOV (♦ * Jl I J2» I ) ) *BETA1 
PRDICTl*»dllJ2»4)*(<PRDlCT<#tJlJJ2f4)* 

1 RHO(* tdl I J2* I) ##t  (*»jlU2)J**5 

2 ♦BErA*RH0W(*.JllJ2,I) )*B£TA1 
PROICT (** Jl I J2*5) *< IPRDICT  t*i Jl I J2i5) ♦ 

1 RHO ( #i Jl I J2 r I J *(EIX(*tJllJ2>*»5#( fUSQ(#i Jl f J2) 

2 ♦VSq(*»J1IJ2) )*CQSTSQ**SQ(*fdll J2) j ) )*,5 

3 ♦8ETA*E (•♦JIIJ2,I) ) *8ETA1 

142  CONTINUE 
C 


003250 

003260 

003270 

003280 

003290 

003300 

003310 

003320 

003330 

003340 

003350 

003360 

003370 

003380 

003390 

003400 

003410 

003420 

003430 

003440 

003450 

003460 

003470 

003680 

003490 

003500 

003510 

003520 

003530 

003540 

003550 

003560 

003570 

003580 

003590 

003600 

003610 

003620 

003630 

003640 

003650 

003660 

003670 

003680 

003690 

003700 

003710 

003720 

003730 

003740 

003750 

Q03760 

003770 

003780 

003790 

003800 

003810 

003820 

003830 

003840 

003850 

003860 

003870 
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DEFINE  K2 

K2  * j£l 
CONTINUE 

SPECIAL  B*C*  AGAIN 
J-JEl 

GUPK2(#)  »»{RMU(**  J)*  (UI{*»J*1 ) • 

1 UK**jn*OYl  (•* J)-Ft*t*2*2)  )*CRKNI$ 

GWPK2 1*>  *- (RMU (*1 J> ♦ (WI (**J*1>- 
I WI  <*tj>  )*OYl(*f  JUF(«*K2*4)  >*CRKNI5 

GVPK2t«)n-(A3*RMU(**J)*<Vt<*iJM)- 
1 VI (*.J>)*DY1(*iJJ-F<*iK2,3> )*CRKNIS 

SBC  t ** I »2) "SBC (*1 I *2) * <GUP*2 {*) 

1 -*TANTH*GVPK2  (*)  > •COSTS® 

- S8Ct**l*3>*S8C<*>I*3)*<GVPK2<«> 

1 *TANTH*GUPK2(*n  •COSTS® 

SBC(«»If4) "SBC (*»!»*) *GWpk2 (*) 

S6C{«tI*5>"SBC(*fI*5> ♦<-RMU(*iJ>* 

1 (USQ<*tU*n-US«  FORTH  * 

2 <VSQ<**J*n-VS®<**J>  )*OYl  <*.J> 

3 *FUSO<**K2J*FVSQ<*tK2> )*COSTSQ 

4 *RHU(*tUJ  *<WSQ<<SJ*l)-wSQ{*tU) )*0Y1(*»J> 

5 ♦F*SQt**K2> 

6 -Ell  (♦•J)  )*OYU**J)  ♦F(#tK2*S))  #CRKNIS 


MODIFY  JAOD 

jadd*moo  (JAoo-r*a) 

►••«•«••••  CALL  PRSETY  {I iK«USIt JE1 *2) 

RHOI (•« JS1 t JE1) *1 «/PR0ICT (*t JSl I JE1 * 1 > 

U(*tJSllJEl*I) *PROICT (**JSllJEl*2) *RH0I f®* JS1 I JE1) 
V<**JSll  jEl»n=PROlCT(*,OSH  JE1*3)*RH0[  (•♦JSUJEl) 
Wt*»JSll  jElin  "P«OlCT(*iJSll JEl»*)*RH0l <**JS1 JJEl) 

EI(**jSliJEl»U "PROICT f*tJSllJEl*5J  *RHOI (*? JS1 1 JEi ) 

1 1 JEI * I ) **2  T>**2 

2 ♦ W(*tJSllJEltn**2> 

P(«iJSl idEI)"GAMMl*PflDICT{*»JSliJEIf I)*EI ( * t JSl I J£1 ♦ I ) 
IF  t JS1  *LE«2)  P«»*U=P(">2) 

CALL  BCY  (K.Ii  tij51*JEi> 

C 

U(**l#I)*U{*t2tI> 

!)**<•, 2, I> 

ei(*,i»i>*ei<#*2»i) 

IFdtLT.ILE)  GO  TO  253 


0038B0 

003890 

003900 

003910 

003920 

003930 

003940 

003950 

003960 

003970 

003980 

003990 

004000 

004010 

004020 

004030 

004040 

004050 

004060 

004070 

004080 

004090 

004100 

004110 

004120 

004130 

004140 

004150 

004160 

00*170 

00*180 

00*190 

004200 

004210 

004220 

00*230 

004240 

004250 

004260 

00*270 

004280 

004290 

004300 

004310 

004320 

004330 

004340 

00*350 

004360 

004370 

00*380 

004390 

004400 

004410 

004420 

004430 

004440 

00*450 

00*460 

004470 

004480 

004490 

004500 


p9o# 
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U(*f  WI)*-U<*»2*IS 

IF(IAOBWL#EQ*0)  EI<*tl*I>«2*ElWALL-ElC*.2*I) 

253  CONTINUE 

IFtIoNE#l£>  GO  TO  255 
U (•♦jSlUEl.IUaU  (*,JSllJEltIE> 

V t**jSl?J£l,IU»V  (*  » JS1 1 JEX*IE) 

W (**jSlidEl.lU»«  (*» JSlIJEltlE) 

El  (•*  JS 1 1 JE1 » IU  *ei<*«JSl*JEl,IE) 

255  CONTINUE 
C 

C SET  THE  B • C • FOR  ENOS  OF  K-PENCIlS 
C *•*  SCALAR  OPERATIONS  *•* 

c 

00  256  J-JS1.JEI 
Utlf JeI)*U(2tU?I> 

VUrJ*I)*V(2tJ»I) 

EmiJfIJ*EI(2»J«I) 

U (Kl» J* I ) *U (KE2» Jt I } 

V(KLiJ*I)«V<KEetjfl> 

W(KLtJ»I)BW(KE2«JtI) 

EI(KL*JW)*El(KE2fU»I) 

IF  [IpLT.IL£>  GO  TO  256 

UafJfI)*<*U<2fU*X) 

vdf 

IF  ( IADBWL«EQ«0)  EIU#JtI)*2#*EIWALL-El(2.J*n 

256  CONTINUE 

END  OF  0CY 
C 
c 

c now  update  up*vp  for  n»2  pass 
c 

UP(*»1I  JS2*K*)»U<*«ItJS2*t)*TANT(n«V(*,HJS2.n 

VP<#tll  jS2*K4>tiV{*tlldS2«I)-TANTm«U(*tl  JJS2»I) 

IF  (I*NE.IE)  00  TO  70 

UPC*, 21  JEl*KS)*U<*»2f  JEI,I*1)*TANT(IM><*V<*»21JE1,I*1> 
VP<*t2IJEl.K5)*V<*,2lJElf  IM>-TANT(IM)*U(**2IJ£1»IM) 


C 

C « END  OF  00  70  N*l»2  LOOP 
C 

70  CONTINUE 
C 

C«**««**»»*««»*«*  CALL  PHSETY(I*K.JSlf JE1»I) 
C 

RHO  {♦*JSHJE1#I>«PR01CT<**J$UJEI.1> 
RH0U(**US1  t*JEl  * I)  ■PROICT  (*f  US1  tUEl  t2) 
RHOV (*» JSl IUE1 * I J *PROICT {♦iJ$llJEi*3> 
RHOw (*•  JSl  t UEl 1 1)  »PROICT (*iJSlt'JElt4) 

E (*i JS1  I>IE1 1 1 ) *PROICTC*» J$1 I JEI  *5) 

C 

C - ENO  OF  00  1 I*2t IE  LOOP 
C 

l CONTINUE 
C 


004510 

004520 

004530 

00*540 

004550 

004560 

004570 

004530 

004500 

004600 

004610 

004620 

004630 

0Q4640 

004650 

004660 

004670 

004630 

004600 

004700 

004710 

004720 

006730 

006740 

006750 

006760 

006770 

004760 

004790 

004600 

004810 

004620 

004630 

004840 

004650 

004660 

004870 

004880 

004690 

004900 

004910 

004920 

004930 

004940 

004950 

006960 

006970 

004960 

004990 

005000 

005010 

005020 

005030 

005040 

005050 

005060 

005070 

005060 

005090 

005100 

0051X0 

005X20 

005130 
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C***w;*«*#CALt  OUTER  (JS1.JE1.KS1.KE2)  005140 

C 005150 

C - DOWNSTREAM  8.C*  AT  I*iL  005160 

C 005170 

RHO  (KSliKEltJSlIJEUILJ  * RNO  (KS1  |KE2»  JSU  JEl  t IE)  005180 

RHOU<KSliKEl.JSlljeitlU  * RHOU(KSllKE2»JSl!JElfl€)  005190 

RHOV ( KS 1 1 KE1 » JS1 1 JEI » IL)  • RHOV { KS1 1 KE2 * JS 1 1 JE1 * IE)  005200 

RHO*(KSl|KEl»jSllJElflL)  * RHO* (KSl 1KE2* JS1 t JE1 . IE)  005210 

E (KSltKEl.JSUJEl.IU  * E (KSl |KE2, JS1 I JE1 . I£>  005220 

005230 

005240 

- SKIP  8#C«  FOR  J*JL  005250 

005260 

• EDGE  8,C.  AT  K*KL  005270 

005280 

**  SCALAR  •*  005290 

005300 

00  259  jsJSl * J£1  005310 

00  259  1*2 * IE  005320 

RHO  (KL.J.I)  « RHO  (KEa.J.I)  005330 

RHOU (KL. J. I ) * RH0U(KE2iJ.I)  005340 

RHOV(KL.J.I)  * RHOV  <KE2» J. I)  €05350 

RHOV (KL. Jt 1 ) * RH0W(KE2 » Jt I)  €05360 

E (KL  t J. 1)  ■ E <KE2.v).I>  005370 

259  CONTINUE  005380 

005390 

' TONE  * SECOND  tO)  005400 

TIME  * TONE  - TSTR  005410 

WRITE  (6.900)  TIME  005420 

900  FORMAT  l 1H0*5Xi  6HHME  * * FI  0 • 6 * 3X  , 4H5EC  « ) 005430 

005440 

00  240  J*1*JL  005450 

CPU)  * P(WJ)  005460 

240  CONTINUE  " 005470 

CALL  UNROT  (RHO  t IL.  JL.  «L)  005480 

CALL  UNROT  (RHOU  . IL.  JL.  KL)  005490 

CALL  UNROT  {RHOV  * IL.  JL.  *U  005500 

CALL  UNROT  (RHOW  * IL.  JL.  KL)  005510 

CALL  UNROT  (E  » IL * JL.  XL)  005520 

CALL  UNROT  (El  » IL.  JL.  005530 

CALL  UNROT  (U  » IL.  JL.  «L>  005540 

CALL  UNROT  (V  t IL t JL.  XL)  005550 

CALL  UNROT  (W  . IL.  JL.  XL)  005560 

CALL  UNROT  (RMUL  . IL.  *JLt  XL)  005570 

RETURN  005580 

* END  005590 
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APPENDIX  B 


VECTORIZED  VLX  ROUTINE 


SUBROUTINE  vlx 

c 

C LX  OPERATOR 

c 

COMMON/A11/  RHQ (31*31*31) ,RH0U (31*31*31) ,RHOV <31 ,31 #31) 

COMMON/ A1 2/  RHOW (31 #31*31) #E (31 *31 #31 ) ,EI <3l #31 #31 ) 

COMMON/ M 3/  U <31, 31 #31) , V (31 ,31 ,31 ) tW <31  * 31 ,31) 

COMMON/ A2/  PR0ICT(32#5) ,P(32) 

COMMON/A3/  Y(31) tOTCELL (31 ) ,US1 , JE1 » JS2, J£2,JLEH( JL# YE, YH 
I t Z (31 ) iOZCELL (31 ) #KS1.KE1,KS2,KE2,KLSM,KL#ZF#ZH 

COMMON/ A4/  lSHK,IL£elEtlLt^l,«2#K3#K4,K5 

COMMON/ AS/  GAMMA, GAMM1,GAMMPR,CV,CV1 • STOKES *U0 *C0#P0 , RHOO»RL»XO 
COMMON  /A6/  RMUL  <31 ,31 ,31) 

COMMON/A 7/  DX,OXl#OY,OYl,OZt  OZl »£IWALL» IAD8WL  , OT,CEL, CONST 
COMMON  /a3/  ISMTHX, ISMTHY * ISMTHZ, 

1 LYICNT*  LYCCNT ? LZCCNT,  L2ICNT, 

2 NLYI,  NLZI,  BETA,  8ETA1,  CRKNIS 

COMMON  /ANGL/  T ANT (32) # COST (32) • TANTH,  TANTH0,  COSTH,  CQSTSQ, 
1 SECTH 

DIMENSION  UI1 (31 } 

1 ,RMU(3l)  ,RK(3l)  tRLMHOAOl) 

2 ,OYX<31) tUYX ( 31) ,VYX(3l) ,SIGX<31) 

3 ,TAUXY (31 ) ,TAU*Z<31> ,OlSX < 31 > ,F <31 ,5) 

A ,C0EF(31) ,CII(3l) , RHOI (31),TMP(31) 

DIMENSION  TMP1 <31) tlMP2(3l) 

OATA  NNVLX/O/ 


TSTRT«5ECONO<0) 

nnvlx*nnvlx*i 

DTOX«QT*0X1 
00  1 K*KS 1 • KE2 
00  2 J® JS1 « JE2 
M » IL 

PRDICT<1,11M)*RM0  <1,J,KIM> 

PROICT  (1,2IN)»RH0UU#J,K|M) 

PROICT <t,31H)*RH0V<l,J,K»H) 

PROICT ( 1 ,4IM) aRHOW < 1 ,U » K 1 M ) 

PROICT ( 1 ,5IM) »£  U,J,K|M> 

P(1IM)»GAMM14RH0  (1 , JtKIH) *EI ( 1 , J,K IM) 

IF (NNVLXtNE, 1) GO  TO  400 
IF(K,N£»5)G0  TO  400 
IF ( J*NE*5) GO  TO  400 
WRITE (6,800) (K6,K6*ltS) 

WRITE (6,80 I) (I#J,K,(PROICT(I,K6) ,K6«l ,S) , 1*1 , IL) 
400  CONTINUE 

DO  4 N-l,2 
lAOOaN*! 

NMlaN*! 

B«*l,/N 

EQUIVALENT  (00  5 1*1  tIE  LOOP) 

NOTE  F(K2#*)  ■ Ftlt-O 

F(Klf-)  * F { 1*1  ,*) 


COMPUTE  F(It-)  FOR  I»l#IE 
PROICT  (X,*)  FOR  U2,l£ 

C 

c 

C«>  COMPUTE  UII 

c 


000100 
ooono 
000120 
000130 
000140 
000150 
000160 
000170 
000180 
000190 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
.000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530  ' 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
000640 
•000650 
000660 
000670 
•000680 
>000690 
"000700 
000710 
000720 
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c 

C f ‘ 

H*IE 

un<l|M>«,$*(U<2,U*K#MMU(l»J*KlM)  I 

TMPmM>«U.*U<2»J*K|M)-U{ 

1 <3.*Ua,J*K|M)-U<2,JfKlM)  J 

C 

O SCALAR  LOOP  INSTEAD  OF  2 Q8»'S 
C 

00  5 I«2,IE 

IF (U ( I ♦ 1 1 Ji K ) *LE#  Utl.J.K))  UI! (X) *U{I*IA0D.J,K) 
IFITMP(t)  «0E«  0«)  UHaJ*U(I*lAOOiJtX) 


5 CONTINUE 

C-  FIRST  POINT 

UIItl)*UU*IA00»J.M 

C 

CALL  FXtUIItl.UfKtll) 

c where  xx»r*uoo 

c 

H * IE 

ii*i*iaoo 

RMUmM)>RMUL<II«J'KlM) 


RLH0OA ( l JH1 *S?0K£S*RMU ( 1 JM) 

RK  ( 1 IM)  «GAf4HPR*RMUU  >M> 

0Y1*1./<Y<3*1>-Y(J-1)> 

0Z1»1./<Z(KM>-Z<K-1> > 

OYX(l|Mi*.S*<TANT(llM) *TANT { 2 |H) ) *0YI 

VYXaiHj«V(II,j4UKIH)-vaIf  J-IfKlMJ 
Sl6X(llH)*PtII!M)^(RLM80A'(llM»*2**RMU(llM>  ) 

M (U(2»J*K{M}«U(l«vlvKlM)  ) *0X1  • 
UYX(llM)*OYXaiHJ  J 
-RLm9DA ( I? K) ♦ < VYX  a I M) *DY 1 

(II, J*K-1IM> }*0ZIJ 

TAUXY ( 1 tM) »-RMU ( I J H) * (UYX ( 1 IM) *DY1 
*(V  2»JtK|MJ-Va,jtKlH>)*OXi 
^VYXtlJMMOYXd  JM1  ) 

TAUXZU»M)«-RMUmm»<  tU(  II*J,K*1?H» 

•U  ) *OZl* 

)*DX1 

-tW<ntU*ltKI«)-wai»J-l.KlM))*OYX(llH)  J 

DISX ( 1 IM) *$IQX  a |Mi *UlI ( 1 fMl 

1 ♦TAUXYa»M)*VtH*J,KtHJ 

2 ♦TAUX2U!M)»W(II,JfxiH> 

3 -RKtllM]*( (£It2*J.K|M)-EI (If )*OXI 

A -(EItII*J^l*KIH>-EI(II#J-l,X|HM*OYXatH)) 

F<lti|H)*PROlCTUl,l»M>*UII  (HM> 

F(lt2|M)*PR0ICT(Il»2tM)*UIIUlM>*SIGX<llMJ 


000730 

000740 

000750 

000760 

000770 

000780 

000790 

000800 

000810 

000820 

000830 

000840 

000850 

000860 

000870 

000880 

000890 

000900 

000910 

000920 

000930 

000940 

000950 

000960 

000970 

000960 

000990 

001000 

ooioio 

001020 

001030 

001040 

001050 

001060 

001070 

001080 

001090 

001100* 

001110 

001120 

001130 

001140 

0011S0 

001160 

001170 

001180 

001190 

001200 

001210 

001220 

001230 

001240 

001250 

001260 

001270 

001280 

001290 

001300 

001310 

001320 

001330 

001340 

001350 
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F(l»3lH).PRDlCT(XI*3lM)*UII(llM}  ♦TAUXY  ( 1 IHJ 

FUt4lM)*PROXCT(II*MM).UlI(2lM)*TAUXZmM> 

FU,  5 iMi.PROICTt  II  #5lM)*UIItllHl ♦ DTSX (1 IM) 

IFUSMTHX  ,EQ,  0)  GO  TO  25 
C 

C*  SMOOTHING 
C 

C SUMP  II  SINCE  STARTING  AT  I « 2 

II  * II  ♦ 1 
M*IL-2 

THPl2lMt*P<H*UM)-2.*PtIUM]+PHI-HM) 

THP1(2IM>*VABS<P(II*IIM) <THP2(2iM) ) ♦2**VA8S IP (J I 1M} »THP2(2|M) J 
l ♦VABS(P(II«IIM) ITMP2I2IH) ) 

TMP ( 2 1 M) «CONST*TMP 1 2 1 M J /TMP 1 ( 2 1 M ) 

TMPU2IMUGAHMA*GAMM1«VA8S<EIIII.J»IUM)  |TMP2(2|M) ) 

CIK2IM) *VSQRT(TMPI (21 M) |TMP2(2IM) J 

C0EF(21Ml*TMP(2IM)*(VABS(U(II,JtKlM>  1TNP2<2|M> J *ClI (2IM> ) 

00  20  K6*l*5 

F{2»X6tM)«F(2»K6IM)~C0EF(2iM)» 

I (PROlCT(3tK6lM}-.PROlCT  (2tX6JM)  ) 

20  CONTINUE 

25  CONTINUE 

C-  END  OF  FX  SU8R. 

C 

M«IE-1 

PRDICT  £ 2 * 1 tH ) * (NHI*PRDICT (2* l i M) *RHO  <2»J.KIM) 

1 -0TDX*(F(2,HM|wr(i#UM)  )J*8 

PRDICT (2*2IMJ*(NM1*PROICT(2»2|M}«RHOU (2* J. KIM) 

1 ®OTDX*  <P (2t2lM)«F(X*2IM)j)*8 

PRDICT (2,31M)»(NMI*PR0lCT{Z*3tM) 4RH0V (2t 
1 ®OTOX*(F(2»3IM)®Fnt3IMn  J *9 

PROtCT (2* AIM) * (NM1«PR0ICT (2*4|M) ♦RHOW (2i U#K IM) 

1 ®0T0X*(F(2.4|M)-.F(I,4IM)  ))*0 

PR0ICT(2t5lM)*(NMl*PRDICT(2»5|M)*E  <2*J*X|M> 

1 ®0TDX«(F(2»5lM)-Fa*5!M) ) )*6 


C 

£•««•••••••*»  £N0  OF  00  5 LOOP 

C 

c 

C DECOO E 1.2# IE 
C 

M-IE-1 

RHOI (2IM) «i*/PROICt ( 2 1 1 1 H) 

U (2*J«KIM) *PRDtCT ( 2 » 2 IM) #9H0 1 (2 IM) 

V (2f J.RIM)«PR0ICT(2,3|H)*RH0I (2IM) 

W (2f J*K1M)«PR0ICT<2**IMI*RH0I(21M) 

El  <2fJtXIMI .PRDICT (2t5lM>*RH0I(2lH) 
l — 5*(U(2»UiKtH)**2  *V (2 t J*K1 M) *«2 


001360 
001370 
001380 
001390- 
001 AGO 
001 41 0 
001420 
001430 
001440 
001450 
001460 
001470 
001480 
001490 
001500 
001510 
001520 
001530 
00154Q 
001550 
001560 
001570 
001580 
001590 
001600 
001610 
001620 
001630 
001640 
001650 
001660 
001670 
001680 
001690 
001700 
001710 
001720 
001730 
001740 
001750 
001760 
001770 
001780 
001790 
001800 
001810 
001820 
001830 
001940 
001950 
001860 
001870 
001880 
001890 
001900 
001910 
001920 
001930 
001940 
001950 
001960 
001970 
001960 
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2 ) 

P ( 2IM)  »GAHMl*PR0ICT<2tl*M>*El  £2,vJ*K|M> 

C 

C DOWNSTREAM  6 « C«  AT  t*IL 
C 

C **  SCALAR 

DO  9 K6*1*S 

9 PROICT t IL»K6) *PROICT (IE#K6) 

C 

CALL  9CY 
C 

M-XE-1 

IF  ( J ..NE.  2)  00  TO  30 
C 

C * BC  AT  J«2 
C 

IH2»1»KIM>*U(2»2»KIM) 

W(2»1*K|H>»W(2.2#KIM) 

V<2»1*K|M)  *«V  { 2 » 2»MM) 

EI<2.1?K|M)*EI<2.2tKIM) 

C 

c test  on  i 

IF ( ILE  «LT • 2)  GO  TO  30 
M-ILE-1 

W<2,  WK|M)—W{2»2*IUM> 

U(2*lfK|M)*-U{2t2,MM) 

IF { I AOSWL  *£Q*  0)  &I<2,I,KIM)*2.*EIWALL-EI(2*2«KIM> 
30  CONTINUE 

C 

C-  BC  AT  J*JL 
C 

M-IEM 

IF  ( J .LTi  JE2)  GO  TO  35. 

U(2«JL»KtM)»U(2«JE2iKSM) 

. V(2t JL»K|M>«V(2,JE2tK|M) 

W (2* JLf K ;M) sW (2*UE2tK IM) 

El  1 2t JL«K 1M} »EI (2»JE2*KtM> 

35  CONTINUE 

C 

C BC  AT  I*IL 
C 

C»*SCALAft*« 

U(lL#J»K)*UtI£|J*K) 

V(lL#U»K)*V(ietJ*K> 

W(IL.J*K)*W(IE.J.K) 

El t II t *EI  l 

C 


001990 

002000 

002010 

002020 

002030 

002040 

002050 

002060 

002070 

002000 

002090 

002100 

002110 

002120 

002130 

002140 

002150 

002160 

002170 

002100 

002190 

002200 

002210 

002220 

002230 

002240 

002250 

002260 

002270 

002280 

002290 

002300 

002310 

002320 

002330 

002340 

002350 

002360 

002370 

002330 

002390 

002400 

002410 

002420 

002430 

002440 

002450 

002460 

002470 

002480 

002490 

002500 

002510 

002520 

002530 

002540 

002550 

002560 

002570 

002580 

002590 

002600 

002610 
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C BC 

AT  K»  2 

002620 

1F(K  ,NE.  2)  GO  TO  40 

002630 

002640 

002650 

V<2*0,1IM)*V(2.J#2»M) 

002660 

' 

002670 

W<2*vltllMI*-tf  <2i0t2!H) 

002680 

002690 

EI(2*<J>ltM)sEi(2*J»2IM) 

002700 

C 

002710 

C TEST  ON  I 

002720 

XFdLE  «LT * 2)  GO  TO  40 

002730 

002T40 

U{2,U,ilM)*-U(2,Ui2»M) 

002750 

002760 

V ( 2 • J * 1 1 M) ( 2 # J 1 2 1 M ) 

002770 

002780 

IFdAOBWU  »£Q.  0)  EX  (2*g,2»MJ 

002790 

40 

CONTINUE 

002800 

C 

002810 

C BC 

AT  KaKE2 

002820 

C 

002830 

0n2840 

IF (K  .Ng*  KE2)  GO  TO  SO 

002850 

U<2»v*'M„|M)xU(2»JtKE2lM} 

002860 

002070 

V<2(g»Kt1«)-V(2,J,KE2jM)  * 

002880 

002890 

W(2»g»Ku;H)sW(2»g«KE2lM) 

002900 

002910 

En2»J.KUM)*£H2,j,KE2tH} 

002920 

002930 

50 

CONTINUE 

002940 

C 

002950 

C*£NO 

OF  00  4 N»l#2  LOOP 

002960 

C 

002970 

4 

CONTINUE 

002980 

002990 

RHO  ( 2i  J ,K  1 M) yPRDICT ( 2 » 1 1 H ) 

003000 

003010 

RH0U{2tJ#KIH)*PR0ICT(2t2tM) 

003020 

003030 

RHOV ( 2 , J » X * H) *PROICT  { 2 , 3 fM  > 

003040 

003050 

RH0W(2,J,KlH)«PR0ICT(2,4iN) 

003060 

003070 

E (2»J»KIM) sPRDICT  1 2 * 5 1 M ) 

003080 

003G90 

IF (NNVLX  «NE* 1 } GO  TO  450 

003100 

IF(K,N£«51G0  TO  450 

003110 

IF (JUNE'S) GO  TO  450 

003120 

WRITE (6,800) <K6*K6*1*5) 

003130 

WRITE (6,801) <PRDICT<I,KG>  tK6«l,5) .l*t#IL> 

003140 

450 

CONTINUE 

003X50 

800 

FORMAT  HH0*3X»lHIt3X,iHj,3X,lHK,5 (3X,9HPR0ICT ( I » , 12,  IN)  ) 

) 003160 

301 

FORMAT (1X»3X4,5E15»6) 

003170 

C 

003180 

C-ENO 

OF  00  2 J»JS1,JE2  LOOP 

003190 

2 

CONTINUE 

003200 

C 

003210 

C-ENO 

OF  DO  1 K*KS1,KS2  LOOP 

003220 

1 

continue 

003230 

C 

003240 

3 — B — 5 


CALL  OUTER  ( JS1 *UE2*KSl .KS2) 

C 

c 

c SCAT  UlL 
C **SCALAR«» 

DO  60  K*KS1»KE2 

DO  60  JaJSl # JE2 

RHO  UL*J*K)*RHO  tlEtJtK) 

RHOU  <IL« J*K1  *RH0U ( IE » U * K ) 

RHQV  f XL  t J t K ) *RHOV  t XEt J*K) 

RHOrf(IL«JtK)*RHOrfU£.JfK> 

E {IL.JiKJ*E  { IE  * J»K) 

60  CONTINUE 

c 

C BC  AT  JaJL 
C 

M*IE<«1 

DO  70  K*KS1,KE2 

RHO  (2>JL*^IN)*RHO  <2»JE2tMH) 

RHOU(2iJL»KIM)aRHOUt2*j£2»KlM) 

RH0V(2*JL»KIM) aRHOV  C2tJE2»K|M) 

RH0W<2*UL**1H>  « RHOW ( 2 » JE2 * K I H ) 

E (2tJL>KlN)»E  (2tv)E2»KlH) 

70  CONTINUE 

C 

C ac  AT  K*KU 
c 

DO  80  J»JS1 ♦ JE2 

RHO  <2iJtKLlN)*RH0  12»J.KE2»M> 

RHOU (2» aRHOU { 2*  U t K£2 1 H ) 

RH0V<2*JtKLlHJ»RH0V(2»J*KE2*M) 

RH0W(2»J*KL»H)«RH0W<2»U*KE21HI 

E <2tJ,KLlH)»E  (2 » J?KE21M) 

80  CONTINUE 

tone*secono<d> 

TIME*T0NE-T5TRT 
WRITE {6*900J TIME 

900  FORMAT UHOtUHVLX  TIME  * »ElO*3**H  SEC  ) 

RETURN 

END 


0032S0 

003260 

003270 

003280 

003290 

003300 

003310 

003320 

003330 

0033*0 

003350 

003360 

003370 

0033*0 

003390 

003*00 

003*10 

003*20 

003*30 

003*40 

003*50 

003*60 

003*70 

003*80 

003*90 

003500 

003510 

003S2C 

003530 

0035*0 

003550 

003560 

003570 

003580 

003590 

003600 

003610 

003620 

003630 

0036*0 

003650 

003660 

003670 

003680 

003690 

003700 

003710 

003720 

003730 

0037*0 

003750 

003760 

003770 

003780 

003790 


3-B-6 


APPENDIX  C 


VECTORIZED  VCHARAC  ROUTINE 


c 

c 

c 

c 


c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


SUBROUTINE  VCHARAC l Y.OYCELL* JLFM. JL» COSTH} 

DYNAMIC  HYCiHYPf HYV»HYRhO*HYP 

DYNAMIC  N0T#0TC*DYC*YJCtYJC8#YiJCTtJCLN*SUMl»SUH3 

DYNAMIC  wTl  i WT2*RHRI  * Vi  .Cl^DYItJCAODtYltYJKZ*  VI  JK2.PI  JK2. Cl  JI»Y2 
DYNAMIC  ClJ2»VIJKliPlJM,jCLNPl»0P0YI.0VDYt.SUM2tSUM4tYJC£T*YJCSa 
DYNAMIC  YCELLBt YCELLT .VT.pT 

DEFINE  {HYCtPROICTUULiIlKUlfAJ  J * {HYRHO.PROICT  (1 1 It » 1 1 KLt  1 1 1 ) } 
DEFINE  {HYP, PRDlCTtlllL. 11*1.1*2)  ) t (HYV.PRDICT  JlfIL*llKL *1,3)1 

CHARAC  PROCESSES  ALL  DATA  AS  PLANES  OF  IL  9Y  KL  ELEMENTS .EACH 
PLANE  AT  A DIFFERENT  VALUE  OF  d, 

LMT«30C 

YF«Y {*»•, JLFM) ♦ *S*OYCELL (*»** JLFM j * { l . ♦ OYCELL(*,*,dLF’M)  / 

1 OYCELU#»**JI-FM-n 
OTl»l./OT 
C0STSQ*C0STH**2 
***  FROM  SUBROUTINE  JCLMN 
JLM«0 

jln*jlni 

OYNbOYCELL  <2) 

yl*yli 

00  51  N«I*2 

NDT*2.*DT*HYC(*t*t2*I)/0YN*l 
COTC*2*0*OT/NDT 
OYC*OTC*HYC  (*-•  *,2,  1 ) 

YJCa-0.5*0YC 

DEFINE  ( YjCB* ( 1 i IL  » I IKLJ  J .(YjCT.tl tIL.lt KL 3 I 

YJCB«0*0 

YdCTaO.O 

d»l 

jcl*lmt 

DEFINE  (JCLNt  tltlLf 1IKU > * (SUMl . (ltIL.lt KL) 1 * (SUM3 ♦ ( 1 1 ILt  UKL) > 
JCLNsjCL 

THIS  BROADCASTS  THE  CONSTANT  JCL  THROUGHOUT  A MATRIX  IL 
SUM1*0«0 
SUM3»0*0 

DEFINE  (JLIST. (ItlLtKiKL) ) 

00  S JC*2 tJCL 

BlTO»<YJCB«LT.YL.ANO,YdCT.ST.YL) 

THIS  STATEMENT  GENERATES  ONE  VECTOR  OPERATION  WHICH  CREATES 
TWO  BIT  STREAMS  REPRSENTING  THE  CONDITIONS  BEING  TESTEO  FOR 
THE  entire  i-k  PLANE  at  J«i 

THE  Bits  STRINGS  ARE  THEN  * ANOED*  TOGETHER  BY  THE  SCALAR  UNIT 
AT  THE  RATE  OF  64  BITS  EVE*Y  FOUR  CLOCK  CYCLEStAND  THE 
CONSEQUENT  BRANCH  INSTRUCTION  EXECUTED. 

IF {Q8N0BITS ( a I TO) j GO  TO  6 

WHERE  Q8N0BITS  IS  A MACHINE  LANGUAGE  CALL  TO  THE  DATA  FLAG 
BRANCH  TEST.ANY  FUNCTION  BEGINNING  WITH  THE  SYMBOLS  »Q8» 

identifies  an  in  line  machine  language  instruction. which 
cannot  be  invoked  by  normal  fortran 

IF<BIT0)JCLN.JC 
IFt8lT0)YUC*YJC*0YC 

THIS  CONSTRUCT  GENERATES  THE  MACHINE  LANGUAGE  CONTROL  VECTOR 
OPERATION  WHEREIN  THE  ARITHMETIC  STATEMENT  IS  EXECUTED 
FOR  EVE«Y  ELEMENT  OF  THE  !•«  PLANE  WHERE  THE  CORRESPONDING 
BIT  IN  The  string  bito  IS  A ONE. 


000100 
ooono 
000120 
000130 
000140 
00015 0 

00016 o 

000170 
OOOlflO 
000190 
000200 
000210 
000220 
000230 
0002*0 
000250 
000260 
000270 

0002 ao 

000290 
000300 
00031 0 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000*10 
000*20 
000*30 
0004*0 
BY  KL  ELEMEN000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
0005*0 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
000620 
000630 
0006*0 
000650 
000660 
000670 
000680 
000690 
000700 
000710 
000720 
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c 

DEFINE  {JUST,  tlllUllKUH 
JLIST-G 
C 

C JLIST  WILL  8£  USED  AS  AN  INDEX  VECTOR  DEPENDING  on  THE  VALUES 

C GENERATED  HY  THE  FOLLOWINGS 

C 

DO  3 JJ«V*JL 

8tTla(YJC.GT*Y (•*** JJ , AND. YJC*LE. Y (• *•, J* 1) } 

IF (Q8NORITS (BIT! ) GOTO  A 

J*J*I 

BlH*0lTUAfiO.8ITO 

C 

C WE  ARE  only  GOING  TO  PROCESS  ELEMENTS  IN  THE  PLANE  THAT  ARE 
C STILL  ACTIVE 

C 

IF (BIT1) JLIST*JLISr *1 
C 

C WHEREVER  THE  CONOITION  IS  MET » JLIST  WILL  BE  UPOATEO 

C 

3 CONTINUE 

A CONTINUE 

C 

C W£  NOW  HAVE  A LIST  OF  INDEXES  FOR  EVERY  I-K  ELEMENT  THAT  IS 
C active.this  LIST  CAN  BE  USED  AS  A means  TO  gather 

C THE  CORRESPONDING  ELEMENTS  FROM  VARIOUS  FLOATING  POINT  ARRAYS 

C 

WTl*<Y<JLIST*U-YJC>/lY<JlIST*l>-Y<JLIST>  > 

C 

C THIS  OPERATION  GENERATES. QN£  GATHER  OPERATION  USING  JLIST  INOICES 

C INTO  THE  ARRAY  Y. 

C 

WT2»W0-WT1  ' 

RI  < JC)  «WT1«HYRH0  ( JLlST)  **T2»HTRHO  ( JLIST*1 > 

PI  <JC)»WU*HYP  (JLIST)  ♦WT2*HYP  (JLIST*  1) 

VI  ( JC)  *WTl«MYV  (JLIST)  ♦«T2*HYV  (JLIST*IJ 
Ct (JC)*WT1*HYC(ULI^T)*WT2*HYC (JLIST* 1) 
orc»oTC*ci(JO 

c . 

C REMEMBER  AT  This  POINT  THaT  fti*Pt*vt*ANO  ci  consist  of 
C PLANES  OF  OATA  IL  BY  KL  IN  SIZE.WITH  A PLANE  FOR 

C EVEPY  ACTIVE  VALUE  OF  jC 

C 

YJC8«YJCT 
YJCT»YJC*Q*5*DYC 
DYI  (JC>»YJCT«*YJC8 
BIT2w<JC.LE.NDT*U 
IF(BIT2)SUMUSUHI4PI  (JC> 

IF(8IT2)SUM3*SUM3^VI (JC) 

5 continue 

6 CONTINUE 

DEFINE  (JCAOO* (lllLtliKL)) 

JCADOaO 

8IT3*(NOT*3-H*JCLN.GT«0> 

IF  taiT3) JCAOO*  <NDT*3^2*JCLN> 
jcmax«jcln*ndt-jcado 
C 

C WRITE  STATEMENT  ELIMINATED  HERE  TEMPORARILY 

C 

IF(Q8NOBITS{ .NOT*BlT2))GOTG  12 

C 

C 8IT2  INDICATED  WHERE  THERE  WERE  VALUES  GREATER  THAN  2EftO  IN 

C JCAOO. IF  THE  ENTIRE  PLANE  OF  JCAQO  IS  ZERO  SKIP  THE 


000730 
000740 
0007SO 
000T6O 
000770  ' 
000780 
0007*90 
000300 
000810 
000820 
000830 
000840 
000850 
000860 
000870 
000800 
000890 
000900 
000910 
000920 
000930 
000940 
000950 
000960 
000970 
000900 
000990 
0Q1000 
001010 
001020 
001030 
001040 
001050 
001060 
001070 

Qoioao 
001090 
001100 
oomo 
001120 
001130 
001140 
001 ISO 
001160 
001170 
ooiiao 
001 190 
001200 
oomo 
001220 
001230 
001240 
001250 
001260 
001270* 
001280 
001290 
001300 
001310 
001320 
001330 
001340 
001350 
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. C NEXT  part  COMPLETELY 

c 

IP18IT2)Y1*YJCT 

BlT3»(Yl.GT.YlJLIST*i)  ) 

BIT3*0lT3«AND,8IT2 

C 

c we  are  only  interested  in  active  elements  in  the  plane  at  this 
c 

IF (8IT3) JLIST* JLIST  * \ 

C 

C another  control  vector  update  OF  THE  INDEXED  LIST 
C 

IF(8IT3}WTl»<Y(JLI$T*n-Yl)/lY(JLlST*n-Y<ULISTn 

C 

C THIS  STATEMENT  REQUIRES  TWO  NEW  GATHER  OPERATIONS  FROM  THE 
C ARRAY  Y WHICH  IS  HELD  IN  MAIN  MEMORY,.., 

C 

XF<aiT3)  WTZ*W0-WTl 
ir{S!T3>YJK2nYl 

IF(BXT3)VlJKa*WTl*HYV<JLlST> *WT2*HYV <JL1ST*1 > 

IF (BIT3) PIJK2«WT1*HYP ( JLlST) *WT2*HYP  < JLIST*1> 
lF<8IT3>CUl»wn*Hrc(ULIST)  *WT2*HYC  (JLIST*  1 ) 

U1HST«ULIST 
Y2*Y1« JCADD*OTC#CI Jl 
DO  9 K»lt2 
jlist«jilist 
DO  ? JJ*i  i JL 

BlT**(Y2,GT.Y(*»*. JLIST) .AND, Y2.LE. Y (*. *. JLIST* U I 
8ITa*,NOT.8IT4 
IF (BIT4) JLIST  ■ JLIST ♦ 1 
? CONTINUE 

IF  1BXT3)  WT  WY  < JLIST*!)-.  Y2»/(Y<  JLIST*  1)-Y(  JLIST)) 
IF(8IT3)wT2«1.0-wn 

IF(8IT3)CIJ2*WT1*HTC<JLIST) *WT2*MYC ( JLIST* 1 ) 

IF OIT3) Y2*Y1* JCAOD#OTC**5#  <CXJ1*CIJ2) 

9 CONTINUE 

C 

C THE  DO  10  LOOP  MUST  be  Replaced  COMPLETELY. SINCE  EACH  ELEMENT 
C IN  THE  I-K  PLANE  CAN  BE  ADVANCED  INDEPENDENTLY  FROM  ANOTHER 

C ELEMENT  N THE  PLANE. SINE  IN  THEORY  THE  STARTING  INDEX  Jl 
C WILL  BE  DIFFERENT  FOR  EACH. IN  ADDITION  ALL  OF  THE  OPERATIONS 
C ARE  UNDER  THE  FURTHER  CONTROL  OF  8IT3  WHICH  INDICATES 
C WHICH  ELEMENTS  IN  THE  PLANE  ARE  ACTIVE. ELEMENTS  ARE  FURTHER 

C DEACTIVATED  9Y  THE  STATEMENT  IF (YJK2.E0.Y2) GO  TO  11  AT  THE 

C BOTTOM  Op  THE  ORIGINAL  SCALAR  LOOP 

C SO  WE  MUST  GENERATE  A NEW  CONTROL  VECTOR  WHICH  u ILL  CONTROL 
C OPERATIONS  IN  THE  REMAINDER  OF  THIS  SEQUENCE l 

C 

JLlSTaJlLlST 
BIT5*BIT3 
DO  10  JJxl . JL 
BITa*< JLIST *le.JL) 

81  T-4*B I T A . AND , SITS ) 

IF  (Q SNOB ITS (8IT4) GUTO  U 

YJKls*f  JK2 

VIJK1*V!JK2 

PXJKI*PIJK2 

YJK2«Y t JLIST* U 

BIT6«<YJK2.GT,Y2> 

IF18IT61  Y0K2HY2 

IF (BIT*) WT1*<Y{JLIST+1) -YJK2) / (Y (JLIST* 1 ) -Y  < JLIST) > 
IF{Bm>wT2»I,o-WTi 

IFC8rTfc)VlJK2=tWTI*HYV<JLlSTUwT2*HYV<JLiS?*l) 
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001360 

001370 

001380 

001390 

001400 

001410 

T1M001420 

001430 

0014*0 

001*50 

001460 

001470 

001480 

001490 

ooisoo 

001510 

001520 

001530 

0015*0 

001550 

001560 

001S70 

001580 

001590 

001600 

001610 

001620 

001630 

001640 

001650 

001660 

001670 

001600 

001690 

001700 

001710 

001720 

001730 

001740 

001750 

001760 

001770 

001780 

001790 

ooiaoo 

001810 

001820 

001830 

001840 

001850 

001860 

001870 

001080 

001890 

001900 

001910 

001920 

001930 

001940 

001950 

001960 

001970 

001980 


10 


12 


c 

c 

c 

c 


c 

c 

c 

c 


17 

18 


C 

C 

c 

c 

c 


20 

21 


C 

c 

c 

c 

c 

c 

c 


IF  <8IT*>PlJK2*WTl«»rtYP<JLlSn  *VT2*HYP  < JUST*  1 ) 

lF(BtT*)SUMl*SUMl*JCADD*0,5*fPUKl*PlJK2)  MYJK2-YJKI  ) / (Y2-Y1 ) 

ll JnJ * SU^3«suM3-JcA0D*Q .5* ( VI JKl • VI JK2) * ( YJK2-YJK1 J / {Y2-Y 1) 

IF (8tT4> JLAST*JLlsr 

8IT6«<YJK2.£Q.Y2I 

BIT5»eiT5.ANO*.NOT.BlT6 

IF(0IT4.AND*BIT5) JLIST*JLIST^] 

CONTINUE 

JLIST*JLAST 

IF (8IT4) Cl J2*WT1*HY C (JLIST ) •WT2*HYC ( JLIST* 1 ) 

IF(0IT4)DYC*OTC*CIJ2 

IF(8IT4) YJC*Y2-0«5#DYC 

CONTINUE 

JCLNP1*JCLN*1 

THE  DO  20  LOOP  MUST  ALSO  BE  RECONSTRUCTED  SINCE  THE  STARTING 
VALUE  FOR  JC  COULO  BE  DIFFERENT  FOR  EVERY  ELEMENT  IN  THE  l+K 


001900 
002000 
002010 
002020 
002030 
002040 
002050 
002060 
002070 
002030 
002090 
002100 
002110 
002120 
002130 
002140 
PUNE002150 


JCLIST»JCLNP1 

JCSTART*Q8MIN (JCLIST) 


THE  OB  FUNCTION  HE«E  RETURNS  THE  SCALAR  MINIMUM  OF  THE  ENTIRE 
VECTOR  JCLIST 


00  20  Jc*JCSTART«LMT 
a I T6a ( JCL IST^JCAOO » GT , JCLN*Ndt) 

BITb*«NOT.BlT6 
IFIQ8N0BITS1G0T0  21 
IFIBIT6) YJC*YJC*OYC 
DO  17  JJ«l*JL 

BIT7*(YJC#GT iY(JLIST) , AND* YJC«LE«Y {JLIST* 1 ) ) 
BIT7a,N0T  tBIT? 

IF (QBNO01TS (8IT7) ) GOTO  IB 
IF (BIT6*AN0.8IT7) JLIST«JLIST« 1 
continue 
CONTINUE 

IF(8IT6) WTl*(Y < JLIST*1) -YJC)/  (Y  < JLIST* )}«Y (JLIST)  J 
IF(9IT6|WT2«l*0-WTl 

IF(BIT6)Pl  (JCLIST)  *WTl«HYP < JLIST)^WT2*hYP ( JUST* U 
IF (BITS) VI ( JCLIST) »WT1#HYV< JLIST) ♦WT2*HYC(JLIST*l> 


NOTE  THAT  THE  PRECEEDING  TWO  STATEMENTS  WILL  RESULT 
BOTH  GATHER  AND  SCATTER  OPERATIONS  UNDER  THE  CONTROL 
BIT  VECTOR  8IT6 


IF (BIT6) OYe* <WT1*HTC< JLIST) ♦WT2*HYC(JLIST*l)*OTC 
BIT7a(JCHST*dCA00#GT*NDT*l> 

IF (8IT6  »ANO«  «NOT  *8lT7) SUM  1 »SUM 1 *P I (JCLIST) 

IF  10rT6,AND..NOT,3lT7)SUH3*SUM3*VI (JCLIST) 

IF«BIT6)UCLIST*JCLIST*1 

CONTINUE 

CONTINUE 

SUM2*SUH1 

SUH4.SUM3 

YJCT«0«O 


NOW  IN  00  30  ALL  ELEMENTS  IN  THE  PLANE  ARE  STARTED  TOGETHER 

however  the  terminating  conditions  could  be  oifferent 

for  each  ELEMENT  DEPENDING  on  the  corresponding  values  in  the 

ARRAY  JCLN 


JCEN0«Q8HAX(JCLN) 


002160 

002170 

002130 

002190 

002200 

002210 

002220 

002230 

002240 

002250 

002260 

002270 

002280 

002290 

002300 

002310 

002320 

002330 

002340 

002330 

002360 

002370 

002380 

002390 

002400 

002410 

002420 

002430 

002440 

002430 

002460 

002470 

002400 

002490 

002500 

002310 

002520 

002530 

002540 

002550 

002S60 

002570 

002580 

002590 

002600 

002610 
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c 

c 


c 

c 

c 

c 


c 

c 

c 


31 


32 


35 

36 


WE  MUST  SET  THE  END  OF  THE  LOO*  TO  THE  MAXIHUM  VALUE  IN  JCLN  002620 

002630 

DO  30  JCn2 ► JCENO  002640 

8IT5«NC*LE.JCLN)  002650  , 

JCM»JON0T*JCADD  002660 

DEFINE  (SNGMllIL  fllKU)  002670 

5NG«I,0  002680 

BIT4»<JCM.LE.1)  002690 

IF  OITA)  SNG«-1  * 002700 

IF(8ITA)UCH*3-JCM  002710 

JCP«JC*N0T-UCAO0  002720 

IFOlTSlSUMUSUttl^Pl  (UC)  002730 

IFOIT5)SVJMH*SUM2*Pl  WCP>  002740 

002750 

NOTE  THAT  The  use  of  JCP  as  AN  index  IMPLIES  a GATHE3  OPERATION*  002760 

WHILE  THE  USE  OF  JC  AS  AN  INDEX  IMPLIES  A SCALAR  BROADCAST  002770 

002780 

IF {BITS) SUH3*SUH3*VI (UC)  002790 

IF(aiTS)5UH*»SUN4-VI (JCP)  002600 

IF (BITS)  002B10 

1 DPDYI  <JC)*-i  (SUM1-SUM2)/<C0STSQ<»RI  (JC)*CnjC))»SUH3-SUM4)/  002820 

2 ( 2*  < NOT  * 1 ) ) -VI { JC) ) *R  I ( JC) * { OT l«COSTSO)  002930 

IF (BITS)  002640 

1 OVDYI ($UMl*SUMg*(RI (JC) *CI ( JC) «COSTSQ) * { SUM3*SUM4) ) / 002850 

2 <2MNDTn>)-PI  ( JC)  >/(DT*GAMMA*Pl  (JC)  > 002860 

IF(BIT5)YJC9»YJCT  002870 

IF  (BITS)  Y-JCT*Y  JCB*UYI  ( JC)  002880 

8IT6«(JC.E0.JCLN)  002990 

IF<*N0T.QIT6)SUH1*SUH1-PI (JCH)  002900 

IF  ( ,N0T.BIT6)  SUH2»SuM2-PM  JC)  002910 

IF(*NOT#0IT6)SUH3*SUM3-SNB*VI (JCM)  002920 

IF(.N0T.8IT6)SUH4«SUM4*VT(JC)  002930 

002940 

AGAIN  SUM l AND  SUM3  COMPUTATION  HERE  REQUIRE  GATHER  OPERATIONS  002950 

USING  The  LIST  JCMi WHILE  SUM2  and  sum*  are  SCALAR  RROAOCaSTS  002960 

CONTINUE  002970 

CONTINUE  002*80 

IF  ( JLN»N£« JLFM) GOTO  32  002990 

JCLIST*JCLN  003000 

PT(JLFM^U*<SUM1*SUM2*(RI  (JCL|ST)*CI  ( JCLIST)  *COSTSQ)  * {SUM  3*  SUM  4)  ) /003010 
1 <2MNDT+l))*<YP-0.5*lYJCS  + YJCTn*DP0YX<JCLlST)  003020 

CONTINUE  003030 

DEFINE  (YCELLT*  (UILtllKL)  * » (YJCSB*  UULtUKU ) 003040 

DEFINE  (JCE«  miLtlIKU  ) 003050 

VT<***ilj*0.  003060 

PT (*•♦» 1 ) *P0  003070 

DO  40  J«2iULN  003080 

YJC£T*YUCSB  003090 


YCELL8*YCELLT  003100 
YCELLT *YC£LLB*DYCELL (*♦** J)  003110 
JCSaJCE  003120 
JCSTART  aQSMlN ( JCS)  003130 
DEFINE  (8lTQ,(l  JIL»HKL))  003140 
BlTaa.TftuE*  003150 
DO  35  JC*JCSTART,LHT  003160 
IFOITS)  JCE*JC  003170 


IF (9IT8) YJCET^YJCET*DYI (JC)  003180 
BIT4*(YJC£7.GT, YCELLT)  003190 
BlT8a8lTa*AND.*N0T,BlT4  003200 
IF  (OSmOqUS  (8IT8JG0T0  36  003210 
CONTINUE  003220 
CONTINUE  003230 
DEFINE  tDYDYi  (UILtl  tKU  ) , (OPOYt  (ltlL.liKU  ) 0032*0 
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OVDYaO.O 

003200 

OPOYafl.O 

003260 

YJCT*YJCSU 

003270 

c 

003280 

c 

AS  IN  THE  PREVIOUS  LOOP  20  AND  LOOP  30  CASES  LOOP  38  WILL 

003290 

c 

BEGIN  ANO  END  At  DIFFERENT  POINTS  FOR  EACH  ELEMENT  OF 

003300 

c 

THE  I-K  PLANE 

003310 

c 

003320 

JCSTART*QBMINUCS> 

003330 

JCENOmQBMAXtJCE) 

003340 

jclist*jcs 

003350 

DEFINE  <wTt(l*IL*llKL)) 

003360 

00  38  OC«JCSTART»JCENO 

. 003370 

RIT9*(JCLIST.LE.JCE) 

003380 

IF{0IT9)YJCB»YJC7 

003390 

IF (8IT9) DYC*OYI ( JCL1ST) 

003400 

IF(8IT9)YJCT»YJC0*OYC 

003410 

IF<SIT91WT*i,0 

003420 

IF  <YJCB«LT.YCELL8>  WTiWT- < YCELLB-YJOB)  /OYC 

003430 

IF (YJCT ,GT*YCSLLT>  (YJCT-YCELLT) /dyc 

003440 

c 

003450 

c 

although  THESE  LAST  TWO  STATEMENTS  APPEAR  TO  BE  SCALAR 

003460 

c 

THE  IF  TEST  ANO  ARITHMETIC  ARE  OVER  THF  ENTIRE  I-K  PLANE 

003470 

c 

003480 

IF  IB1T9)  OVDY»DVOY*~WT*OVOYl  ( JCLIST)  •OYC/DYCELL  ( J) 

003490 

IF(0IT9)OPOY*OPOY*«T*QPDYI (JCLIST) *OYC/QYCELL(J) 

003500 

38 

CONTINUE 

003510 

yjcsb«yjcet-oyc 

003520 

IF(J*L£.JLM)GO  TO  40 

003530 

VT(**»*J)«VT(**»f J-I) ♦DVOY*OYC£LL(J) 

003540 

PT(*t»*J)=RT{*i*»J-l) *OPOY*OYCELL(J) 

003550 

40 

CONTINUE 

003560 

SO 

CONTINUE 

003570 

IF  (JLN.E.JLFH)GOTO  52 

003580 

dyn*oyni 

003590 

JLM*JLN 

003600 

jln-jleh 

003610 

YL*YF 

*003620 

51 

CONTINUE 

003630 

52 

CONTINUE 

003640 

RETURN 

003650 

ENO 

003660 
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DIVISION  4 
WEATHER/CLIMATE 
APPLICATION  STUDY 


DIVISION  4 . 


WEATHER/CLIMATE  APPLICATION  STUDY 

1.0  INTRODUCTION 

A portion  of  this  study  effort  was  to  be  devoted  to  analyzing 
operation  of  the  FMP  on  codes  other  than  aerodynamic  flow 
simulations.  For  this  purpose,  the  application  of  weather/ 
climate  modeling  was  selected  and  NASA  provided  two  codes  to.  be 
studied.  One  code  was  developed  by  Goddard  Institute  for  Space 
Studies  (GISS);  the  other  code  was  developed  at  Massachusetts 
Institute  of  Technology  (MIT).  Sections  2 and  4 present  some 
specific  aspects  and  salient  points  of  the  GISS  model  and  MIT 
model,  respectively.  Section  3 briefly  discusses  investigation 
of  portions  of  the  GISS  code,  and  section  5 provides  analysis 
of  the  MIT  (spectral)  code.  Some  background  and  significant 
events  leading  to  these  two  models  was  supplied  to  NASA-Ames  as 
a separate,  incidental  report. 

These  two  models  represent,  to  some  extent,  current 
state-of-the-art  in  dynamical  forecasting  with  numerical 
methods.  They  differ  from  each  other,  among  other  things, 
mainly  in  their  approaches:  the  GISS  model  employs  the  finite 

difference  method  whereas  the  MIT  model  employs  the  spectral 
method.  Both  are  more  or  less  designed  for  the  purpose  of  long 
term  prediction  rather  than  the  day-to-day  weather  forecasting. 
However,  there  is  no  fundamental  reason  why  they  could  not  be 
extended  to  predict  daily  weather.  In  the  MIT  model,  the  quasi- 
geostrophic  approximation  is  imposed  to  conserve  computations. 
For  the  operation  of  day-to-day  global  prediction,  the 
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quasi-geostrophic  approximation  is  not  very  desirable  and 
therefore  has  to  be  relaxed.  On  the  other  hand,  the  Australian 
meteorological  community  has  successfully  put  the  spectral 
method,  without  the  quasi-geostrophic  approximation,  into- 
o.pjera.tio.n  f.o.r  predicting,  .weather . 

Although  both  are  more  for  climate  than  weather,  the  GISS  model 
is  mainly  concerned  with  the  dynamical  development  in  the 
troposphere,  the  climate/weather  in  which  man  lives  and  that 
which  is  commonly  discussed.  The  MIT  model,  on  the  other  hand, 
is  geared  to  the  state  of  the  upper  atmosphere  which  certainly 
affects  the  troposphere  below.  Consequently,  in  the  GISS  model 
the  effect  of  radiation,  such  as  ozone  absorption,  is 
parameterized  in  some  tractable  manner  for  the  purpose  of 
calculating  the  circulation.  In  the  MIT  model,  the  production 
and  destruction,  as  well  as  transportation,  of  ozone  are 
computed  explicitly  using  the  dynamical  model  as  a vehicle. 
Table  1 tabulates  some  of  their  differences  for  a closer 
comparison . 

Symbols  used  in  this  report  are  listed  and  defined  in  table  2. 
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TABLE  1 . Characteristics  of  the  GISS  and  MIT  Models 


Characteristic 

Method 

Prediction  time  scale 
Dynamic  system 
Time  step  ( At) 
Vertical  coordinate 
Number  of  layers 
Total 

In  troposphere 

In  stratosphere 

Pressure  at  top 

Height  at  top 

Horizontal  resolution 
o o 

Grid  ( lat  x long) 
Waves  ' 


GISS  Model 
Finite  difference 
Medium  (wks/mos) 
Primitive 
5 minutes 
a 

9 

8 

1 

10  mb' 

30  km 

4x5 
~ 20 


MIT  Model 

Spectral 

Very  long  (yrs) 

Quasi-geostrophic 

1 hour 

In  P 

25 

6 

19 

0.04  mb 
72  km 

~ 15  x 15 

6 


TABLE  2.  Symbol  Definitions 

a radius  of  earth 

C rate  of  condensation 

cp  specific  heat  at  constant  pressure 

E rate  of  evaporation 

F horizontal  frictional  force 

f Coriolis  parameter  (=2cjm) 

G production/destruction  rate  of  ozone 

Q'  deviation  from  horizontal  average 
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scale  height 


Ho 

hi; 


an  ultraviolet  photon 


h(Z) 

I 

J 


k 

K„ 


k0*k,k3-k4-kS 

M 


N 


P 

p 

1 mt  n 

P 


P. 

Ps 

Q 

q 

R 

S 

T 

y* 

t 

T >0 

V 

w 

X 


an  empirical  infrared  cooling  coefficient 

solar  flux  incident  on  the  top  of  the  atmosphere 

meridional  wave  number  resolution 

vertical  unit  vector 

vertical  diffusion  coefficient 

parameters  of  chemical  reaction 

planetary  wave  number  resolution 

number  of  ozone  molecules  in  the  column 

pressure  -f  1000  mb 

associated  Legendre  polynomial 

pressure 

pressure  at  top  of  model  atmosphere,  constant 
pressure  at  bottom  of  model  atmosphere 
heating  rate  per  unit  mass 
water  vapor  mixing  ratio  or  specific  humidity 

gas  constant 

stability 

temperature 

an  “equilibrium11  temperature 
time 

deviation  of  temperature  andgeopotential  from  the  standard  atmosphere  distributions 

horizontal  velocity 

dZ/dt 

number  of  mixing  ratio  of  specie  j (j  = 03 , OH,  H02,  NO^) 

ozone  number  mixing  ratio 

horizontal  average 

deviation  from  horizontal  average 
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Ym  n spherical  harmonics  of  order  m,  degree  n 

Z vertical  coordinate  (=  - InP)  of  the  MIT  model 


a 

0 

7 

€ 

f 

T? 

Q 

A 

X 

P 

I 

7T 

P 


0 

r 

$ 

* 

^ m ’ ^ m.n 


r*  ^ 

m ' m ,n 


CO 

ax/ap 

v 


absorption  coefficient 
mass  of  an  average  molecule 
catalyst 

energy  of  a photon  of  wavelength  A 
solar  zenith  angle 

number  densiiy  oi  the  '‘neunaf  atmosphere 
potential  temperature 
optical  wavelength 

longitude  (counted  eastward  from  Greenwich) 

sine  of  latitude 

vorticity 

density 

vertical  coordinate  | = (p— pt)/(ps — pt)  | of  the  GISS  model 

mdex  for  simulated  time 

geopotential 

stream  function  for  horizontal  velocity 
Fourier  and  spectral  coefficients  of  $ 

complex  conjugate 
angular  velocity  of  the  earth 
velocity  potential  for  horizontal  velocity 
spherical  gradient  operator 
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2.0  THE  GISS  MODEL 

The  GISS  model  is  a 9-layer  primitive  equation  model.  Its 
evolution  began  with  models  developed  at  UCLA  by  Arakawa  and 
Mintz,  in  particular  their  3-level  model.  Consequently,  the 
GISS  model  shares  -the  overall  structure  of  the  UCLA  model  and 
retains  the  vertical  coordinate  formulation,  the  Arakawa  scheme 
with  advective  quasi-conservation  of  important  quadratic 
quantities,  as  well  as  much  of  the  UCLA  representation  of 
physical  processes  occurring  at  or  near  the  lower  boundary  of 
the  atmosphere. 

It  differs  from  the  UCLA  model,  however,  not  only  in  having 
finer  vertical  resolution,  but  also  in  its  treatment  of  four 
crucial  areas  of  physical  processes,  namely,  moist  convection, 
turbulent  subgrid-scale  processes,  solar  radiation,-  and 
long-wave  ( terrestrial)  radiation.  As  the  GISS  model  was  used 
for  observing  system  simulation  experiments,  asynoptic  data 
assimilation  studies,  and  experimental  long-range  forecasting, 
it  was  not  bound  by  the  very  high  horizontal  resolution  nor 
the  stringent  real-time  requirements  of  the  operational 
numerical  weather  prediction.  Also,  those  aspects  which  are  of 
importance  only  to  very  long  time-scale  are  simplified  because 
the  GISS  model  is  intended  for  medium-range  forecast.  The 
model  was  verified  by  the  short-range  forecast,  and  by  . 
integration  which  is  intermediate  in  length  between  the  few 
days  of  the  operational  prediction  and  the  seasonal,  annual,  or 
multi-annual  period  of  climate  simulation. 

It  includes  a realistic  distribution  of  continents,  oceans,  and 
topography.  Detailed  calculations  of  energy  transfer  by  solar 
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and  terrestrial  radiation  make  use  of  cloud  and  water  vapor 
fields  calculated  by  the  model.  The  hydrological  cycle  of  the 
model  includes  two  precipitation  mechanisms:  large-scale 

supersaturation  and  a parameterization  of  subgrid-scale  cumulus 
convection . 

Numerical  integration  requires  about  70  minutes  of  IBM  360/95 
computer  time  for  each  simulated  day.  In  the  interest  of 
computational  economy,  most  aspects  of  the  model 
representations  of  physical  processes  (other  than  advection)  are 
calculated  only  for  every  half-hour  of  simulated  time.  These 
processes  include  surface  interaction  and  hydrology.  Similarly, 
solar  and  terrestrial  radiation  calculations  are  performed, 
however,  only  for  every  2 hours  of  simulated  time. 

The  system  of  governing  equations  for  the  GISS  model  is  * 
displayed  in  figure  1.  It  consists  of  the  following: 

(1)  the  equation  of  motion, 

(2)  the  equation  of  continuity, 

(3)  the  equation  of  state, 

(4)  the  first  law  of  thermodynamics, 

(5)  the  hydrostatic  approximation, 

(6)  the  conservation  equation  of  water  vapor. 

The  behavior  of  the  atmosphere  is  represented  primarily  by  the 
following  dependent  variables: 

• the  temperature, 

• the  specific  humidity  (mixing  ratio)  of  water  vapor, 

• the  difference  of  surface  pressure  and  pressure  at  model 
top, 
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• the  horizontal  velocity  with  the  components  zonal 
wind  and  meridional  wind. 

The  basic  independent  variables  are: 

• time, 

• latitude, 

• longitude, 

• the  vertical  coordinate. 

The  atmostphere  is  modeled  to  have  a vertical  resolution  of  9 
evenly  divided  layers.  The  top  of  the  atmosphere  is  taken  as  a 
10  mb  isobaric  surface.  It  should  be  noted,  however,  that  in 
the  treatment  of  terrestrial  radiation,  the  number  of  layers  is 
doubled  and  in  addition,  2 more  layers  are  introduced  to  extend 
the  model  atmosphere  from  10  mb  to  1 mb,  in  order  to  obtain 
better  estimates  of  the  radiative  fluxes. 


¥v=- 

{(V-V  )V  + fkx  V + V«!>+-2.Vir  + <7  ^v}  +F 

(1) 

1 

11 

V • (irV)  + ^-(7ra)| 

(2) 

— = RT 
P 

_ 

(3) 

h- 

. a J J e 

•(V-V)0  + a-0j  +-TQ 

(4) 

J-JL*  = 

n 3 o 

p 

'(5) 

3 

|{V*V)q  + a^q|  + (E~c) 

(6) 

Figure  1.  System  of  Equations  for  GISS  Model 
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The  horizontal  grid  of  the  model  has  the  configuration  of  a 
Mercator  projection  with  increments  in  latitude  of  4 degrees 
and  in  longitude  of  5 degrees.  With  the  9 layers,  this  results 
in  a total  of  29,160  grid  points,  each  having  4 points 
associated  with  it  as  drawn  in  figure  2.  This  way,  variables 
of  identical  location  in  true  physical  space  are  attached  to 
different  points  on  the  grid  mesh.  This  placement  is  of  great 
importance  in  maintaining  the  numerical  stability  of  the 
integration,  as  well  as  simulating  planetary  flows. 
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Figure  2.  Finite  Difference  Grid  for  GISS  Model 
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In  older  versions,,  the  grid  of  the  model  contained  an  equal 

number  of  longitudinal  points  at  all  latitudes.  This  means 

that  a grid  square  near  the  pole  will  occupy  less  area. than  a 

grid  square  near  the  equator.  This  nature  of  the  grid  was 

later  modified  to  have  the  capability  of  readjusting  the 

* 

relative  areas.  The  latter  is  known  as  a split  grid  in  which 
the  number  of  longitudinal  points  can  be  properly  selected  at 
each  latitude. 

In  the  prediction  equations  (1),  (2),  (4),  and  (6),  terms  other 
than  the  time  derivatives  on  the  right-hand  side  fall  into  two 
categories,  namely,  dependent  terms  and  source  terras  (refer  to 
figure  1).  Specifically,  Q in  (4)  and  C and  E in  (6)  are 
source  terms.  They  arise  from  physical  processes  and  are 
generally  small  in  magnitude  relative  to  those  dependent  terms 
which  arise  from  the  conservation  and  continuity  properties  of 
the  atmosphere.  Consequently,  dependent  terms  are  evaluated  at 
every  time  step  but  source  terms  are  not.  Some  source  terms 
that  come  from  radiation  are  even  smaller.  To  conserve 
computations,  source  terms  other  than  radiation  are  evaluated 
once  every  6 time  steps  and  radiation  once  every  24  time  steps. 
The  time  step  is  chosen  to  be  5 minutes. 

For  time  integration  at  each'  time  step,  a first  estimate  B,  as 
a predictor,  is  obtained  with  the  forward  differencing  in  time 
B(n)  = A(n-1)  + At  * D(A(n-D) 

where  A represents  the  appropriate  physical  quantity  such  as 
one  of  the  primary  dependent  variables,  n is  the  index  for  a 
particular  time  step,  D(  ) represents  the  value  evaluated  for 
the  derivative  which  is  the  contribution  from  appropriate  terms 
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on  the  right-hand  side  in  the  prediction  equation.  With  such 
a first  estimate  of  B(n)  , a second  and  refined  estimate  A(n)  is 
then  obtained  with  the  backward  differencing  in  time 
A(n)  = A(n-1)  + At  * D(B(n) ) 
to  serve  as  a corrector.  This  predictor-corrector  cycle 
completes  one  time  step  of  integration.  The  predictor  and 
corrector  are  signified  by  the  flags  MRCH=1  and  MRCH=2, 
respectively  (see  figure  3).  In  both  cases,  the  space 
differencing  is  centered.  For  the  first  2 time  steps  however, 

D(  ) is  evaluated  as  follows:  for  n=1 , by  up-right  uncentered 

space  differencing  flagged  as  MRCH=3;  and  for  n=2  by  down-left 
uncentered  space  differencing  flagged  as  MRCH=4. 

Every  sixth  cycle  of  this  marching  process,  an  additional 
prediction  cycle  is  imposed  upon  the  already  predicted  value, 
with  D(  ) now  representing  only  the  contribution  of  the 
physical  processes  (but  excluding  that  of  radiation),  as 
indicated  by  the  box  of  C0MP3  and  C0MP4  in  figure  3*  Every 
24th  cycle,  the  radiational  contribution  is  included  with  all 
the  physical  processes  mentioned  above.  Also,  as  represented  by 
n=0,  the  initial  quantities  are  given  as  data  input  to  start 
this  marching  process.  This  marching  process  in  time  is 
summarized  in  figure  3. 
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Figure  3.  Marching  Sequence  for  GISS  Model 


in  the  actual  computation,  primary  dependent  vanaoies  uo  not 
stand  by  themselves.  Rather,  they  appear  in  the  form  of 
pressure-area-weighted  variables  like  irA.  Accordingly,  they 
have  to  be  scaled  by  the  factor  *(r)  at  the  beginning  of  each 
time  step  and  de-scaled  by  the  factor  ir(r  + At)  after  the 
integration  of  the  time  step.  Furthermore,  in  order  to  avoid 
reducing  the  time  step  in  high  latitudes,  the  zonal  mass  flux 
and  zonal  pressure  force  are  smoothed  longitudinally. 

The  distribution  of  variables  over  horizontal  grid  points 
adopted  in  the  GISS  model,  shown  in  figure  2,  is  suitable  for 
simulating  the  geostrophic  adjustment.  The  space  differencing 
for  the  nonlinear  advective  (dependent)  terms  in  the  equation  . 
of  motion  is  constructed  so  as  to  maintain  a constraint 
analogous  (but  not  strictly  equivalent)  to  mean  square 
vorticity  (enstrophy)  conservation.  In  fact,  the  differencing 
for  these  terms  reduces  to  the  enstrophy-  and 
kinetic-energy-conserving  Jacobian  scheme,  when  the  mass  flux 
is  non-divergent . The  resulting  integral  quasi-conservation  of 
enstrophy  as  well  as  kinetic  energy  is  an  effective  aid  to 
preserving  the  shape  of  the  energy  spectrum  and  the  area 
enclosed  by  it. 
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3-0  GISS  MODEL  VECTORIZATION 

The  GISS  code  conceptually  is  divided  into  two  parts,  namely, 
the  physics  portion  and  the  dynamics  portion.  The  physics 
portion  of  the  code  is  found  in  subroutine  C0MP3,  while  the 
dynamics  is  found  in  subroutines  C0MP1  and  C0MP2.  The  division 
of  the  physics  into  two  separate  routines  was  done  mainly  as  a 
matter  of  convenience,  to  reduce  the  length  of  the  source 
programs  and  divide  the  workload  among  the  team  members.  A 
byproduct  of  this  division  is,  however,  that  C0MP1  contains  all 
of  the  data  dependent  branches  (which  impact  the  vector ization 
process)  that  appear  in  the  dynamics  calculations. 

C0MP1  and  C0MP2  are  readily  vector izable  routines,  yielding 
vectors  of  moderate  length  for  the  model  in  its  present  state 
of  resolution.  C0MP3,  however,  consists  of  a collection  of 
physical  processes  which  are  programmed  in  composites  of  many 
imbedded  short  loops  (yielding  very  short,  inefficiently 
processed  vectors) . 

The  C0MP3  routine  in  the  original  scalar  model  was  called  once 
for  every  grid  point,  as  opposed  to  being  called  to  process  a 
plane  or  subplane  of  grid  points.  This  was  due  to  the  concern 
for  storage  of  temporary  data  on  the  7600  class  machines  that 
were  being  used  for  the  model.  Given  a massive  amount  of 
memory,  C0MP3  can  be  directly  recoded  to  process  all  grid  points 
at  a single  call.  Thus  the  short  DO  loops,  induced  by  the 
inherent  physics,  will  be  applied  to  groups  of  data  points 
rather  than  a single  point.  This  form  of  vectorization  leaves 
the  original  computations  almost  exactly  as  it  was  in  the 
original  scalar  model.  The  sheer  size  of  the  GISS  model  and  the 
amount 
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of  resources  needed  to  recode  the  model  in  the  same  way  the  3-D 
implicit  code  was  recoded  makes  the  effort  impractical  under  the 
current  study  contract. 

Control  Data  was  fortunate  to  possess  a version  of  the  GISS 
model  which  had  been  vectorized  for  the  STAR-100  by  David  Soli 
and  his  team  at  the  Goddard  Institute  for  Space  Studies.  Since 
the  basic  programming  characteristics  of  the  STAR  family  and 
the  FMP  are  the  same,  it  was  felt  that  the  STAR  version  could 
be  used  for  purposes  of  this  report.  In  this  model  the  physics 
processing  in  C0MP3  is  recoded  to  process  multiple  grid  points 
together,  as  was  discussed  previously.  Since  the  model  and 
results  of  its  operation  have  been  the  subject  of  several 
public  disclosures  (e.g.  ref.  6)  a decision  was  made  to  limit 
this  investigation  to  two  key  routines  which  illustrate  the 
behavior  of  the  FMP  when  challenged  by  the  GISS  code. 

It.  should  be  noted  that  although  the  STAR-100  version  of  the 
GISS  code  solves  the  same  problem  as  the  metric  provided  by 
Ames,  and  retains  the  same  basic  structure,  some  of  the 
mathematics  had  to  be  revised  to  achieve  effective 
vectorization  of  the  model.  This  difference  will  become 
evident  by  examination  of  the  AVRX  and  LINKHO  routines,  whose 
listings  appear  in  appendices.  A and  B.  The  other  major 
difference  between  the  metric  provided  by  Ames  and  the  STAR-100 
model  is  the  degree  of  resolution  in  each.  The  STAR-100  version 
uses  a 24x16  grid  while  the  Ames  version  uses  a 46x72  grid. 

The  result  of  this  is  that  vector  lengths  in  the  model  studied 
by  Control  Data  are  shorter  (.384  versus  2312  in  most  instanc.es)  . 
The  shorter  vector  length  happens  to  be  below' the  knee  in  the 
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theoretical  performance  curve  of  the  FMP,  and  thus  yields 
considerably  less  than  optimum  results.  The  effect  of  this  is 
that  any  extrapolations  made  for  the  FMP  performance  on  the 
GISS  model  should  be  considered  essentially  ’worst  case’  for 
comparison,  with  the  model  provided  by  Ames. 

Figure  4 displays  the  original  code  for  the  routine  AVRX,  as  it 
appeared  in  the  Ames  version  of  the  model.  Figure  5 is  a 
listing  of  a version  of  AVRX  for  a climatology  simulation  with 
a course  grid.  This  version  was  then  adopted  by  David  Soli  for 
the  STAR-100,  the  coding  for  which  is  found  in  figure  6, 
restated  in  figures  7 and  8 for  the  purposes  of  this  discussion. 

Figure  7 contains  loops  in  J=2,5  and  J=12,15  with  7(a)  showing 
an  imbedded  loop  on  K=2,24,  while  7(b)  shows  a sequence  solely 
for  elements  at  K=1  and  K=25.  The  sequence  in  7(b)  can 
conceivably  be  executed  in  parallel  with  that  in  7(a).  If  the 
double  loop  in  7(a)  K=2,24  is  extended  to  K=1,26,  the  whole 
double  loop  can  be  addressed  with  a single  vector  statement  of 
length  26x4=104,  whilst  the  loop  in  7(b)  is  processed  by  the 
Scalar  Unit.  The  cost  of  this  technique  is  that,  for  each  J, 
elements  K=1 , K=2,  K=24,  K=25,  and  K=26  must  be  saved 
beforehand,  as  well  as  K=1 , K=25  updated  and  K=26  restored 
after  finishing  the  vector  operation.  This  updating  and  saving 
requires  the  use  of  gather  and  scatter  operations. 
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* NCYCLE,NC0«P3,NHUGAN*TAUP»TAUI*TAUEtTAUa. 

* Pl*GRAV.PGAS*KAPA*PSLiEO*FMU*NFLWtPSFfMRCHfRSOISTtSlND*COSOf 

* NC3T,MR0C3T,LC3T, PROJAR. TOTA0S«SOX.ISPACErOUMMYU9>  ,TAUU,TIPE, 

*’  HACHlNt 

* 'lALTER.NNIMBfPTa,PT32,NIMPTStS£TNlM»MlNgtMAXJf  lRANO«IRTYPEiISS. 

* SS# IDXAGt PERIOD* ALPHA (4) t BETA* GAMMA (4) * TIMEO (A) * KTPB.ftINFLU, 

* MQDELT*LRAQ< 16) * NMcr*NRAO <16) ,KTPA* JTAPE*CQX, FLAGS ( 10 ) ♦ 

* MtNI»MAXI*0UMMY2US)  *T0TRMS,INST  , TVRMS * INSV t TRhSU ♦ INSU*TINT* 

* XLABELtaO) *SIG(20) »0SIG (20) ,SIG£(21) ,DSIGO(19) * 

* vjipsun *jhpsui) fjiusui) *jmus<h) ,jip,jMp*jmijMu,jiPv,jMPv, 

* lNC«JlPY*JiPMltjMPY#jMPPltJMPPlX«JlUXf JlUMl*JlUMlX,JMUX«FINCt 

* INC2* INCH 
COMMON 

* * UfV,T.SHtPtT5tSHSiGTtGW*TaP0G*UT*VT, TT * SHT*PT,SPA ,PV*PU* 

* CONVtPHlS* 

* LAT*UXU«0XPt0YU*0YP,SlNL*C0SLi0XYP*F*Cl*0UHMY,NTAR*RHXXU6*72t9> 

* *RHMAX,INWRFG*TAUlNW 

OIMENSION  P (46*72)  *U {46? 72*9)  *V (46*72,9)  ,T (46*72*9)  ,$H (46*72* 9)  * 

* TSi 46*72) ,SHS(46»72> • TOPOG ( 46, 72) »PT<46,72) ,UT(46* 72, 9) , 

* VT <46,  72,9)  , TT ( 46*72 ,9)  ,SHT (46* 72*9)  ,SPA<46.72>  *PV(46*72)  * 

* PU (46*  72) *CONV(46*72*20) *GT<46* 72) *GW(46*72> *PHIS(46*72) » 

* QI46*?2*9»4) »QT (46*72*9*4) , 

* SO (46, 72* 8J *QS(46*72,2) ,US(46*72) ,VS(46*72) *PHJ (46*72) ♦ 

* PIT(46*72)iF0(46*72)* 

* LAT (46) »DXU (46) *0XP(46>  *0YU<46) *0YP<46> fSINL<46> *C0SL(46) * 

* DXYPU6)  *F( 46)  *C<300)  *C1  (300)  *0UMMY(72) 

EQUIVALENCE  (Q U * U 1* L) ,U ( l » 1 , 1 ) ) , (QT ( l* 1 * 1 , 1 ) *UT ( 1 * 1 * 1 ) ) * 

* (SOU*  1*  I)  >CONV  (1*1,1))  ,(QS(1*1«1)  ,US(1«1)  tSPA(ltl) ) * ( VS  { 1 * X ) * 

* PHI  (1*1)  iPITUtl)  *PV(1*1>)  9 (FD(l*l)  *PU{1*1)>*  (C(l>  , JSP) 
COMHON/AL0COH/RSURF,SUBEDO (46,72) , VALBF3, ITC?GS¥, JALB* I ALB, SMOOTH 
LOGICAL  SMOOTH 

INTEGER*4  SL8E0Q 
LOGICAL  FLAGS* INWRFG, VAL8FG 
C 

C ENO  COE  BLOCK  F094  AS  OF  NOV  29,  1973 

C 


C1NCL  009  09820 

OEFF*OYP(JIP)  5903o 

00  40  J«J1P*JMP  09840 

ORAT*OYP(J)/DXP(J)  098*70 

IF(ORAT,LT,l,)  GO  TO  40  09880 

ALP«,i25*<DRAT-l.)  09890 

NM*0RAT  09900 

FNM*NM  09910 

ALPH»ALP/FNM  . 09920 

OO  30  N*1*NM  09930 

IHINC-IM-INC  09940 

I*IH  '*  09950 

00  10  lPINC*lNCtlMtINC  09960 

OUMMY ( 1)  sPU  ( J*l)  ♦ALPH*(PU  (J#  IPtNC)  *PU< J,  IHINC ) **PU  C Jt  I)  -PU  ( J , I ) ) 09970 

IMINC»I  09980 

10  I«IPINC  09990 

DO  20  I»JNC 1 IM* INC  10000 

20  pu(j,i)*ouMMrm  10010 

30  CONTINUE  10020 

40  CONTINUE  10030 

RETURN  10040 

end  iooso 


Figure  4. 


Original  Code  for  AVRX  Routine  • 
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SUBROUTINE  AVRX  .OAVRX 

OAVRX 

C*«®  THIS  SUBROUTINE  SMOOTHES  THE  ZONAL  HASS  FLUX  ANO  GEOPOTENTIAL  OAVRX 
GRAOIENTS  NEAR  THE  POLES  TO  HELP  AVOIO  COMPUTATIONAL  INSTABILITY;  OAVRX 

OAVRX 

C****  COARSE  NINE  LAYER  COE  BLOCK  FEBRUARY  1976  OAVRX 

REAL  KAPA*LAT  OAVRX 

COMMON  JM*lMtNLAY*PTROP*JHMl*FXM,NLAYHl*NLAYPl*OLAT#OLON*  OAVRX 

* ISTARTtKMfTAUT*lHOT*MROT»  OAVRX 

* 0T,TAU*ITAU*XlNTtIDAY,J0AY.T0FDAY»JDATE»JM0NTH<2) tJYEARtNSTEP*  OAVRX 

* NCYCLEfNCQMP3fNHOGAN*TAUP*TAUItTAUE»TAUO»MRCH*  OAVRX 

* PX,GRAV.RGAS.KAPA.PSL»EO.FMU*NFLW.PSF*RSOlSTtSlNO*COSO*RHMAX..  OAVRX 

* COX.OUMMYCaSl)  t OAVRX 

* XLA8EL  20) .SIG120) *0SIG<20) *$IGE<21) *0SI00(19) * OAVRX 

* LAT  (16)  »SINL(16>*C0SL(16)  *DXUU6>  .OXP (16) *QYU ( 16)  *DYP(1&>.  OAVRX 

* DXYP<16>*f  (16)  .DUMMY (24)  * OAVRX 

* TS { 16*29)  iSHS (16*29)  »GT(16*29)  *GW<16*29)  .PHIS<16*29)  * OAVRX 

* TOPOG (16*29]  OAVRX 

DIMENSION  U ( 16 • 29* 9) *V (16.29*9) .T( 16*29*9) *SH( 16*29*9) *P (16*29) * OAVRX 

* C (300 ) OAVRX 

EQUIVALENCE  (C(l)oUMI  OAVRX 

COMMON  U*  V*  t tSH*P  OAVRX 

COMMON/WORKyPU (16*29)  OAVRX 

DO  90  U*A*UHM1  OAVRX 

ORAT*OTP(2)/OXP(J)  OAVRX 

IF (QRAT.LT* 1.)  GO  TO  90  OAVRX 

ALP»*l25*<DRAT-l*J  OAVRX 

NM-ORAT  OAVRX 

FNHaNM  OAVRX 

ALPrt»ALP/FNM  OAVRX 

00  30  NaliNM  OAVRX 

IMlsIM-l  OAVRX 

ImlM  ' OAVRX 

00  10  1PI*!»IM  ’ OAVRX 

DUMMY(I)aPU(J*I)*ALPH»(PU(J* IP! ) *PU ( J* IMl ) -PU ( J* I ) -PU ( J* I ) ) OAVRX 

IHI*I  OAVRX 

10  I-IP1  OAVRX 

00  20  1*1  * IH  OAVRX 

20  PUUiI>*OUMKY(I>  OAVRX 

30  CONTINUE  OAVRX 

90  CONTINUE  OAVRX 

RETURN  OAVRX 

END  OAVRX 


2 

3 

9 

5 

6 

7 

8 
9 

10 

11 

12 

13 

19 

15 

16 

17 

18 

19 

20 
21 
22 
23 
29 

25 

26 

27 

28 

29 

30 

31 

32 

33 
39 
35 
16 

37 

38 

39 

40 
91 

42 

43 

44 


Figure  5-  Version  of 


Simulation  with 


AVRX  for  Climatology 
a Course  Grid 
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r>  o o n n o 


SU0HOUTlNi  AVRXt  PU  ) AVRX  2 

C AVRX  3 

DIMENSION  PUt416) »NM<161 fALPHA(lb) ,X(26> ,y (26J  AVRX  4 

DATA  NM/Of3* 1*1 »l*<nG«O*Oi0tOt l.ltli3»0/  AVRX  5 

DATA  ALPHA/0*# Wl8bS72£-l.l4?0a59lE-l,4.5l30I3f>2.9.563327E-3*  AVRX  6 

* O.#0, #0**0.#0. #0.»9.5633?7e-3*4.5l30l3E-a*l *2085giE-l*  AVRX  7 

* i.ia6572t-l*0./  AVRX  8 

AVRX  9 

SMOOTHES  THE  ^ONAL  MASS  FLUX  AND  GEOPOTEnTIaL  GRADIENTS  AVRX  10 

NEAR  THE  POLES  TO  HELP  AVOID  COMPUTATIONAL  INSTABILITY  AVRX  11 

AVRX  12 

NOTE*  THIS  ROUTINE  HAS  BEEN  SLIGHTLY  ALTERED  AVRX  13 

AVRX  U 

DO  40  J*2*15  AVRX  15 

IF  (NMU>.LE,0>  GO  TO  40  AVRX  16 

Jl*26*<J-l)M  AVRX  17 

Avex  18 

NMJ=NM(JJ  AVRX  19 

00  JQ  N* 1 * NM J AVRX  ?0 

X(Zl?4)  * PU  ( J2*  24  J «*  PU(JI!24>  AVRX  ? 1 

x{U*Xt25>  AVRX  ?? 

X ( 26) = A ( 2)  AVRX  ?3 

YUJ25)  * X(2I2S)  - X(n?S)  AVRX  ?4 

Y ( 1 1 25)  a Y ( 1 125J  * ALPHA{01  AVRX  ?5 

PUUU25)  3 PU ( J 1 1 25)  ♦ Y(1I25)  AVRX  ?6 

30  CONTINUE  AVRX  A7 

AO  CONTINUF  AVRX  ?8 

RETURN  AVRX  ?9* 

END  AVRX  30 


Figure  6.  Code  of  Figure  5 Vectorized  for  the  STAR-100 
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Figure  7 


J = 2,  5 (or  J = 12,15) 

DO  20  K * 2,  24 
P(K,J)=[{P(K+1,J)-P(K,J)} 
— {P(K,  J)  — P(K-1 , J) } ] 
* A + P (K,  J) 

20  CONTINUE 


(a) 


Z = [{P(2,  J)  — P(1 » J) } 

— {P(25,  J)  — P(24,  J) } ] 
* A 

P(1,J)  = Z + P(1,J) 

P(25,  J)  = Z + P(25,  J) 

P(26,  J) 


(b) 


Restated  AVRX  Loops  in  J=2,5  and  J=12,15 
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The  code  in  figure  8 is  executed  twice.  The  J index  takes  the 
values  2 and  15  during  these  executions.  This  fact  is 
highlighted  in  figure  8 by  underlining  the  indices  J=2,  the 
first  of'  which  can  be  found  to  have  a 15  underneath  it.  As  in 
the  previous  example,  figure  8 consists  of  two  parts,  (a)  and 
(b) . The  loop  shown  in  8(a)  can  be  put  in  a vector  form  with 
■length  of  only  23  elements.  There  is  no  need  in  this  case, 
however,  to  gather  and  scatter  data  in  order  to  save  and 
restore  elements,  since  the  large  register  file  of  the  FMP  can 
be  scheduled  to  handle  the  necessary  sequence  of  scalar  load  and 
store  operations. 

In  addition  to  sequences  like  AVRX  which  cause  concern  for 
analysts  wishing  to  optimize  code  for  the  STAR-1 00/FMP , another 
subroutine  loomed  as  a mighty  challenge  for  FMP  vectorization . 
The  subroutine  LINKHO  in  the  original  GISS  model  was  recoded 
for  the  Control  Data  FMP  and  yielded  a sparse  .020  gigaflop 
performance.  No  amount  of  'local*  vectorization,  as  was ■ 
applied  to  the  other  metrics,  could  seem  to  yield  any  better 
performance.  The  LINKHO  routine  developed  by  David  Soli  was 
then  acquired  and  its  STAR-100  listing  is  included  in  appendix 
B.  The  methodology  employed  in  this  vectorization  is  amply 
discussed  in  reference  6. 
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K = 2, 24 


[ { P(K+1, 2)  — P(K,  2)} 
— { P(K,  2)  — P(K-1,  2)}  ] 
*A  + P(K,2) 


(a) 

Z=[{P(2,2)-P(1,2)} 

~ { P(25, 2)  — P(24,  2)  } ] 
* A 

P(l,2)  = z + P(l,2) 

P(25,2)  = Z + P(25,2) 


(b) 


Figure  8.  Restated  AVRX  Executed  for  J 


2 and  J=15 
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4.0  THE  MIT  MODEL 


The  MIT  model  is  authored  principally  by  Cunnold,  Alyea, 
Phillips,  and  Prinn  and  supported  as  part  of  the  Climatic  Impact 
Assessment  Program  by  the  U.S,  Department  of  Transportation. 

Its  objective  is  to  simulate  the  distribution  of  ozone  as 
effected  by  a simple  but  reasonably  realistic  dynamical  model 
with  some  more-up-to-date  photochemistry.  The  dynamics  is 
simplified  by  the  quasi-geostrophic  approximation  so  that  a 
time  step  of  one  hour  can  be  used  because  the  pronounced 
seasonal  variations  in  ozone  require  several  years  of 
integration  before  a statistically  steady  state  can  be  expected. 

Although  the  heating  due  to  the  absorption  of  solar  radiation 
by  ozone  is  computed  explicitly  and  precisely  for  the 
stratosphere,  empirical  representation  is  employed  for  the 
lower  atmosphere.  The  latter  is  not  appropriate  for  daily 
prediction  of  tropospheric  weather,  nor  is  it  satisfactory  as  a 
means  of  predicting  in  a fundamental  sense  such  properties  as 
the  typical  pole-to-pole  temperature  difference  in  the 
troposphere.  In  spite  of  its  simplicity,  it  fulfills  its 
purpose  to  create  zonal  flows,  large-scale  eddies,  and 
meridional  circulations  in  the  troposphere  which  are  realistic 
in  a statistical  sense,  and  which  can  be  affected  by 
stratospheric  ozone  at  higher  elevations  and  can  redistribute 
that  ozone  in  a natural  manner. 

The  model  was  used  to  simulate  stratospheric  motion  patterns, 
meridional  circulations,  and  ozone  density  over  a 3-year  period 
as  a function  of  height  and  latitude,  eddy  transports  of 
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ozone,  surface  destruction  of  ozone,  correlations  of  ozone  with 
other  variables,  and  annual  cycle  of  columnar  ozone  in  high 
latitude.  It  has  a mission  to  predict  ozone  distribution  under 
some  perturbed  conditions  such  as  those  which  could  conceivably 

be  caused  by  NO  from  aircraft  engines. 

X 

For  the  MIT  model,  the  system  of  governing  equations,  shown  in 
figure  9,  is  basically  similar  to  that  of  the  GISS  model  shown 
in  figure  1.  Comparing  the  two  figures,  a few  differences  can 
be  noted.  First,  because  the  emphasis  of  the  MIT  model  is  more 
on  the  development  in  the  upper  atmosphere  where  the  water  vapor 
is  virtually  non-existent,  equation  (6)  in  figure  1 for  the 
conservation  of  the  specific  humidity  is  replaced  by  a 
corresponding  one  for  the  ozone  mixing  ratio  denoted  as  (61)  in 
figure  9.  The  heating  term  Q in  equation  (4)  will  consequently 
no  longer  have  any  contribution  from  the  precipitation.  Rather, 
the  radiation  is  the  only  process  that  plays  here. 

Secondly,  the  quasi^-geostrophic  approximation  necessitates  some 
reformulation  of  the  equation  of  motion  for  prediction.  A 
vorticity  equation  is  first  derived  from  the  equation  of  motion 
by  cross-differentiation  to  cancel  the  pressure  term.  In  the 
meantime,  the  vorticity  can  be  represented  in  terms  of  the 
geostrophic  wind  and,  in  turn,  the  balanced  pressure  which  can 
be  taken  as  the  stream  function  of  the  horizontal  velocity. 

Thus,  equation  (1)  in  figure  1 as  the  prediction  equation  of 
motion  is  replaced  by  the  vorticity  equation  in  terms  of  the 
stream  function  as  in  equation  (1’),  together  with  the  balanced 
condition  (geostrophic),  equation  (I’a),  both  in  figure  9. 


4-21 


The  vertical  coordinate  is  Z=-lnP  where  P is  pressure  diviaea  oy 
1000  mb  which  represents  the  surface  pressure.  In  this 
vertical  coordinate,  the  continuity  equation  take's  the  form 
shown  as  equation  (2*),  and  the  hydrostatic  equation  is  given  in 
equation  (5’). 

Equation  (3),  the  equation  of  state,  remains  the  same  and  is 
duplicated  as  (31).  The  thermodynamic  equation  (4)  becomes  (41) 
in  figure  9,  where  Q contains  the  absorption  of  solar  radiation 
by  ozone  as  well  as  infrared  cooling. 


„ dll/  „ 9X 

V2~  = - kXVi£*V(f+V2<J9  - V*  /Vr-*  - F 

ot  O* 

O') 

VV  = 2coV*pV^ 

(la) 

9P 

(2') 

— =RT 
P 

(3') 

— = - kXVi^-VT'  - WS  +— 

at 

(4') 

rt'  - a^'/az 

(S') 

3 *o,  d i a 

if-kW-VX^-W^X^+gJ,  ^ 

(IC',P9Z°3  )+°' 

(6') 

Figure  9-  System  of  Equations  for  MIT  Model. 
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The  derivation  of  this  set  of  equations  went  back  to  Lorenz’ 
work  in  I960  for  an  energetically  consistent  formulation  of  the 
quasi-geostrophic  system  (ref.  7).  In  order  to  have  suitable 
energy  invariants,  all  terras  in  the  vorticity  equation  which 
involve  both  the  rotational  and  the  divergent  part  .of  the  wind 
field  should  be  omitted. 

Peng  in  1965  Cref.  8)  was  the  first  one  to  successfully  perform 
a simple  numerical  experiment  concerning  the  general 
circulation  in  the  lower  stratosphere  with  Lorenz'  dynamical 
system.  In  addition,  he  chose  the  spectral  method  on  the 
grounds  that 

i)  the  variation  of  the  Coriolis  parameter  can  be  handled 
easily; 

ii)  there  is  no  distortion  of  mass  distribution; 

iii)  no  artificial  lateral  boundary  conditions  are 
necessary. 

For  simplicity,  only  wave  numbers  2 and  6,  in  addition  to  wave 
number  0,  are  included  to  represent  the  extra-long  wave  in  the 
stratosphere  and  the  dominant  unstable  wave  in  the  troposphere, 
respectively. 

Following  in  Peng's  footsteps,  Clark  used  the  same  dynamical 
framework  in  1970  (ref.  9)  to  model  the  radiative  and 
photochemical  process  as  suggested  by  Lindzen  and  Goody  (ref. 

10)  for  the  winter  stratospheric  circulation  with  waves  0, 1,2,3, 
and  6.  Clark  did  not  include  odd  nitrogen  but  increased  his 
ozone  absorption  coefficients  artifically  by  40%.  The 
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integration  was  carried  out  to  only  230  simulated  days  which  is 
certainly  not  long  enough  to  show  any  complete  annual  cycle. 

The  MIT  model  continues  the  work  of  Clark  to  predict  ozone  by 

simulation  of  a three-year  period  with  a 25-layer  dynamic  model.' 

The  distributions  of  NO  and  odd  hydrogen  deduced  by  McConell 

2 

and  McElroy  (ref.  11)  are  used  to  incorporate  in  a simple  way 
the  chemical  effect  of  these  species.  The  dynamics  is 
essentially  the  same  as  that  of  Clark  and  Peng,-  except  that  all 
waves  up  to  wave  number  6 were  included. 

Because  the  number  of  waves  resolved  is  as  low  as  6,  taking 
advantage  of  the  tendency  for  larger-scale  motion  in  the 
stratosphere,  use  of  the  classical  interaction  coefficient 
method  is  justified  to  handle  the  nonlinear  terms.  An 
exception  to  this  is  the  ozone  heating  term  Q of  (4')  and 
photochemical  term  G’  in  the  rate  of  change  of  ozone  mixing 
ratio  (6*). 

For  convenience,  the  two  hemispheres  are  assumed  to  be 
geographically  similar.  This  has  the  advantage  that  the 
approach  to  statistically  stationary  behavior  of  ozone  can  be 
examined  at  intervals  of  6 months  rather  than  12  months  in  the 
presence  of  a pronounced  annual  cycle  at  a fixed  latitude.  The 
difference  between  hemispheres  is  a matter  which  the  authors  of 
the  code  chose  to  postpone.  Accordingly,  the  orographic  height 
used  in  the  model  is  defined  such  that  the  southern  hemisphere 
is  a mirror  image  of  the  north. 

The  vertical  domain  of  the  integration  extends  from  Z=0  at  the 
surface  to  Z=10. 13675  at  the  model  top  which  corresponds  to  an 
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isobaric  lid  on  the  model  at  a pressure  of  about  0.04  mb,,  a 
standard  atmospheric  height  of  71.6  km.  This  height  was  chosen 
to  be  suitably  far  above  the  main  ozone  layer,  high  enough  to 
include  the  photochemical  equilibrium  region  and  to  minimize 
the  mechanical  effects  on  the  motions  below.  The  range  in  Z is 
divided  evenly  into  25  layers,  each  of  thickness  AZ=0. 40574. 

The  values  of  stream  function  are  defined  at  the  midpoints  of 
these  layers,  while  vertical  motion  and  temperature  are  defined 
at  the  interfaces.  The  coordinate  Z varies  almost  linearly 
with  height  according  to  the  hydrostatic  relation  so  that  AZ 
corresponds  almost  uniformly  to  a height  increment  of  2.89  km. 
This  choice  gives  good  resolution  in  the  stratosphere. 

The  spectral  method  calls  for  expansion  of  variables  in  terms 
of  spherical  harmonics.  Thus  the  representation  of  the  stream 
function,  for  example,  takes  the  form  of  equation  (7)  in  figure 
10.  Equation  (8)  gives  the  structure  of  the  spherical  harmonics 
and  (9)  gives  the  associated  Legendre  Polynomial.  Note  that  (8) 
is  in  complex  form  and  to  insure  that  the  fields  are  real,  it 
is  necessary  to  have  equations  (10)  and  (10a)  in  which  the 
asterisk  denotes  the  complex  conjugate.  Equation  (11)  gives  the 
vorticity . 

The  methodology  is  illustrated  with  a shorter  version  of  the 
vorticity  equation  (1*)  having  only  2 terms,  namely  the 
Coriolis  term  and  the  advection  term  as  in  equation  (12). 
Inserting  the  appropriate  expansions  into  the  vorticity 
equation  (12)  and  integrating  the  whole  equation  with  respect 
to  m and  X obtains  the  transformed  form  as  equation  (13). 

The  truncation  used  to  date  has  M=J=6.  This  provides  79 
degrees  of  freedom  in  each  variable  at  each  vertical  level. 
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Figure  10.  Some  Algebra  of  Spectral  Model 
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The  interaction  coefficients  are  pr e-calculated  and  stored.  To 
extropolate  in  time  (prediction),  the  "4-cycle”  version  of  the 
time-differencing  scheme  formulated  by  Lorenz  (ref.  12)  is  used 
for  step-wise  numerical  integration.  Taking  advantage  of  the 
quasi-geostrophic  approximation,  a time  step  of  one  hour  i-s  used 
in  each  cycle.  Using  this  model,  four  hours  of  computer  time 
was  required  on  the  IBM  360/95  to  integrate  one  simulated  year. 

The  ozone  heating  term  and  the  photochemical  term  are 
t r ansc end en tally  nonlinear,  and  quasi-linearization  to  put  them 
in  a quadratic  form  did  not  seem  to  be  accurate  enough  in  some 
cases  because  of  the  rapid  dependence  on  temperature  of  some 
reaction  rates.  These  were  therefore  evaluated  at  each  time 
step  by  the  transform  method  as  follows: 

i)  transform  the  wave  number  representation  of  variables 
to  physical  space  at  points  of  a fixed 
longitude-latitude  grid; 

ii)  compute  the  above  terms  at  these  physical  points; 

iii)  transform  these  computed  physical  point  values  back 
into  the  spectral  form; 

iv)  add  these  contributions  (now  ,in  spectral  form)  to  the 
remaining  terms  (that  were  calculated  by  the 
interaction  coefficient  method). 

The  longitude-latitude  grid  of  the  physical  space  employed  in 
this  transform  method  had  16  points  in  longitude  and  15  in 
latitude.  The  latter  provides  an  exact  quadrature  for  the 
quadratic  product. 
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The  heating  scheme  consists  of  a relatively  precise  evaluation 
of  heating  in  the  stratosphere  combined  with  the  more  empirical 
Newtonian  cooling  in  the  lower  atmosphere  (see  figure  1i ) . The 
contribution  due  to  the  absorption  of  solar  radiation  by  ozone 
is  computed  explicitly  by  evaluating  the  integral  of  equation 
(17)  in  figure  1 1 . 


Q1  = (Xo3  /©  Q(N  secf)-cph(Z)T' 
where  Q(N  secf)  =J' ale  exp(-aN  secf)dA 


(16) 

(17) 


Q2  =cph(Z)(T*-T') 
Q = Q1  + Q2 


(18) 

09) 


Figure  11.  Heating/Physics  for  MIT  Model 


The  same  kind  of  integral  is  also  employed  in  the  computation 
of  photochemistry  as  in  equation  (21)  of  figure  12.  For  speed 
of  computation,  a table  was  initially  evaluated  by  numerical 
procedure  in  integration  with  respect  to  A for  a large  range  of 
N(secf)  in  equations  (17)  and  (21).  In  the  course  of  the  model 
simulation,  a table  look-up  is  then  performed  in  place  of 
actually  carrying  out  the  integral  when  encountered. 

The  model  photochemistry  includes  the  Chapman  reactions,  the  NO 

and  NO  catalytic  cycle,  and  several  reactions  between  hydrogen 
2 

and  atomic  oxygen.  Figure  12  includes  a list  of  the  reactions 
used  in  the  model. 


G = 0.42/_ 


foo3^o3  + xno2^no2) 
0.21  n k0 


[2(ktXo3+ k3xNC>2)  + (k4xOH+  MHOj» 


(20) 


where  /.  a.(A)  1(A)  exp  (— a.N.  secf)  dA 

i = 03,N02,02 


(21) 


Reaction 


1.  0^+hv-*20 

2.  O + 02  + 7 ->  03  + 7 

3.  03  + 02  + 0 

4.  0 + 03-»202 

5.  N0  + 03^N02  + 02 

6.  N02  + 0->"N0  + 02 

7.  N02  + h v-*  NO  + 0 

8.  OH  + 0 -»•  02  + H 

9.  H02  + 0-*'02+0H 


Figure  12.  Ozone  Generation/ Chemistry  for  MIT  Model 
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5.0  SPECTRAL  CODE  ANALYSIS 

The  MIT  code  consists  of  two  parts/programs , namely  STRATI  and 
STRAT2.  The  primary  purpose  of  STRATI  is,  among  other  things, 
to  establish  an  appropriate  '‘initial”  condition  for  the  long- 
term climate  simulation,  with  full  dynamics  and  chemistry, 
which  is  coded  in  STRAT2.  The  main  concern  therefore,  in  this 
analysis,  will  be  with  the  program  STRAT2  only. 

The  code  is,  in  general,  quite  well  structured  in  that  it  is 
very  modular.  As  can  be  seen  in  figure  8,  the  execution  of  the 
program  STRAT2  is  essentially  a double  loop  in  which  one 
subroutine  is  called  after  another.  Hence,  figure  13  can  also 
be  taken  as  a flowchart  in  the  sense  that  each  subroutine 
represents  a block  for  a task. 

Much  of  the  code  is  structured  in  loops.  In  fact,  a few 
subroutines  are  composed  of  only  one  single,  simple  loop  as 
displayed  in  appendix  C.  To  vectorize  these  is  a rather  trivial 
matter . 

The  subroutines  in  appendix  D have  been  recoded,  from  the 
standpoint  of  syntax  only,  so  that  they  can  be  easily  followed 
as  well  as  verified.  This  could  be  considered  as  a pre- 
vectorization  pass  to  show  an  intermediate  step  on  the  way  to 
complete  recoding  and  restructuring  of  data.  This  is  discussed 
at  greater  length  later  in  this  report.  In  the  original  code 
the  indices  of  arrays  are  managed/manipulated  explicitly  by  the 
programmer.  In  the  recoded  version,  use  has  been  made  of  the 
array  structure  implied  by  the  FORTRAN  DIMENSION  declarations  in 
terms  of  the  ordering  of  elements.  This  brings  the  logic  of 
most  routines  into  much  better  perspective,  i.e.,  in  simpler 
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Figure  13.  Program  Flow  of  MIT  Model 


QJT4 


4-31 


structures  of  loops  whose  vectorization  can  be  effected  readily. 
As  a -matter  of  fact,  it  exposed  not  only  the  possibility/ 
feasibility,  but  also  the  advantage  to  restructure  the  data 
block  in  the  entire  program. 

In  the  process  of  recoding,  an  effort  was  made  to  pull  out 
portions  of  code  that  have  to  be  executed/initialized  only  once. 
These  are  grouped  together  under  an  entry  point  with  the  same 
name  as  that  of  the  routine  except  appended  with  a digit  0.  In 
addition,  a letter  ¥ was  added  as  a prefix  to  the  original  name 
of  each  routine  that  was  recoded,  as  a name  for  the  recoded 
routine.  However,  the  recoded  version  is  not  necessarily  in 
vectorized  form. 

The  discussion  of  the  spectral  code  will  start  with  the 
simplest  routine,  DZERO. 

SUBROUTINE  DZERO < A)  _ 

COMMON  /CONSTS/  INDEX ♦ NR *l»R»  INS*  INSZ*KINT*ILEV1 • IUEV2 *NVERT, NRTP t 
i LRTP*NTYPE*NVECT*NVREAL*NVZON»NCYC*DT 
DIMENSION  All) 

IL«<ILEVl-l)*NVREALM 
IH*ILEV2*NVREAU 
DO  100  Ull»IH 
100  A(I)«0.D0 

RETURN 
END 

This  routine  is  used  to  zero  out  a block  in  the  memory  for 
initialization.  The  construct  is  straightforward;  it  consists 
of  a single,  simple  loop  100  which  can  be  put  easily  in  one 
vector  instruction  as 
AD=0 

where  AD  is  the  descriptor  representing  the  vector  A(I) , I=IL, IH. 
However,  since  each  of  the  FMP  vector  pipes  has  two  paths,  it 
would  be  wise  to  break  the  vector  AD  into  two  halves,  recoded  as 
follows : 
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SUBROUTINE  VDZERO (A) 

COMMON  /CONSTS/  INDEX,  , , , 
DIMENSION  A(l) 

DYNAMIC  ADltAOE  . 

9001  AD1»0. 

AD2»0, 

RETURN 

ENTRY  DZEROO 

IL«  ULEV1-1  >*NVREALn 

IH«ILEV2«NVREAL 

l*ih-il+i 

L2=L/2 

DEFINE  (ADlt  A < It J IL+t2»l ) ) 

IU2*IL*L2 

UL»UL-L2 

DEFINE  (AD2.  A ( IL2 J IL2+LL-1 ) > 

RETURN 

ENO 


In  the  program,  ILEV1=2,  ILEV2=25,  and  NVREAL=7 9 • Consequently, 
here  Ls1896,  L2=948  and  LL=948.  With  the  rate  of  8 results 
(in  64-bit  mode)  per  cycle,  it  takes  1 19=(948+4)/8  cycles  for 
both  vectors  ADI  and  AD2  to  pass  through  the  pipes.  With  the 
start-up  of  6 cycles,  15.17  results  per  cycle  are  obtained,  or 
0.95  gigaflop.  This  takes  advantage  of  the  multiple  paths  of 
the  FMP  vector  pipes,  but  not  the  capability  of  performing 
multiple  operations  in  each  vector  pipe.  This  is  exploited  in 
the  following. 


SUBROUTINE  ADD2A 
COMMON  P <2366) 

COMMON  /CONSTS/  INDEX, NR, LR» INS, INSZ.KINT , ILEV1 , ILEV2,NVERT,NRTP, 
1 LRTP,NTYPE,NVECT,NvREALfNVZON*NCYC»DT 
K.IUEV2 

00  200  ITMS*ILEV1 ♦ ILEV2 

Ih«k*nvreal 

IL*<K-l>*NVREAt+l 

00  100  I*IL»IH 

J»I-NVR£At 

PtI)»,5*ll»(v)l*P(I)) 

100  CONTINUE 
K»K-I 

200  CONTINUE 

return 

ENO 
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This  is  another  example  of  straightforward  vectorization.  The 
vector  length  is  much  shorter.  The  vector  code  is  as  follows: 


SUBROUTINE  VA002A 
COMMON  P ( 2366) 

COMMON  /CONSTS/  INDEX*  , . • 

DYNAMIC  Q0*P0(26> *POl*P02 

DO  150  K«1«KK*2 

Kl»K*l 

K2*K*2 

9002  QO*PO{K1)*POOO 
PD(KI)«PD(K2)+PD(K1> 

PD (K) *qq 

150  CONTINUE 

9003  PD1*.5*PD1 
P02*.5»PD2 

return 

ENTRY  ADD2A0 
IL«(ILEV2»1) *NVREAL*1 
KK«ILEV2-ILEVI*1 
DO  50  K*l»l<t< 

DEFINE  (P0 (K) »P ( ILl IL*NVREAt»l) > 

il«iu-nvreal 

50  CONTINUE 

L»ILEV2*NVREAL 

L2*L/2 

DEFINE  {PDl»P ( 1 lL2> ) 

IL1*L2*1 

LL»L»1.2 

DEFINE  «PD2*P(ILltILl*UL-l) ) 

RETURN 

ENO 


Notice  that  in  loop  150  there  seems  to  be  a temporary  QD. 

In  fact,  this  temporary  is  not  necessary  during  execution,  as 
the  FMP  is  equipped  with  4 read  ports  and  2 write  ports  which 
can  operate  simultaneously.  The  appearance  of  the  temporary  QD 
is  therefore  merely  for  the  sake  (or  convenience)  of 
presentation  to  avoid  any  confusion  (or  ambiguity).  Another 
point  worth  mentioning  here  is  that  in  loop  150,  the  FMP  is 
processing  2 vectors  at  a time,  taking  advantage  of  the 
parallel  nature  of  the  FMP  vector  pipes  in  performing  multiple 
operations.' 
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For  NVREAL=79,  it  takes  l6=6+(79+4)/8  cycles  to  complete  the 
vector  statement  9002.  Also,  2 cycles  are  required  for  the 
Scalar  Unit  to  update  the  indices  K1  and  K2.  With  KK=25,  loop 
150  takes  234=18*13  cycles.  On  the  other  hand,  L=1975  and 
LL=988,  statement  9003  takes  1 30=6+(988+4)/8  cycles.  There  are 
a total  of  6050=(3*79+5)*25  flops.  This  therefore  achieves  1.04 
gigaflops . 


SUBROUTINE  PR0ICT(Y»Z*FY»N> 

COMMON  /C0NSTS/  INDEX»NR*LR»lNS»INSZ.KINT,IL£Vl,lLEV2tNVERT»NTRP, 
1 LRTP»NTYPE«NV£CT*NVREAL*NVZONfNCYC*OT 
DIMENSION  Y<1> ,ZCU »FY<1> 

DATA  IFLG/0/ 

IF  UFLG.GT.O)  00  TO  100 
DTINV»1 «0*0/DT 
00TINV*! .0*0/ (NCYC*0T) 
iri.G»ioo 
100  CONTINUE 

IL* ( ILEVl-1 ) *NVREAL* l 

IH»ILEV2*NVREAL 

A«-(N-1J*00TINV 

b«dtinv*a 

B*1.0*0/B 

IF  (N.GT.l)  GO  TO  300 
00  150  I«lLtlH 
150  Z(I)»B*FY'(I) 

GO  TO  400 
300  CONTINUE 

00  350  IsILtIH 
350  Z(I)«B*(A*Z(I)>FY(I) ) 

400  DO  450  I>IL«IH 
450  Y (I) *Y { I) *Z ( I) 

return 

end 


The  main  code  consists  of  loops  150,  350,  and  450.  All  three 
are  simple  loops  and  can  easily  be  put  in  vector  form.  For 
example,  loop  450  will  take  the  form 
YD=YD+ZD 

where  YD  and  ZD  represent  the  vectors  Y(I)  and  Z(I), 
'respectively,  as  initialized  in  the  following.  Since  the  FMP 
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vector  pipes  are  capable  of  performing  multiple  operations  in 


parallel,  it  is  not  advantageous  to  separate  loop  150  from  loop 
450  for  the  case  of  N=1 . Therefore  it  should  be  recoded  as 
follows: 


SUBROUTINE  VPROICT (Y»Z*FY»N) 
COMMON  /CONSTS/  INOEXf  . . • 
DIMENSION  Y(l) » , . » 

DIMENSION  BB (4) *CC<4> 

DYNAMIC  ZD»YD»FYD*ZD1«ZD2»YD1,YD2 

IF  (N.UE.l)  GO  TO  200 

9004  ZD»CC(N)*ZQ*BB<N)*FYd 

9005  YD1»YD1*ZD1 
YD2*YD2*Z02 
RETURN 

200  CONTINUE 

9006  ZD*BB(1)*FYD 

yo*yd*zd 

RETURN 

ENTRY  PROICTO 
0T1NV»I.D0/DT 
DOTINV«l.00/(NCYC*OT) 

DO  1 I«1*NCYC 
AA«<l-I)*DOTINV 
BB(I)*1*00/<AA*DTINV) 
l CONTINUE 

IL* < ILEVl-1 ) ONVREAL+X 

IH»II.EV2*NVR£AL 

L»IH«ILM 

DEFINE  <ZD»Z(ILlIU*4*D) 

DEFINE  (Y0»Y‘UUIU+U-1>) 

DEFINE  (FYD*FY(IL>It*L-l) ) 

L2*L/Z 

DEFINE  (YD1*Y(IL» IU*U2-1> ) 

DEFINE  (ZDltZUUIL*L2.1) ) 
IL1*IL*U2' 

LL*L-L2 

0EFINE  (Y02»Y(ILllIUi+U--l> ) 
DEFINE  (ZD2*Z  ( ILI ! It»l*CL»l ) ) 
RETURN 
END 
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For  ILEV2=25  and  NVREAL=79,  the  vector  length  is  L=1975,  and  it 
will  take  247= (1 975+4 )/8  cycles  to  pass  through  the  pipes. 

With  a startup  of  6 cycles,  it  takes  383  cycles  for  7910  flops, 

or  1.29  gigaflops,  in  the  case  of  N not  equal  to  1.  When  N=1 , 

\ 

0.98  gigaflop  is  attained  as  there  are  3960  flops  for  253 
cycles . 

One  of  the  important  points  is  that  in  the  case  of  N=1 , the 
whole  routine  can  be  completed  in  one  single  pass  of  the  pipes, 
thereby  doubling  the  efficiency.  Since  N will  be  less  than  or 
equal  to  4,  the  saving  should  be  quite  noticeable. 

Statement  9004  is  seen  to  take  full  advantage  of  the  multiple- 
operations  capability  of  the  FMP  vector  pipes. 


SUBROUTINE  RTECONtUEV) 

COMMON  /CHEM/  XNEUT (26) *T£MP (6240) »XK1 (240) »XK3 (240) «D0HL (240) t 
I TASEXP (5Q00»2) 

COMMON. /PTCST/  NL0N  t NUAT » NqRI D 

COMMON  /CHMC0N/  XK1P<26) *XK3P(26) « ACTEN1 »ACTEN2*X00HP (26) 
DIMENSION  T (570) 

TU0W*, 25605/6. 5536 
J«NGflID*<LEV-l) 

JP»J*1 

KaO 

DO  100  LAT*1»NLAT 
DO  100  L0N«1*NL0N 
J»J*1 
KaK*  1 

T(K)«TEMP(J) 

IF  <TCK> .LT.TLOW)  T<K>»TLOW 
100  CONTINUE 

CALL  EXPT(TABEXP»T»NGRID) 

L*0 

KaO 

DO  200  LAT»1*NUAT 
DO  200  LONsltNLON 
L«L*1 
KaK  + 1 

XK1(K)«XK1P(LEV)*T(L) 

L-L+NGRID 

XK3<K)aXK3P<LEV)*T<L) 

DOHU (K ) =X00HP < LEV ) *T ( U 
L*L*NGRId 
200  CONTINUE 

return 

END 
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In  both  loops  100  and  200,  the  formal  indices  are  LON  and  LAT 
but  the  true  indices  are  J,  K;  and  L.  This  fact  is  not 
detected  by  the  compiler  and  therefore  these  loops  are 
considered  uncollapsible  for  the  purpose  of  vectorization . 
Incidently,  this  type  of  loop  appears  throughout  the  entire 
program.  It  has  the  virtue  of  ease  in  managing  the  loop. 


SUBROUTINE  VRTECON(LEV) 

COMMON  /CHEM/  . , , 

COMMON  /FTCST/  , . « 

COMMON  /CHMCQN/  . . . 

DIMENSION  T (570) 

BIT  C (*) iCD 

DYNAMIC  COiTEMPD (25) iTD»XKlDtXK30»D0HLD«T0L 

90 U T0»TEMPD(LEV.) 

C0*T£MPD (LEV) .LT.TLOW 

9012  IF  (CD)  TD-TLOW 

CALL  EXPT(TABeXP.»T»N6RlD) 

9013  XK1D»XKIP(LEV)#TD 
9014-  XK3D«XK3P (LEV) *TDL 

00HL0»X0OHP (LEV) #TDL 
RETURN 

ENTRY  RTECON0 
TLOW«. 25605/6, 5536 
M0RID«NLaT»NL0N 
DEFINE  (TDtT(UMGRID) ) 

DEFINE  (TDL*T(MSRID*1IMSRI0) > 

DEFINE  (XKID.XKHIJHGRID) ) 

DEFINE  (XK3D*XK3(1IM0RID) ) 

DEFINE  (OOHLOtDOHL(HMGRlD)  ) 

JP*1 

DO  1 I»ILEV1*LEV2 

DEFINE  (TEMPO (1) tTEMP < J) J*MGRID»1> ) 
vt«J*NQRl0 
1 CONTINUE 
RETURN 
END 


There  are  1680=7*16*15  flops.  The  statements  9011,  9012,  9013, 
and  9014  are  vector  instructions  of  length  240.  Each  of  these 
will  need  36=6+(240+4)/8  cycles.  Therefore,  the  rate  is  1.47 
gigaflops . 
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Worth  noting  here  is  that  statements  9013  and  9014  cannot  be 
combined  since  the  FMP  vector  pipes  cannot  perform  more  than  2 
multiplications  in  parallel.  Half  of  statement  9014  could  be 
moved  to  statement  9013  but  in  that  case,  all  4 read  ports  would 
be  put  to  use,  and  the  total  system  would  be  busier.  The  way 
the  above  is  coded,  only  2 read  ports  would  be  used  in  statement 
9013  and  3 read  ports  in  statement  9014. 

The  data  in  the  vector  TEMP  is  prepared  in  the  routine  03HEAT 
which  calls  DX3CHM , which  calls  03CHEM , which  calls  RTEC0N . 
Therefore,  statements  9011  and  9012  could  have  been  rescheduled. 

The  routine  RTECON  is  called  by  the  routine  03CHEM  in  a loop. 

For  greater  efficiency,  this  structure  should  be  modified. 


SUBROUTINE  CHEMEQ (DUMMY. LEV) 

COMMON  /SPECIE/  XO3<6240) »CN03(6240) »XN02(330> 

COMMON  /FTCST/  NLON.mLAT.NQRID 

COMMON  /WORK8K/  AVJ03 (5280) .AVJ02 (5280) . AVQ03 (5280) 

COMMON  /CHEM/  XNEUT(26> »TEMP<6240) »XK1 (240) »XK3(240) »OOHL(240> 
COMMON  /CONSTS/  INDEX .NR » LR» INS .JNSZ.KI NT. ILEV1 * ILEV2 
COMMON  /030X/  03XFAC<2400) »O3XCON(2400> 

DIMENSION  DX03DT ( 1 ) * nUMMY  < 1 ) 

EQUIVALENCE  ( AVJ03 ( 1 ) .DX03DT<1>) 

J«(LEV-l)*N6RI0 

IN02*(LEV-i)*NLAT 

K»0 

FAC*9, 1E-12*XNEUT (LEV) *6856.8 

DO  300  LAT*1.NLAT 

IN02*IN0a*I 

DO  300  L0N*1.NL0N 

J»J*1 

KaK*l 

IF  (AVJ03(J) .ST.l.E-20)  SO  TO  200 
03XFAC (J) »1» 

03XC0N ( J) »0. 

DX03DT ( J) *0. 

SO  TO  300 
200  AaXKKK) 

B-OOHL (K) +XN02 ( IN02>  *XK3 (K) 

CaAVsJ02(J) 

Du (B«I « ) *C 
BaB*AVJ03(J) +A*C 
’ C»D 

A*A*AVJ03(J) 
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03XFAC  < J) «1.*XK3  <K) *AVj03 { J) /FAC 

03XC0N  < J) *AVd02  < J) »*K3  <K) /FAC 

D*8*8-4*A*C 

IF  (D.LE.O.)  0*0. 

X*(-8*SQRT(D>)/2.*A- 

X03<J)>X03«J)*03XFAC(d>'»03XCON{dJ 

Y*X03 ( J) -2. 5*DUMMY (K) 

IF  tY.GT.O.)  GO  TO  299 
X03<J)*X#o3XFAC(J>*O3XC0N<J> 
OX030T (J)*0» 

GO  TO  300 

299  DX03DT<J)*AVJ02(J> -DUMMY <K) 

300  CONTINUE 
500  CONTINUE 

RETURN 

END 


This  is  another  routine  that  has  similar  structure  to  the 
subroutine  RTECON  and  is  also  called  by  03CHEM  in  a loop  just 
like  RTECON.  Here,  the  vector  temporaries  k,  B,  C,  and  D will 
be  made  to  streamline  the  vectorization  by  using  dynamic  arrays. 
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SUBROUTINE  VCHEMEQ(OUMMY,L£V) 

COMMON  /SPECIE/  « . r 
COMMON  /FTCST/  « • • 

COMMON  /WORK8Y/  . . . 

COMMON  /CHEM/  . . . 

COMMON  /CONSTS/  * . » 

COMMON  /030X/  . . , 

DIMENSION  DX03DT  . . . 

EQUIVALENCE  (AVJ03  . . . 

DYNAMIC  AtB*C*OtX»Y 

BIT  E (4) «£D*Z (4) »ZD*Zi (4) «2i0 

DYNAMIC  0OHLD»XK3D«-AVJO2D,AVJO3D.O3XFACD»O3XCONOtDUMMYD»X03D. 
1 DX030TD 

DYNAMIC  XXN02D»ED»ZD»ZID 

DIMENSION  XXN02(16«15)  ,XFAC(25)  ♦03XFACD<25)  *03XC0N0<25>  • 

1 0X030TD (25) 

DIMENSION  AVJ03D (25) *AVJ02D(25) iX03D(2S) 

IN02» (LEV-1) *NLAT 

DO  *9  Isj.NLAT 

XXN02 (* t I ) *XN02 (I* IN02) 

*9  CONTINUE 

Z1D=AVJ030(LEV) ,LE.l»£-20 
Y*2.5«DUmMY0 
B«00hLD*XXN02D»XK30 
CaB*AVU02U(LEV) 

03XFACO(L£V)al*XK3D*AVJ03D(LEV)«XFAC(LEV) 

B«B<*AVJ030  (LEV) *XKlDoAVJ020 (LEV) 

A«XK1D*AVJ03D(LEV) 

C=(C-AVJ020(LEV) )*A 

03XC0ND(LEV)=AVJ02D(LEV)*XK3D*XFAC(LEV) 

D»8*8-4*C 
£D=D«LT • 0 . 

XaX03D(LEV)*03XFAC0(LEV) ♦03XC0ND(LEV) 

ZD«X,QT.Y 
0X030T0 (LEV) =0 
IF  (ED)  D*0 
Xa(SQRT<0>-8)*.5 
X*X/A 

IF  (ZD)  DX03DTD(LEV)8AVJ020<LEV)«.DUMMY0 
XsX03D (LEV) 

IF  (ZID)  03XFAC0(LEV)=I 
03XCOND(LEV)*0 

IF  («NOT.ZlD)  X03D(LEV)aX»o3XFACD(LEV)*03XCOND(LEV) 

return 

ENTRY  CHEMEQO 

mgrio=nlat*nlon 

DO  24  IoilEV1,ILEV2 

XFAC ( I ) *9. 1E-I2*6850.8*XNEUT ( I ) 

J=(L£V-1)*NGRID*1 

DEFINE  (03XFAC0 ( I ) .03XFAC ( Jl J+MGRID-1) ) 

DEFINE  (03XC0N0 ( I ) »U3XC0N ( Jl J*MGRID-1) ) 

DEFINE  (0X030TD  ( I ) « UX03DT  ( J l <J*MGRID”1 ) ) 

DEFINE  (AVU030(I) f AVJ03(JT J*MGRID-1) ) 

DEFINE  (AVU02D ( I ) «AV  i02 (J j J+MGRID-1 ) ) 

DEFINE  (X03D(I) *X03(U« J+MGpIO-1) ) 

24  CONTINUE  

DEFINE  (XK3D.XK3U  *MGRID)  ) 

DEFINE  (XXN02D*XXN02 (*« 1 ) ) 

OEFINE  (XKlOfXKl  (1  JMGRID)') 

DEFINE  (DUMMYDt DUMMY ( 1 JMgRID) ) 

OEFINE  (OOHLDtOOHLQ  JMGRID)  ) 

DEFINE  ( ZO *Z ( 1 JMGRID) ) 

DEFINE  (ZI0»Z1 (ltMGRlD) ) 

DEFINE  (ED*E  < 1 JMGRID) ) 

RETURN 

ENO 
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This  routine  is  relatively  lengthy.  A number  of  things  can  be 
found  here.  The  dynamic  arrays  have  illustrated  themselves. 

In  fact,  the  condition  vectors  ED,  ZD,  Z1D  may  be  put  in  the 
form  of  dynamic  arrays  to  save  some  syntactical  handling. 

Loop  49  is  an  example  of  broadcasting  that  creates  a longer 
vector  from  a shorter  one  so  that  the  former  is  compatible'  with 
other  vectors. 

In  addition  to  vector ization , the  order  of  the  computations  has 
been  somewhat  rearranged  to  avoid  delay/conflict  as 
necessitated  by  waiting  for  operands  which  would  have  been  the 
result  of  the  previous  instruction.  This  is,  however,  not 
completely  successful  as  can  be  seen  in  the  computation  of  the 
quadratic  root  X.  Since  8 results  can  be  produced  per  cycle, 
and  it  takes  30  cycles  for  the  first  result  to  come  out  of  the 
pipe,  the  vector  length  has  to  be  longer  than  240=8*30  to  avoid 
any  wait.  Interestingly,  in  this  case,  NL0N=16  and  NLAT=15,  the 
vector  length  is  240=15*16  which  barely  avoids  a wait. 

A square  root  function  is  included  in  this  routine;  it  will  not 
be  discussed  except  to  remark  that  it  can  be  approximated  with 
some  rational  function.  For  the  purpose  of  timing,  it  will  be 
treated  as  a known  quantity. 

There  are  7221=6+15*0+30*16)  flops.  It  -takes  16  passes  of  the 
FMP  vector  pipes.  With  the  vector  length  of  240,  a rate  of 
0.78  gigaflop  is  achieved  in  this  routine. 

In  this  routine,  there  are  two  data  dependent  paths.  A 
strategy  has  been  adopted  to  perform  all  the  operations  but  to 
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store  only  the  selected  components.  Another  approach  is  to 
compress  out  appropriate  components  before  operations  and 
insert  them  back  after  computations.  When  the  vector  length  is 
rather  short,  the  latter  is  not  used. 

Worth  noting  however,  is  that  things  may  be  different  if  the 
loop  in  which  this  routine  is  called  is  expanded.  This  will  be 
pursued  further  in  the  following. 


SUBROUTINE  03CH£M 

COMMON  /SPECIE/  X03 (6240) . CNOS ( 62*0) »XN02 (330 > t04 (5340 ) » 

1 XNEVEN (176) tXNODO  <176) 

COMMON  /FTCST/  NLON*NLAT»NQRlD 

COMMON  /QU8LK/  NZJ»L103*COL03(26) »LEVPCM*LEV0YN 
COMMON  /03QX/  03XFAC (2400) *03XC0N 0400 i 

COMMON  /CHEM/  XNEUT 426) .TEMP (6240) .XKI (2*0) .XK3 (240) .DOHL <240 ) 
COMMON  /WORKBK/  AVJ03 (5260 ) »AVJ02 <5280 )♦ AVQ03 <5280) 

COMMON  /CONSTS/  lN0EX*NR»LR»INS»INSZtKINT»ILEVl»lLEV2»NVERT *NRTP» 
1 LRTP,NTYPE»NVECT*NVREAL»NV20N»NCYC.0T 

COMMON  /MNCON/  S0»C0»S0XN 
DIMENSION  OUMMY(2*0)  ♦0X03DTU) 

EQUIVALENCE  (AVJ03U)  tDX03DT(l) ) 

NH*<NLAT*l)/2 

«J«0 

L«-NLAT 

DO  650  LEV=ltNZj 

l«l*nlat 

DO  640  LAT«ltNH 

I*L*LAT 

J*J*1 

ip»l*nlat-lat*i 

A»XN00D(J)*SDXN 
XN02 ( I ) •XNEVEN { J) +A 
XN02<IP) -XNEVEN (J) -A 
640  CONTINUE 
650  CONTINUE 
CALL  AVQj 
ilevi-levdyn 
ILEV2-NZJ 
J«ULEVl-l)»NGRIO 
IN02a(ILEVl-l)*NLAT 
DO  500  LEV»ILEV1.NZU 
K=0 

CALL.  RTECON(LEV) 
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00  300  lat®i»nlat 

IN02sIN02*1 

DO  300  L0N*1*NU0N 

JaO+1 

KaK*l 

XsXKl (K)»XQ3(J)*XK3(K) »XN02 ( IM02) ♦DOHU  <K ) 
YaAV  J03  (J)*X03(J)*AViJQ2(J) 

300  DUMMY (K>*X*Y 

IF  <LEV.6T.LEVPCM)  GO  TO  295 
CALL  CHEMEQ (DUMMY, LEV) 

GO  TO  500 
295  U*J-NGRID 

DO  299  K*1*NGRI0 

JaU+1 

299  DX03DT(J)=AVJ02<J)-DUMMY(K) 

500  CONTINUE 
RETURN 
END 


A number  of  observations  are  in  order.  As  noted  before,  in  loop 
500,  routines  RTEC0N  and  CHEMEQ  are  called.  IT  would  be 
desirable  to  incorporate  these  routines  into  the  loop  to  avoid 
any  subroutine  call.  In  addition,  the  loop  should  be  broken 


4-44 


into  two  parts,  namely,  one  for  LEV=ILEV1 ,LEVPCM  and  one  for 
LEV=LEVPCM+1 , NZJ.  In  fact,  this  division  can  be  implemented 
only  for  the  second  half  to  avoid  a conditional  branch. 


The  broadcast  which  was  done  in  the  routine  CHEMEQ  is  seen  here 
too..  The.  double  loop  640  and  650  seems  to  be  needed  only  once. 


In  fact,  the  mission  of  routine  03CHEM  is  to  obtain  the  vector 

DX03DT.  In  the  process,  intermediates  such  as  X,  Y,  and  DUMMY 

are  computed;  they  actually  play  a role  of  dynamic  temporaries. 

To  conserve  the  storage  space  requirement,  they  were  originally 

dimensioned  with  a moderate  length  for  the  available  computing 

machinery.  It  has  been  said  that  one  can  buy  computer  time  but 

not  computer  memory.  The  FMP  offers  memory  size  that  is 

unthinkable  to’  the  "old  timers",  in  addition  to  its 

revolutionary  computational  capability.  Therefore,  it  is  not' 

necessary  to  continue  being  stingy  in- the  use  of  memory  space, 

though  there  is  no  point  in  wasting  it  either.  As  longer 
* 

vectors  would  be  preferred  by  the  FMP  for  performance,  it  is 
wiser  to  increase  the  dimension  for  the  intermediates  X,  Y,  and 
DUMMY,  etc.  in  order  to  avoid  calling  routines  RTECON  and  CHEMEQ 
in  loop  500. 


SUBROUTINE  V03CHEM 
COMMON ./SPECIE/  . . . 

COMMON  /FTCST/  * « • 

COMMON  /QJBLK/  . . . 

COMMON  /030X/  , . , 

COMMON  /CHEM/  , . , 

COMMON  /W0RK8K/  , , . 

COMMON  /CONSTS/  . . . 

COMMON  /MNCON/  . , • 

DIMENSION  . . , 

equivalence  » « ♦ 

DYNAMIC  ZK1 *ZK3«T0H»DUM»ZN0 

DIMENSION  YN0(16»15> .ZK1P <?*0*25> *ZK3P (240*25) » ZTOH < 240  * 25) , 
1 ZFAC<240«25> 

DIMENSION  ZNO (240  *25) 

DYNAMIC  A.BtCtD«X»Y 

CALL  AVQj 
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TaTEMPD 

EaTEMPD.LT.TLOW 

YY»AV J0302*X03D2* AVU02D2 

IF  <E)  TaTLOW 

CALL  EXPT (TABEXP.Tt  . . , 

9020  ZK1*ZK1P*T 
ZK3»ZK3P*TL 
TOH«ZTOH*TL 
0UM»ZKl*XO3D2*ZK3*ZNO 
DUM«YY*(OUM*TOH) 

9021  DX030T0laAVJ02Dl-DUMMY01 
OX03DT03*AVJ0203-DUMMY03 
Z1»AV J03D.LE • 1 ,E“H0 
Y»2*5*0UM 
BbTOH*ZNO*ZK3 
C«8*AVJ02D 

03XFAC0»l*ZK3*AVJO3D*ZFAC 

B»8*AVJ030*ZK1*AVJ020 

A»ZK1*AVj03D 

C*<C«AVvJ02D)*A 

03XCOND«AVJ02D*ZK3*2FAC 

E-O.LT.O 

X«X03D*03XFACD*03XC0ND 

ZaX.QT.Y 

DX03DTD*0 

IF  <E>  0*0 

X«(SQRT(0)-B)*,5 

XsX/A 

IF  (Z)  DX030TD»AVJ02D*DUM 
X«X03D 

IF  (Zl)  03XFACD-1 
O3XC.0N0*0 

IF  (.NOT.Z)  XO30*X*.O3XFACO*O3XCONO 

return 


ENTRY  O3CHEM0 
J«{LEVDYn-1)*N6RI0*1 
L2* (NZJ“LEVDYN+ 1 ) *NGRID 
DEFINE  I TEMPO .TEMP ( J I J+L2-1 ) ) 

DEFINE  (X03D2»X03(Jt J+L2-1) ) 

DEFINE  (AVJ03D2,AVJ03(Jj  j+i.2-1)  ) 
DEFINE  ! AVJ02D2* AVU02 ( J { J*L2»1 ) ) 

L 1*  < LEVPCM-LEVDYN* 1 > *NGR I D 
DEFINE  lAVJ02D»AVJ02<JtJ*Ll-l) ) 

DEFINE  UVJ03D»AVv;03(Jij*Ll-l) ) 

DEFINE  (03XFACD.03XFAC(JJ  J.*L1-1)  ) 
DEFINE  «03XC0ND»03XC0N(jjj*LX-U  I 
DEFINE  (0XO3DTD * DX030T { Ji J+Ll-l ) ) 
DEFINE  (X03D.X03 ( JlLl ) ) 

LL*  (NZJ-LE.VPCM)  *NGRID 
JJ«(LEVPCM-1)*NGRID*1 
LL2»LL/2 

DEFINE  <DX03DT01»DX030T(JJ|JJ*LL2-1> } 
DEFINE  UVU02D1.AVJ02 (UJ 1 JJ*Ll2-l ) > 
DEFINE  (DUMMYDl.DUM(JJjJJ*LL2-l) ) 
LL3«LL-LL2 
JJ3«JU*LL2 
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DEFINE  (DX03DTD3»DX03DT { JJ3I JJ3*LL3«1) ) 
DEFINE  (AVj02D3»AVJ02(0J3t«JJ3+U.3-l) ) 
DEFINE  (DUMMYD3# DUMMY (JJ3>  JU3*L.L3**1) ) 
NH»<NLAT*l)*tS 
J«0 

La-NLAT 

DO  651.  L£V=»1-*NZJ 
LaL^NLAT 
DO  641  LAT*1»NH 
«J»J*1 

INX{J)«L*LAT 
IPX(J)«t-*NLAT-l.AT*l 
641  CONTINUE 
651  CONTINUE 
L0»NH*NZj 

XN02 ( INX) aXNEVEN ( llLO > *XNOOD < 1 iLO>*SOXN 
XN02 { IPX) aXNEVEN < 1 » LO ) -XNOOD  < 1 IL0>  *SOXN 
* IN02*(LEVDYN-1)#NUAT 
DO  41  I*1,NLAT 
YN0(«*I)aXNO2{I*INO2) 

41  CONTINUE 

DO  42  I«LEVDYN»NZJ 
ZKlP  <*»I) aXKlP (I) 

ZK3P (*» I ) aXK3P  < I ) 

ZTOH (#» I ) aXDOHP ( I ) 

ZFAC<»tI>» 

ZNO (•» I) »YNO(*) 

42  CONTINUE 

return 

END 


- 


The  statement  9021  replaces  the  loop  299.  Since  it  consists  of 
one  single  operation,  it  is  broken  into  2 halves  for  parallel 
processing.  The  vector  length  in  this  case  is  1920=16*15*16/2 
and  it  takes  246=6+O920+4)/8  cycles  for  statement  9021  to 
complete . 
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Statement  9020  can  be  considered  similarly.  The  vector  length 
here  is  3000=16*15*25/2;  it  takes  381 =6+(3000+4)/8  cycles  to 
complete . 

After  statement  9021  are  codes  from  the  routine  CHEMEQ  except 
that  the  vectors  are  9 times  longer.  Each  therefore  needs 
276=6+(l6*15*9+4)/8  cycles.  Except  for  statement  9020,  the 
vector  lengths  for  lines  before  statement  9021  are 
6000=16*15*25. 

The  code  after  statement  9021  needs  4140=276*15  cycles,  while 
the  code  before  needs  4161=756*5+381  cycles.  A grand  total  of 
138,042  flops  is  required.  With  8547  cycles,  it  yields  1.01 
gigaflops. 

Loops  41  and  42  are  for  broadcasting.  Loops  641  and  651 
prepare  the  index  vectors  INX  and  IPX  which  are  used  to  scatter 
XN02  using  indirect  addressing. 


SUBROUTINE  FFTFQR  (DATARI.»OaTAIM) 

COMMON  /FFT/  WP(7*7*  IS)  «W  <2»7>  tNTRANS  ( 16)  ,NNN»NNiLR1*NLA7HF» 
I NCPAR<7) *L0sN 
COMMON  /FTCST/  N 
DIMENSION  DATARL(irtDATAIMU) 

ISIONsl 

1 DO  91  INN»NtNNNtN 
KNN*INN-N 
DO  12  J»!*N 
TEMPR*0ATARUJ*KNN1 
TEMPIaOATAlM ( J+KNN) 

dataruu*knn>.datarl<ntrans(\J>  ♦knn> 

DATAIM(U+KNN) »DATAIM<NTRANS(J) *KNN) 

0ATAIM(NTRANS(J) *KNN) «TEMPl 
12  DATARU{NTRANS,<J)*KNN)*TEMPR 
NSS*N/2 
DO  15  J»ltNSS 
L*2*J-1*KNN 
M»L*I 

TEMPR«DATARL (L) +DATARL (M) 

TEMPIwDATAlM (L) ♦OATAIM(M) 

DATARL (M) «OATARL  tL) -OATARL (Ml 
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DATAIM<M)*DATAIM<U)-OATAIM(M) 
DaTAIM(L)*TEMPI 
15  DATARL <L)«TEMPR 

IF  <N«2>  91*91*20 
20  00  90  I«2»LOGN 

NUM*2**I 
NUMHF  oNUM/2 

nss*n/nUm 
DO  90  Jal *NSS 
NUMJKaNUM* ( J-l ) *KNN 
L*1*NUMJk 
M»L*NUMHF 

TEMPRaOATARUL)  ♦DATARL(M) 
TEMPI*OATAlM(U*OATArM(MJ 
DATARL  <M) aDATARL <L> -DATaRL  <M) 
DATAIM(M)BOATAIM(L)**OATAIM<M) 

DATARL CL) »TEMPR 

DATAIM(L)«TEMPI 

DO  90  K*2*NUMHF 

L*K+NUHJK 

M.L+NUMHF 

MMaNSS»(K-l) 

W2»W (2»MM) 

IF  (1SI6N,GT,0)  GO  TO  80 
W2**W2 

ao  CRQSSRs»DATARL<M)*vHl,MM)  ♦DaTAXM<M>«W2 
CROSSIaOATAIM (M) (1 *MH) -OATARL  CM) #W2 
DATARL (M) aDATARL  CL) -CROSSR 
DATAIM (M) aOATAIM (L) "CROSS I 
DATARL  CL)  aDATARL  (U*CR0SSR 
DATAIM (L)aDATAIM CL) +CROSSI 

90  CONTINUE 

91  CONTINUE 

IF  (ISIGN,LT.O)  GO  TO  99 
DO  97  I»l*NNN 
DATARL ( I ) aDATARL { I ) /N 
97  DATAIM(I)»DATAIM(I)/N 
99  RETURN 

ENTRY  FFTREV 
ISIQNa-1 
GO  TO  1 
END 
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Routine  FFTFOR  performs  the  Fast  Fourier  Transform  as  a step  in 
the  transformation  between  the  physical  space  variables  and 
their  spectral  coefficients.  First,  the  branch  to  statement  80 
can  be  avoided  if  the  variable  W2  is  properly  set  upon  entry. 
This  is  very  little  pre-processing  but  would  allow  having  a 
branch-free  code  sequence.  Another  branch  after  statement  15 
can  be  removed  as  it  serves  no  real  purpose  in  practice. 

Besides  the  pre-process  setting,  the  code  can  be  divided  into  2 
parts.  The  first  part  consists  of  loop  12  only  to  rearrange 
the  input  sequence  in  support  of  the  branch-free  computation 
that  follows  as  the  second  part.  The  code  is  constructed  to 
transform,  at  one  time,  a single  input  sequence  whose  elements 
are  in  the  memory  consecutively.  Since  the  length  of  the 
sequence  N=16  is  a small  number  in  the  program,  there  is  very 
little  point  to  vectorize  the  transform  itself.  A better  way  of 
utilizing  the  FMP  is  to  perform  the  transform  in  the  same  manner 
over  many  input  sequences  together.  To  do  this,  the  sequences 
must  be  aligned'  in  such  a way  that  all  the  first  elements  of 
input  sequences  are  consecutive  in  the  memory,  followed  by  all 
the  second  elements,  etc.  This  involves  a transpose  operation 
which  is  time  consuming  in  that  one  can  expect  as  few  as  one 
single  word/result  per  cycle. 

SUBROUTINE  VFFTFOR (OATARL.DATAIM) 

COMMON  /FFT/  « « • 

COMMON  /FTCST/  • • » 

DIMENSION  OAT ARC  l . ♦ . 

DIMENSION  RL(NN.I) .YM(NN.l) 

EQUIVALENCE  (RLtOATARL) » (YM.OATAIM) 

DYNAMIC  PR.PI.TR.TI 
DYNAMIC  RLO.RtOO.YMO.YMOO 

ISIGN»0 

VigaWO 

9 CONTINUE 


call  rearr 


DO  15  L*1*N»2 
MoL+1 

PRsRLD(L)*RLD(M) 

RLD(M)aRLDCL)-RLD(M) 

RLD(L)aPR 

PlaiYHO  (L)  *YMQ (M) 

YMO(M)aYMDtL)-YMO(M) 

YMO(U«Pl 
15  CONTINUE 
NUM*2 
NSS*N».5 
00  89  I=»2»L0GN 
NUMHFsNUm 
NUM«NUM*2 
NSS»NSS*.5 
NUMJKa-NUM 
00  89  J-l.NSS 
NUHJKaNUMvlK*NUM 
L*1*NUMvJK 
M*t*NUMUK 
PRsRLD(L) ♦RLD(M) 
RLD(M)sRLO(L)-RLD(M) 

RLD(L)»PR 

PI*YMO(U*YMD(M) 

YMQ<M)sYMD<L>-YMD(M) 

YMD (L ) aP 10 
MMaO 

00  89  K«2 » NUMHF 

MMaMM*NSS 

L»K*NUMJK 

m»l+numhf 

TlaYMD  (M)<*m(l»MM)  “RLD  (M) *W2  (MM) 
TRaRLO (M) (1*MM>  *YMD (M) *W2 (MM) 
YMD(M)sYMD<U-TI 
YMD<U»YmO(U*TI 
RLD(M)aRLO(U-TR 
RLD<L5=RLD(l)*TR 
89  CONTINUE 

89  CONTINUE  

IF  (ISIGN.NE.-l)  RETURN 

rldo*rldo*fn 

YMOOaYMOO#FN 

RETURN 

ENTRY  FFTREV 
ISIGNs-l 
*2=-W0 
GO  TO  9 

ENTRY  FFTO 
DO  110  1*1 tN 

DEFINE  (RLDU)  *RL(1»NN,  n ) 
DEFINE  (YMD(I)  ♦YM(1INN,D) 

110  CONTINUE 

DEFINE  (PLDO,RL(l)NNN,m 
DEFINE  (YMOO.YM(ltNNN,l) ) 
FNal./N 
DO  111  1*1*7 
W0(I)*W(2,I) 

111  CONTINUE 
RETURN 
ENO 
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This  routine  is  one  that  cannot  be  vectorized  from  the  point  of 
view  o'f  the  algorithm.  There  are  496  flops  in  each  transform. 
Assuming  no  instruction  has  to  wait  for  the  previous  result, 
each  transform  will  need  496  cycles  to  get  out  of  the  Scalar 
Unit.  Each  time  an  FFT  subroutine  is  called,  it  has  to  perform 
( 15*NLEV+1 )/2  transforms,  where  NLEV  is  the  number  of  levels 
involved . 

NLEV  is  less  than  or  equal  to  25.  If  NLEV=25,  for  example, 
there  will  be  188  transforms  and  93,248  flops  altogether. 

If  all  transforms  are  performed  through  the  pipeline  as  coded 
above,  the  number  of  cycles  -needed  for  NN  transforms  is 
126M+867  where  M=(NN+4)/8. 

For  NN=188,  3891  cycles  are  required,  which  yields  1.5 
gigaflops.  This  is  for  the  computations  only. 


SUBROUTINE  SPOFOR  < A5PEC»AGRlD, AI .NVERT) 

REAL  ARSP{30) tAORIOfAl 

COMMON  /FFT/  WP (7 . 7* 15) * W t 2 »7) «NTRANS (16) » NNN.NN.LR1 »NLATHF » 
I NCPAR<7) tLOGN 

COMMON  /CONSTS/  U1  (2) »LR»J2<10> »NREAL*NZONE 
COMMON  /CG8LK/  J4 <86, ,NC0MP ( 12) 

COMMON  /FTCST/  N»NLAT »J6» ARSP 
COMMON  /GLOP/  P(7*7»15) *WT<50> ,AR<50) 

DIMENSION  ASPEC(l) lAORlO(l) *AI (1) 

00  5 l«l,NNN 
AGRID { I ) *0  • 

5 AI(I)»0 

00  30  K*1,NVERT 
M»<K-.1)*NLAT#N 
MM*<K-1)*NREAL 
OO  30  J*1 tNLATHF 
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JJ*NLAT*l-0 

oddR»o. 

EVENRsO# 

LJOaM*<J-D*N 

DO  10  I*1*NZ0NE,2 

10  EVENR»EVENR+ASPEC(MH*X) *P (1*1*0) 

IF  <LJO»NE»LJJO)  GO  tO  11 
AGRID (LJ0*1 ) *EVENR 

GO  TO  16 

11  DO  15  I=2»NZ0NE*2 

15  ODDR*OODR*ASPEC(MM* I ) *P ( 1 * I » J) 
ACRID  (LJ0*1)  =EVENR-»ODOR 
AGR1D(LJJ0+1> =EVENR-ODOR 

16  ICE=NZONE*l 
lC0aNZ0NE+3 
DO  30  L«2»LR1 
ODDRbO. 

OODl*0. 

EVENRaO. 

EVENIaO. 

ieno»ncomp<d 

LJbLJO+L 

LJJ*LJJQ*L 

DO  20  I31 « IENO * 2 

EVENR=EVENR*ASPEC (MM*ICE) <*P  (L»  1 1 J) 
ICE*ICE*1 

EVENlaEVENl*ASPEC(MM*ICE)*P(L»I.«J) 

20  ICE«ICE*3 

IF  (UJ.NE.UJJJ  GO  TO  21 
AGRIO(LJJ)*EVENR 
AI <LJJ)»EVENI 
GO  TO  26 

21  DO  25  I»2# IEN0»2 

• ODORaOOOR* ASPEC (MM* ICO) *P (L* I * J> 
ICOaIC0+l 

ODDlaOOOl*ASPEC(MM*lCO)«PfL»I»J> 

25  IC0alC0*3 

AGRIO (LJ) a£VENR*OODK 
AI (LJ) aEVENI+ODDI 
AGRIDfLJJJ’EVENR-OODR 
AI (LJJ)sEVENI-ODDI 
LLJ»LJ0*N*2-L 
AGRID(LLJ)*AGRID(LJ) 

AI <LLJ)*-AI (LJ) 

2b  LLJJ»LJJ0*N*2-L 

AGR I D < Lt J J ) a AGR I D ( L J J ) 
AKLLJJ)a-AI(LJJ) 

IF  (NCPAR (L> .EQ.O)  GO  TO  30 
ICK*ICO 
ICOaKE 
ICE»ICK 
30  CONTINUE 
RETURN 

ENTRY  FORSPC 
DO  80  I=ltNVERT 
Ma(I-l)*NLAT*N 
MM* ( 1-1 ) UNREAL 
DO  70  jal,NZ0N£ 

R»0» 

DO  60  K»l,NLAT 
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LL»M* (K-l) #N*i 

60  R»R* AGRlD U.L)  *WP  < 1 »>J»K ) 

7Q  ASPEC(MM*J)«R 
ICcNZONE 
DO  00  J*2»LR1 
IEND«NCOMP(J) 

DO  80  JJb1»IENO 
R»0  ■ 

C»Ob 

IC*IC*1 

DO  75  K»1bNLAT 

R«R*AGRlD  U.U»*P(  JbJJ.K) 
75  C*C*AI  (LD*WP(J,JJ,K) 
ASPEC<IC+MM)sR 
IC*IC*1 

ASPEC(IC*MM)»C 
80  CONTINUE 
RETURN 
ENO 


There  are  two  parts  in  this  subroutine  to  perform  the  Legendre 
transform  in  both  directions.  SPCFOR  transforms  the  spectral 
coefficients  into  Fourier  coefficients  and  FORSPC  transforms 
the  Fourier  coefficients  into  the  spectral  coefficients.  They 
are  really  independent  of  each  other  in  instructions,  although 
they  share  the  same  data  block. 

The  data  is  structured  in  such  a way  that  the  spectral 
coefficients  of  a given  level  are  grouped  together  and  followed 
by  those  of  the  next  level,  and  so  on.  The  Fourier 
coefficients  of  a sequence  are  grouped  together  and  followed  by 
those  of  another  sequence.  This  is  a good  structure  for  most 
conventional  non-vector  computers  to  process  data  in  vector 
fashion,  mainly  to  maximize  the  data  flow  rate.  In  fact,  this 
entire  program  was  coded  originally  in  this  manner  to  achieve 
vector-like  performance  with  non-vector  computers. 
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For  the  FMP,  it  is  wiser  to  structure  the  data  another  way, 
namely,  to  group  coefficients  of  same  index  but  for  all 
different  levels  and  latitudes.  This  way,  every  instruction  in 
the  transform  can  be  performed  on  an  array  of  elements  that  are 
of  the  same  index,  rather  than  one  single  element.  The 
algorithm  can  then  be  kept  virtually  unchanged.  As  a matter  of 
fact,  a closer  look  at  the  code  will  reveal  that  the  algorithm 
is  basically  scalar  in  nature  and  vectorization  of  it  is  almost 
self-destructive . 

One  of  the  fundamental  operations  here  is  the  inner  product 
between  two  vectors.  One  machine  instruction  on  the  FMP  will 
do  this  but  it  is  designed  to  serve  long  vectors.  In  fact,  for 
a vector  length  of  4,  nothing  will  be  accomplished.  In  the 
routine  SPCFOR,  the  vector  length  will  range  from  3 to  4;  in 
FORSPC,  the  vector  length  is  15.  In  both  parts,  the  inner 
products  are  in  the  innermost  loop.  To  avoid  the  drawback,  the 
program  is  recoded  in  such  a way  that  the  inner  product  is 
broken  into  fundamental  arithmetic  operations  and  the  loop  for 
it  is  turned  inside  out  as  follows: 


SUBROUTINE  VSPCFOR ( ASPEC*  46«I0»AI fNVERT) 


00  30  K»1,NVERT 
MM»(K-1)*NREAL 
00  30  JS1.NLATHFI 
L*  1 

EVENR (K* J,L) »ASPEC (MM+1 ) *P (L t 1 , J) + ASPEC(MM+3) *P(L*3» JJ 
0D0R(K,U*U*ASPEC{MM*2)*P(L*2«»J>  *ASPEC(MM*4>  *P<L»4.J) 

10  EV£NR(K*J*L)*EVENR(K»J»L) *aSPEC (MM*5)*P(lt5»U) 

15  ODOR<K.J»L)»ODOR<K»J»l)*ASPEC{MM*6)»P(l*6.J) 

EVENR  <K»J,L) «EVENR (K«J«L>  *ASPEC (MM*7) *P(L»7*J) 

ACRID {K*JtL>*EVENR(K»JtL) *0D0R(K*J«U 
AGRID{K»NLA?*I«J»L) «EVENR (K* J»L>-QDDR<K»J,L) 

16  ICE"NZ0NE-11 
DO  30  L*2tURl 
ICE*ICE*l2 

EVENR (K* JtL>aASPEC(MM*ICE)*P{L» 1 td) ♦ASPEC (MM+ICE+4) *P (L»3* J> 
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EVENI <K*J»L)*ASPEC(MM*1CE*1) *P<L.1*J> * ASPEC <MM*ICE*5> *P (L * 3* J) 
Odor  <K, sM. > «ASPEC  <MM* ICE*2)  *p<u» 2 *J>«.ASPEC<MM*IC£*6)*P<L»4»J> 

ODOI (K«dtLl «ASP£C (MM*ICE+3)*P(L*2«J) ♦ ASPEC  (MMMCE+7) *P (L*4* J) 
EVEMR (K» J»L) *£VENR (K* J*L> ♦ ASPEC (MM* ICE*8) *P (L»5»d> 

EVENT {K » J »L) =EVENI (K, J,L ) *ASPEC{MM*ICE*9)*P<Lt5tJ) 

20  CONTINUE. 

21  CONTINUE 

ODOR  t J«L>  *ODDR (K» J*L) ♦ASPEC (MM*ICE*10) *P (L i6» J) 

Oddi <k.j»l>*oddi <k»j,l>+aspeccmm+ice*ii)*p<l«6.j> 

25  CONTINUE 

A6RlO<K.J,U*EVENR(K,j,L)*OOOR(K»UtU) 

A I ( K » J , L) »£VENI (K.J»L) +0001 (KtJtl) 
AGRID(K«NLAT*1-j,L'>*EVENR<KiU.L)-0DDR{K,J,L) 

AI $K.NLAT*1-J*L)«EVENI (K« J«L) “ODDI <K.J»L) 
AGRI0(K»J»N-»2-L)sAG«ID<K*J,L) 

AI (K.J»N*2-L)=-AI <K*J,L) 

2b  CONTINUE 

AGRID(K»NtAT*l-J,N*2«U»AGRlD  (K«NLAT*1«J»U 
AI (K»NLAT*l-U«N*2-L>a-AI {K,NLAT*1-J»L) 

30  CONTINUE 

DO  80  K*1,NVERT 

MM*(K»1)*NREAL 

L»1 

EVENR (K*NLATHF.L) SASPEC (MM*1) «p (L* 1»NLATHF) + ASPEC (MM*3> 

1 *P(L.3*NLAfHF) 

60  EVENR (K*NUATHF,L) a£V£NR (K«nUATHF»L) *ASPEC (MM+5) *P (1 *5»NLATHF) 
AGRID(K»NLATHF»L)*EVENR{K*NLAThF.U) +ASPEC{MM*7)*P(L.7,NLATHF) 

66  ICEsNZONE-11 
DO  80  L»2»LR1 
ICE*ICE*12 

EVENR  <K*NLATHF  tL) a ASPEC {MM  + ICE)  <*P (Lt 1 tNLATHF) *ASP£C (MM*ICE*4) 

1 *P(Lt3»NLATHF> 

EVENI  {K»NLATHF»L)s»ASPEC(MH*ICE*I)  wP<li»2*NLATHF)  ♦ASPEC  (MM* ICE*5) 

1 Ap(L»4*NLATHF) 

70  CONTINUE  ' 

AGRID(K«NLATHF»L)=EVENR(K,NLATHF»U ♦ASPEC (MM* ICE*8> *P (LtStNLATHF) 
A I (K,NLATHF»L)=EVENl <KtNUATHF.L) * ASPEC <MM+ICE+9) *o<LtS«NLATHF> 

76  CONTINUE 

AGRID<K»NLATHF»N+2-L)*AGRlD<K*Nl.ATHFfU 
AI <K.NLATHF.N  + 2-L)s-AI (Kf n^ATHF  tL) 

80  CONTINUE 
RETURN 

ENTRY  FORSPC 
DO  180  I»l»NVERT 
MM»{I-1)*NREAU 
d«l 

DO  170  Jjsl «NZONE 
DO  160  K.1.NLATHF1 
KK*16-K 

R (I* JJ* J»K>  «AGRID (I*KtJ) *WP( JtJJtK) ♦AGRID (ItKKt j) *WP < J, JJ»KK> 

160  CONTINUE 

R(I#JJ»d»l>*AGRI0{I»8*J>»Wp(J»dJ»8>*R<I.JJ»Jtl} 

R(ItJJ«J»3)aR<ItJJ»J*2)*R(I*dJ»J*3) 

R ( 1 t JJ  t J 1 5) “R ( 1 t Jd  t J *4)^R(I*dd»J»5) 

R(I»JJ»d«7)"R(I»dd*J*6) ♦R(I»JJtd»7) 
R(I.JJ»Jtl>»RUtJJtJ,7)4R(I,JJ,Ji  1) 

RQ«JJiJt3)*R(I»JJ»J*5>  ♦R<I.dd»dt3) 

ASPEC ( MM* j J > *R  < I * J J » J « 3 ) ♦ R <1 « J J t d ♦ U 
170  CONTINUE 

IC*NZ0N£+ 1 
DO  180  J»2*LR1 
DO  180  JJ=1*IEND 
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DO  174  K«1 *NLATHF1 

RI(1*JJ»J»K)*AGR1D(I*K»J)#WP<J*JJ*K)  ♦AGRID  (I  tKK«  U)  *wP  < Jt 

<I»K*U)*WP(J«OJ*K)*AI  (l*KK.J)*ViP<J*JJ*KK) 

17-4  ^j^^gt7),R<1|jjtj,7)*A(5RXD(I,8»J)*WP(J»JJ*a) 

C(I«JJ*0«7)oCa#JJ»J*7)  *A1  ( I »8»  J)  *WP< 

DO  175  K«1 »5»2  , „ 

R(I.UJ*J*K>«RU*JJ»d»K)*R<I»OJ*'J»t<-,'l> 

175  CONTINUE 

DO  176  K*l *5*4 

R(I»JJ*J*K)*Rt !*JJ»U»K>*R ( I»JJ,J»K*2 ) 

C(I»JJ*J*KJ*C<I*JJtJ*K)*CUtJJ*J*K*2) 

176  CONTINUE  , . 

A SPEC  (MM+IC)  *R  (I»JJ»'J»l)*Rd»JJ*<J*5) 

ASPEC(MM*1C*1) *C (I»JJ*J*1)+C(I*JJ»J*5) 

• IC»IC*2 
180  CONTINUE 
RETURN 


ENTRY  INI 

NLATHF13NLATHF-1 

IEND»NCOMP(2) 

return 

END 


The  intermediates  R,  C,  EVENR,  EVENI,  ODDR,  and  ODDI  have  been 
made  vectors,  and  the  variables  AGRID  and  AI  have  been 
re-dimensioned.  The  new  dimensional  structure  is  compatible 
with  the  counterpart  in  the  routine  FFTFOR/FFTREV.  However, 
?"the  structure  of  the  array  ASPEC  is  for  this  moment  left 
untouched.  In  fact,  what  has  been  done  in  the  above  is  far 
from  vectorization  intentionally  because  the  purpose  was  to 
retain  the  main  code  structure  so  that  it  is  easily  followed. 
Though  it  is  not  at  all  in  vector  form,  it  can  be  put  in  vector 
form  in  a straightforward  manner  for  one  to  see  without  having 
it  actually  carried  out.  The  key  here  is  to  move  the  loop  over 
the  level  into  the  innermost.  The  dimensional  structure 
reflects  the  order  of  the  loops,  and  therefore  the  form  of  the 
vectors . 
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SPCFOR  is  broken  into  two  parts  to  avoid  branches,  leaving  a 
branch-free  code!! 

The  performance  is  incredibly  good;  nearly  the  full  speed  of  the 
FMP  can  be  realized  as  much  of  the  instructions  are  3-operation 
combinations.  The  only  consideration  remaining  is  to 
restructure  ASPEC  before  SPCFOR  and  after  FORSPC.  This  is  slow, 
but  a proper  segmentation  can  be  arranged  so  that  the 
computation  would  be  done  for  free. 

The  index  of  ASPEC  takes  the  form  of  MM  + K where  MM  provides 
the  starting  point  of  the  level  L,  and  K gives  the  index  of  the 
spectral-  coefficient.  Conceivably,  the  data  of  the  entire 
program  could  have  been  restructured  with  ASPEC(L,K)  in  place 
of  ASPEC(MM+K).  In  that  case,  no  further  restructuring  such  as 
pre-  or  post-processing  is  required. 

Most  subroutines  of  the  original  code  not  discussed  above  were 
recoded  using  multiple  indices,  i.e.,  replacing  Z(MM+K)  with 
Z(K,L)  in  syntax.  These  are  found  is  appendix  D where  each 
subroutine  appears  followed  by  the  recoded  version  which  has 
the  same  name  except  prefixed  with  a V.  It  can  be  noticed  that 
one  of  the  most  common  structures  is  as  follows 

DO  200  K=K 1 , K2  \ 

1 

DO  100  LrLI,  L2  j 

j 

Z (K , L)  = ...  X(K,L)  ...  > (22) 

I 

100  CONTINUE  i 

I 

200  CONTINUE  / 
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identified  by  brackets  around  them  in  the  left  margin  of 
appendix  D. 


A double  loop  in  this  very  form  is  not  collapsible  for 
yeatorization  -because  the  elements  of  the  array  Z and  X are  not 
visited  consecutively.  However,  if  the  data  array  is 
restructured  in  such  a way  that  the  indices  K and  L interchange 
their  positions,  the  result  is 


DIMENSION  Z(LL,KK),  X(LL, KK) 
DO  200  K=1,  KK 
DO  100  L=1 , LL 
Z(L,K)  = ...  X(L , K)  ... 

100  CONTINUE 
200  CONTINUE 


\ 


> (23) 


/ 


This  same  double  loop  is  then  readily  reducible  to  one  single 
vector  instruction  of  length  LL*KK. 

Simple  loops  are  identified  by  an  arrow  in  the  left  margin  of 
appendix  D;  these  are,  of  course,  readily  vectorizable . Other 
loops  which  are  not  quite  in  the  form  of  (22)  are  marked  with 
brackets  in  the  right  margin  of  appendix  D.  However,  these  can 
be  converted  to  the  form  of  (22)  by  merely  interchanging  the 
order  of  the  double  loop;  these,  in  turn,  can  be  changed  to  the 
vectorizable  form  of  (23)  by  restructuring  of  data. 

What  this  amounts  to  is  essentially  that  each  data  array  not 
only  can  be,  but  also  should  be,  restructured  into  its 
transpose.  In  other  words,  elements  of  same  index  (spectral  or 
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physical)  but  of  different  levels  should  be  grouped-  together, 
followed  by  a group  of  another  index,  etc.  This  will  virtually 
render  the  entire  program  instantly  vectorizable  without  change 
to  the  program  logic.  In  this  sense,  the  code  in  its  original 
form  is  suitable  for  the  FMP. 

Some  comments  are  in  order  regarding  the  streamlining  of  the 
code  for  high  performance.  Although  these-  considerations  have 
to  be  treated  on  an  individual  basis,  they  are  by  no  means 
obscure  and  should  be  rather  obvious  to  a reasonably  well- 
trained  programmer. 

It  can  be  noted  that  level  delimiters,  say  LI  and  L2, 
frequently  appear  in  the  code  such  that  most  loops  run  from  LI 
to  L2.  Data  should  be  structured  so  that  the  loop  can  be 
transformed,  into  a single  long  vector  from  LI  to  L2.  Elements 
for  L < LI  and  L > L2  can  be  grouped  separately  .and  processed 
differently.  Conceivably,  these  are  few  and  could  be  processed 

t 

by  the  Scalar  Unit  in  parallel  with  the  vector  operations. 

The  79  components  of  the  spectral  coefficients  for  a 4-level 
case  are  originally  ordered  as  shown  in  figure.  14.  Elements  of 
the  same  index  but  different  level  should  be  grouped  together 
and,  in  addition,  the  data  should  be  structured  in  three 
portions  as  shown  in  figures  15a,  15b,  and  15c.  This  avoids 
the  necessity  to  Compress  in  VCORFOR  and  Compress/Merge  in 
VSPCFOR,  ...  , etc. 

In  the  physical  domain,  th.e  data  block  should  be  structured  as 
A(L0NG1 : L0NG2,  LAT1 : LAT2,  LVL1:LVL2).  This  change  of  the  data 
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316  - - - - - 

314  304  — — — ~ 

312  302  292  - - - 

310  300  290  280  - - 

1 308  298  288  278  268  - 

306  296  286  276  266  256 

- 294  284  274  264  254 


- - 267 
244  255  265 
243  253  263 


237  - 
235  225 
233  223 
231  221 
229  219 
227  217 
- 215 


213  - - - - 
211  201  - - - 
209  199  189  - “ 
207  197  187  177  165 
205  195  185  175  164 


- - 200 
- 188  198 
176  186  196 
174  184  194 
192 


158  - - - 

156  146  - - 

154  144  134  - 
152  142  132  122 
150  140  130  120 
148  138  128  118 
- 136  126  116 


79  - 

77  67 
75  65 

73  63 

71  61 

69  59 
- 57 


55  - - - 

53  43  - - 

51  41  31  - 

49  39  29  19 

47  37  27  17 

45  35  25  15 

- 33  23  13 

- - 21  11 


7 18 
6 16 
5 14 
4 12 
3 10 
2 8 
1 - 


I 

I 

_ 

— 

— 

- 

109 

98 

86 

97 

107 

_96 

85 

95 

105 

— 

— 

- 

78  | 

— 

— 

66 

76 

— 

54 

64 

74 

42 

52 

62 

72 

40 

50 

60 

70 

38 

48 

58 

68 

36 

46 

56 

— 

34 

44 

— 

- 

32 

— 

— 

— 

- 

. 

- 

- 

133 


119  129 


- 157 
145  155 
143  153 
141  151 
139  149 
137  147 
135  - 


113  123 

111  - 


- - 236 

- 224  234 
212  222  232 
210  220  230 
208  218  228 
206  216  226 
204  214  - 
202  - - 


190  — — — 


- - - 315 

- - 303  313 

- 291  301  311 

279  289  299  309 
277  287  297  307 
275  285  295  305 
273  283  293  - 
271  281  - - 

269  - - - 


Figure  14, 


Ordering  of  Spectral  Components  in  the  Original 
Code/Data  for  a 4-Level  Case  as  an  Example. 
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a) 


Components 


b)  Components  of  negative  order 


Figure  15. 


A Restructure  and  Reordering  of  the  Data  Block  for 
Spectral  Components  in  Figure  14. 
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structure  will  not  effect  the  above  analysis  for  03CHEM,  RTECON, 
and  CHEMEQ  if  the  code  is  integrated  so  as  to  remove  the 
subroutine  calls. 

With  the  restructuring  of  data  just  discussed,  the  transforms 
SP-CFOR  and'  FFTFOR  are  free  from  the  time-consuming-  task  of  data 
shuffling.  As  a matter  of  fact,  REARR  can  be  removed  from 
VFFTFOR  if  loop  110  under  ENTRY  FFTO  is  changed: 

DO  110  1=1 ,N 
ITEMP  = NTRANS (I ) 

DEFINE  (RLD(I),  RL(1:NM,  ITEMP)) 

DEFINE  (YMD(I),  YM( 1 : NN , ITEMP)) 

1 10  CONTINUE 

Total  analysis  and  evaluation  of  the  spectral  code  was  not 
completed;  time  and  resource  limitations  precluded  carrying  it 
to  a point  where  it  could  be  run  on  a benchmark  basis. 

Relative  importance  in  execution  time  of  each  routine  is  not 
obvious.  An  educated  estimate  of  performance  can  be 
extrapolated  from  the  analysis  which  was  completed  as  being  one 
gigaflop  or  better  for  the  spectral  code. 
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APPENDIX  A 


AVRX  ROUTINE  FROM  GISS  MODEL 


SUBROUTINE  AVRX  < RU  J 
C 

DIMENSION  PU14161  *NH(16)  .ALPHAU6I  .X(26>.Y(26) 

DATA  NH/0f3tI>If It0t0t0»0<0«0*l»l»l*3«0/ 

OATA  ALPHA/Oi . I . I86572E-1 . 1 .20S591E-1 , *,5l30X3E-2»9. 563327E*3t 

* 0«#0ft0*>0fi0«»0* » 9,563327E**3f 4«5l30I3E^2t 1 «208591E«I » 

* U1B6S72E-Ii0*/ 

SMOOTHES  THE  ZONAL  HASS  FLUX  AND  GEOPOTENTIAL  GRADIENTS 
NEAR  THE  POLES  TO  HELP  AVOIO  COMPUTATIONAL  INSTABILITY 

note,  this  routine  has  been  slightly  altered 

DO  40  J«2* 15 
IF  (NM (J) «LE < 0 ) GO  TO  AO 
Jl«26*(J-l)M 
J2*J1 ♦! 

NMJ«NH(J> 

00  30  N*1,NMJ 

X(2I24)  * PU(U21E4>  - PU<jH24> 

X(l)*X(2S) 

X(26i*X(2J 

Y ( 1 1 25)  * X {21 25)  - XU125> 

Y { 1 1 25)  * YUI2S)  * ALPHA  < J) 

' PU(JH2S>  ■ PU < J1 1 25)  ♦ YUI25) 

30  CONTINUE 
40  CONTINUE 
RETURN 
ENO 
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9 
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AVRX 
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AVRX 

13 
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AVRX 
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AVRX 

16 

AVRX 

IT 

AVRX 
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AVRX 
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AVRX 
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AVRX 

PI 
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28 
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APPENDIX  B 


LINKHO  ROUTINE  FROM  GISS  MODEL 


SUBROUTINE  LINKHO 
INTEGER  LtSTUO) 

DATA  LISTtU/I/fNLlST/I/ 

' INTEGER  II <384) 

REAL  RI 1 (384) 

COMMON  /ETNT/TE3 

C«***  F OR  COARSE  GRID  IM«24  ANO  JM*16 
C**«*  364«IM*JM 
C 76fl«2#IM*UM 
C**«®  1152*3®IM®JM 
C®*®** IS36«4*IM*JH 
C**®®  1920aS®£M*JM 
C®**®  2304*6®IM*JH 
2688*7® IH*JH 
C®*®*  3072*8®IM*JM 
C***®  3456*-9®lM®jM 
C®»*®  3840*U«IH*JM 
C®««®  4224*1 I®IM*jm 

C*®®*  A60a®l2®IM®JM 
c®®®*  interface 

COMMON  /MAICOM/JMtIM,NLAYfPTROP*vlHMlfFlMfNLAYHl#NLAYPl»OLAT,OLON# 
® ISTART.KH.XTAUTX.IROT.MHOT. 

®OTfXTAUXtITAUfXINT*IDAY#jDAY*TOFOAY»JDATE»JMONTH(2) . JYEAR.NSTEP • 

• NCYCLL*NCOMP3«NMOGAN, TAUP.TAUI.TAUEiTAUO.HRCH. . 

• PI.GRAV.RGA$,KAPA.PSL.£DfFMU.NFL**PSF,RSDIST.SIND.COSD.RHMAX. 

• COX#OUHMYC(151) * 

® XLA0EL  (20)  *SIG  ( 20  ) *OSIG(20)  tSIGE(2U  .OSIGG<19)  , 

• LAT (16)  t SINL  (16)  *COSL(l^)  .DXU(16)  .DXR(16)  »DYUU6)  »OYP(16>  » 

• 0XYPU6)  tFH6)  .OUMMY(24)  » 

• TS (30A) < SHS ( 384) « GT<384). 

• GW (384) t PHlS(384)t  TOPOGOflA), 

» U 1 3456 ) t V (3456) .7(3456) .SH{3456) 

C0MMON/RAOC0M/  PL (3456) *PL£(3840> »PKK<3456) *78(384) * 

• TSTR(  1 152)  t CLOUD ( 4608)  .RE (3840)  .RESTR(uS2)  . 

• FLX0NG(384)  .SG(3B4)  ,AS(34S6)  »ASSTR<H52)  .S0X(3fl4)  ,C0SZ(384)  * 

, • RSURF ( 384) . SCOSZ (384) . RAP  ( 384) .RAM (304) *PLK (3466) 

COMMON/CLOCOM/SW^ALE  (38a0)  »SWIL(34S6)  »AL  (3040)  • TaUL  (3840)  . 

• 0ZALE(6144) *T0PAbS(384) 

COMMON  /TMP8LX/  A. AA « AAA.BSf CC. SE* BE <UNI .TAU1 . TAUT. TNSQ. TN. 

• TAU,A£RUtACRV«AERC.EXl»£X2.OENO.ONMO«0NMl.PEFUP.PEFON. 

. PlOC.TAUNC.BTOPN.flTOPNPiEUPCN. 

. RUPCN.XI.X2*X3,Rn 

COMMON  /LNK/  EUP.RONC.REP*TDFCiTDF.EONC.EUPC*EON.TAUN.FE*BTOP.TE, 

• E . P . UN03 . UNCOH » UNM20 . NCLOU0 
DIMENSION  TL (3456)  . SHL‘(3456) 

EQUIVALENCE  (TL(l)tT(l>) . ISHL ( 1) »SH <J ) ) 


c*®®* 

c®®** 


GRID  ARRAYS 

BIT  CL0FLGO84)  *A£RFLG(384)  ,L1(384>  .L2(384)  .L3(384) 

BIT  TSTEXP ( 384) 

DIMENSION  ZER0(384) ?0N£(3d4) 

INTEGER  ILU6)  .IL2<6).IL3(6) 

INTEGER  ICLD { 6) . JAER (6) 

INTEGER  ITY(384) 

REAL  PITY ( 384) 

REAL  A ( 384) *AAA(384).SE(384) ,8E(384) .UNI (384) . 

TAUI (384) .TAUT (384) .AA(3S4) .89(384) ,CC (384) *TNS0(384) , 
TN(384) » T AU { 384) * EONCN ( 384) .T0FCN(384) «R0NCN<384) , 

T AUClR (384)  t PIO  (384)  .£XTAU(384)  .TY1384)  * AER 1 (384),.  - 

A£R2(3Q4) » AERA (384) »AERU(3S4) .AERV(384l .AERC(384) » 

EX1 (384fc«EX2 (384) tOENO(384) ,0NM0(384) .0NM1 (384) , 
PEFUP(384*)  *p£F0N  {*384^  * , • 

REAL  XiOffi)  ,X2(384) 

* ft-  \ ® * S 


0007820LINKHD 
OOOT82ILINKHO 
0007822LINKHO 
OOO7023LINKHO 
OOO7024LINKHO 
000782SLINKHO 
0007826LINKHO 
0007827LINKHO 
0007B28LINKH0 
OOOT829LINKHO 
0007A30LINKHO 
00 07831 LINKHO 
0007832LINKHO 
0007833LINKHD 
OOQ7834LINKHO 
0007835LINKHO 
OOO7036LINKHO 
0007837LINKHO 
OOO7830LINKHO 
OOO7039LINKHO 
0007840LINKMO 
0007841LINKHO 
0007842LINKHO 
0007843LINKHO 
0007844LINKHO 
0007845LINKHO 
0007846LINKHO 
0007847LJNKHO 
0007848LINKHO 
OOC7S49LINKHO 
0007850LINKHO 
0 00785 ILINKHO 
0007852LINKHO 
0 0 07853L INKHO 
0007854LINKHO 
00078S5LINKHO 
0007856LINKHO 
0007857|  INKHO 
0007858L INKHO 
00078S9L INKHO 
0007860LINKHO 
0 00786 lL INKHO 
0007862LINKHO 
0007863LINKHO 
0007864LINKHO 
000786SLINKHO 
0007866LINKHO 
OOO7067LINKHO 
0007868LINKHO 
0007869LINKHO 
0007970LINKHD 
0007871LINKHO 
000 7872L INKHO 
0007873LINKHO 
0007874LINKHO 
0007875L INKHO 
D007876LINKHO 
0007877LINKHO 
0007878LINKHO 
00 07879L INKHO 
00078 80 LINKHO 
00 07881 LINKHO 
0007882L INKHO 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11' 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 
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REAL  XXI (3072) *XX2 <3072) *PLKE (3072) *TH<3456) 

REAL  EUpCN ( 384 ) ,RUPCN<334) tX3<384) 

REAL  PIACOSM  .TAUNC084)  ,8TOPN(384)  .BT0PNPO84) 

DIMENSION  UNH20<4608i ,UnC02(4608) ,UNO3(46O0) *P<4608>, 

* £(4608)  tNCLOUOU608l  ,TE<5376)  #8T0P(S376)  ,FE(4992>  . 

* TAUN ( 13824} • FKGA5  <1152) *FKGAS2  f 1 1 S 2 > ,EUP  <4608) * 

* EON (4608) *EUPC(460a> ,EDNC (46GB) tTDF ( 4608) #70FC{A608)  . 

* REF (4608) *R0NC (4608) 

EQUIVALENCE  (ITY  < 1 ) t RITY  ( 1 ) ) , <11  U>  iRIKl)  ) 

EQUIVALENCE  (FKGASUJ  lEUPU)  ),  fFKGAS2m  *EUP  (1133)  ) 

EQUIVALENCE  (XXI  (1)  »TAUN(1>  > , <XX2tl>  ,TAUN(A609)  It 

* (PLKE(l) *TAUN(92I7) ) , { TH 1 1 > ,EUP(in 

EQUIVALENCE  (A ( 1) »EDNCN<1> ) t (AAA l 1 ) ,TDFCN( 1) ) » (S£{ I) *RDNCN( I) ) * 

* <BEU>  .TAUCIRU)  ) t(UNUi)  tPlO(X)  ) v (TAUl  ( 1 ) .EXTaUU))  * 

* (TAUT(l)  tTYCm  « (AA(X)  «lTYim  t (AER1  (l)  966(1)  ) t (AER2(I>  *CCU>  > * 

* (TNSQU)  9AERAU) ) 

EQUIVALENCE  (LHD  , IL1 (l> ) t (L2<1>  *IL2d> ) * (L3(i>  t IL3(1)) 
EQUIVALENCE  (CLOFLO < l ) , ICLD U > > t ( A£RFLG ( 1 ] ♦ IA£R ( 1 ) ) 


0007883UINKHO 

0007884LINKHO 

0007885LINKHO 

0007886LtNKHO 

0007887LINKHO 

0007888LINKHO 

OOC7889LINKHO 

0007890LINKHO 

O0C7891LINKHO 

0007892LTNKHO 

0007893LINKHO 

OO07894LINXHO 

000789SLINKHO . 

0007896LINKHO 

0007897LINKHO 

0007898LINKHO 

0007899LINKHO 

0007900LINXHQ 

0 00790 1LINKHO 

0007902LINKHO 

0007903LINKHO 

0007904LINKHQ 

000790SHNKHO 

0007906LINKHO 


c***#*scalar  arrays  (Tables  or  used  for  initialization) 

DIMENSION  C8 ( 12 i 12) *PIZ(12*12) ,TA(X2* 12) ,PF1  U2> *PF2(12) t 

* TEMP  (23)  *T£3<301)  ♦ OVUl)  »Pl AERO <12*21  ,NAERO<12>  » 

* AC0S8R(12#2)  #AEREXT(  12,2)  ,ATAU55(2)  .PIC1R0U2I  ♦ 

* CIRE*T(X2)  9CC0SBM112)*C0EUM(12)  iC0£K(3) 

DIMENSION  SH20  (3,3)  ,BH20(3*3)  *WK(S,3)  *AH12*3)  »A2<  1293)  9 A3 (12,3)  . 0007907LINKHO 

* A4 (12*71 *31(3,3*2) *B2(3,3*2) ,83(3*392) 9 Cl (2*3) ,C2(2*3) **K20(2*2L  O0079O8LINKHO 

C»****0AT A V/240* 360 9480 ,560 9 600 *760* 840 *9609 1050*116091320*1560/  Q007909LJNKHO 

OATA  DV/2*60*i40,f60..2*40,,609 *45.*55,ta0, *120,/  000791 OLINKMO 

C*****20  MICRON  WATER  VAPOR  CONTINUUM  00079X 1LINKH0 

OATA  WK<*0/2.651BE-03,7.2321E-04,6.1875E-02*4,0982E-02/  0007912LINKHO 

C»»#««CIRRUS  CLOUO  PROPERTIES  0007913LINKHO 

OATA  CTAU55/1.E0/  O007914LINKHO 

OATA  CCOSRR/0,827220, 0,812123, 0,770656 ,0.787893, 0,864853*0 ,906536 ,0007918LINKHO 

* 0.92*219, 0,936090 *0,941993, 0.937202, 0,945603. 0.9631 10/  0007916L1NKHO 

OATA  C|REXT/l,291097,l,43il62» 1.0259X6, 0,86 1792, 0,783619 t 0.763708* 0007917LINKHO 

* 0,743796, 0,770507, 0,79054090*742040*0,688896, 0.643580/  0007918LINKHO  100 

OATA  PICIRO/O, 510801  * 0.747140* 0.680009, 0,524641 ,0.278540 *0, 249016* 0O07919LINKMO  101 


65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 
09 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


0,219492, 0.349*1 1,0.446850* 0*353371 *0.263841, 0,161871/ 

C*****AEROSOL  PROPERTIES 
data  ATAU55/2*0,0/ 

OATA  NAERO/12*0/ 

OATA  ACOS8R/0 *0033) *0,00703, 0,01093,0.0 1589* 0,020X1 *0,00000* 

* 0,03478, 0,00000, 0.04604,0. 04875,0. 05902 *0,09297. 

• 0,28075,0.33660*0,35990,0.46564,0,59244,0,00000* 

* 0,55580*0,00000*0.39450,0,695X790.71047*0.69137/ 

DATA  Pt AERO/O, 00248 *0.00678, 0,00798, 0,0 1180* 0.01617,0,000009 

* 0,05839*0.00000*0.04052,0,03904,0,01792*0,09674, 

« 0,00248*0,00678,0,00798*0,01180*0,01817,0,00000, 

• 0,05839*0,00000*0,04052*0,03904,0.0X792*0.09674/ 

OATA  AEREXT/0. 00637* 0.00968, 0.01900, 0.03454 ,0,02274 ,0.00000, 

* 0,0?652, 0.00000*0, 13152, 0,13389, 0.1 0690 *0.04951* 

* 0,03343*0. 05528, 0.03571 *0,07775 *0,05821 *0.00000* 

• 0.07908, 0,00000*0. 16930,0.08634,0, 06592* 0,07536/ 

C«****PLANCK  FUNCTION  COEFFICIENT  AT  V 

DATA  PFl/1. 06671, 3. 60014, 8. 53366* X3.55X1 *24, 2626* 33,3729* 

♦ 45.7351*68,2692,89.3263,120.444,177.473*292,944/ 

OATA  PF2/345, 319,517. 979, 690. 638, 805. 745, 978, 404* 1093.51* 

♦ 1208,62*1381,28,1510*77*1669,04*1899,26,2244,57/ 

^♦♦••♦QUAORATURE  FIT  COEFFICIENTS  OF  S,8  OF  WATER  VAPOR  AT  680, 760 * 1 050000794UINKHO  123 

DATA  SH2O/6,a618E*-O3»3,3o54E-03* 1 .4435E-04.-1 *9453E-02,-8, 9078E-030007942LINKHO  124 

♦ *-3,9394E-G4,1.4498E-02t6*1017E-03,2.73A4E-04/  0O07943LINKHO  125 

DATA  BR20/-1.0739E-02,l,2lOOE-at*9,6612E«03*5,8873E-02*-0.2536E  000007944LINKHO  126 

*,2.335S£-02»-3.2402E-02,l.505Ae-Ol,-1.0194£-02/  0007945llNKHQ  127 


0O07920LINKHO  102 
0007921LINKHO  103 
0007922L1NKHO  104 
0007923LINKHO  105 
0007924LINKHO  106 
0007925LINKHQ  107 
0007926LINKMO  108 
0007927LINKHO  109 
0007928LINKMO  110 
0007929LINKHO  111 
0007930LINKMO  112 
0007931LINKHO  113 
0007932LINKHO  114 
OOQ7933LINKMO  115 
0007934LINKHO  116 
OOD793SLINKHO  117 
OOD7936UNKHO  118 
0007937LINKHO  119 
000793&LINKHO  120 
OOQ7939LINKHO  121 
0O07940LINKH0  122 


ORIGINAL. 
OF  POOR 


PAGE  IS 
QUALITY 
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•QUADRATURE  FIT  COEFFICIENTS  OF  WATER  VAPOR  CONTINUUM  AT  840,1050'  0007946LINXHO  128 
•AND  1 l6Q  CM-1  0007947LINKHO  129 

DATA  «K/0.2227614t 0.1013448, 0.0828664, 0.060817,0. 057787, -0.30915280007948LINKHO  130 


*'•0. 133041 ♦-0.1133039,-0.080575,-0* 077208,0. 1093719, 0.045289,  0007949LINKHO  131 

*0.039877,0.027158,0,026355/  0007950LINKHQ  132 

C****#QUAORATURE  FIT  COEFFICIENTS  OF  WATER  VAPOR  SELECTIVE  ABSORP  0007951LINKHO  133 

DATA  A1/5.2200E-02, 3. 7670E-01,6.7870E-01, 5*63005-02, 1.6690E-02,  0007952LINKHO  134 

4 4.7734E-02t2.933oE-03,0.0090E  00,  00079S3LINKHO  135 

1 7.9000E-04,3*4790E-03,5.0278E-01,3.1S59E  01,  OOOT954LINKHO  136 

2 1.8971E  Ol,-6.39oE  00.-1.880E  OO.-l .930E-01 ,-5. 131E-02,  00079S5LINKHO  137 

• -T*48l4E-0?,-7.795E-03,0.0OO0E  00,  0007956LINKHO  138 

3 -2.lS6E-03,-1.044£-02,-l,54lE  00,-3, 3418E  01,  0007957LINKHO  139 

4 9.5713E  00,l.0424£  01,1.3858E  00, 1 .9100E-01 ,4,1490E-02,  0007958LINKHO  140 

♦ 2 • 9366E-02 , 5 * 2520C-03 » 0 * 0 OOOE  00,  0007959LINKHO  HI 

5 1. 4930E-03, 6. 2320E-03, 1.3180 E 00,1.4S40£  01/  0007960LINKHO  142 

OATA  A2/1, 9924, 1.3814, -0.6081, 1,0755,-0. 6334, 8, 572?, -0,0990,0. 0000000706 ILINKHO  143 

*,0.2136,  0. 8515, 15,0347, 3, 7794,-1*6729,1.2349, 2. 3437, 6, 2UE-03,  0007962LINKMD  H4 

*3. 271, -14.4357, i;854, 0.0000,2. 0357, 0.1680,-21 .086,-2, 0612, l, 0139,  0 007963LINKHO  145 
*•1. 1483, »0, 4787, *3, 105E-03, »1. 8006, 6. 8275, «0«7560, 0.0000, -0,9935,  0007964LINKHO  H6 


*8.7225-02,9,9179,1 « 0342/ 

OATA  A3/3*2,674£-03t 2.685E-03, 2.695E-03.2 • 677E-03, 2.687E-03, 
•O.OOOE  00,2.686E-03.2,684E-03,2.605E-03.2.614E-03,3*1.875E-02, 

•1 ©883E-02* 1 .890E-02, 1 .878E-02, l .884E-02, 0 .OOOE  00 , 1 .880E-02, 

*1  ©881E-02, 1 .826E-02, 1 .833E-02-,  12*1.0/ 

OATA  A4/0, 02042, 0.02050. 0.02051,0, 021 14, 0.02246, 0.02061, 0,02149. 
*0,0000,0,01716, 0,021 14, 0,01798. 0.01825.2*0.0866, 0.0868,0, 0887, 
*0,09089, 0.08739, 0,08916, 0.0000, 0.0876, 0.0881, 0.0791, 0.07993, 
*12*1.0/ 

C«****QUAORATURE  FIT  COEFFICIENT  OF  CARSON  DIOXIOE  AT  680  760  CM-1 


0007965LINKH0  147 
0007966LINKHO  148 
0007967LINKH0  149 
O0O7968LINKHO  150 
0007969L1NKHO  151 
0007970LINKMO  152 
0 00797 JLINKHO  153 
0007972LINKHO  154 
0007973LINKHO  155 
0OO7974LINKHO  1S6 


OATA  81/1. 279T, 6. 8937, 205. 7428, -1.8824, -11. 890S, -277, 6561, 1.6415,  0007975LINKH0  157 


110,0278,294.3491, 

•1 ,3940E-02, 9, 7310E-02 ,4, 0701E  00 ,-2.0577E-02,-l .4362E-01 » 
•-5.9580E  00, 7.6840E-03,5,36l9E-02, 2.209SE  00/ 

OATA  B2/0, 8390, 0.7830, 6, 3778,-0. 03698 *-0.7746,-3.2630, -0.03424, 
11.0889,12.1420, 


0007976LINKHO  158 
0007977LINKHO  159 
0007978LINKHO  160 
0007979LINKHO  161 
0007980LINKHO  162 


*4*22605-02,1. 2300E-01, 8, 4814E  0 1 • 1 *83145-01 ,9*6351E-01 t-1 .2326E  02000798UINKMO  163 


•f-4,6549E-02*-2.9l98E-01,5,Q527E  01/ 

DATA  03/0 . 1639,8.9301 , 1*3578,-0.2338,0 , 06693,-0.3961, 0.2574, 
1-0.02676,0,2506, 

•-4.9551E-01,-5,2184E-02.1.3029E-01, 1.0379E  00, 1 , 1386E-0 1 , 

* *-l .6563E-01 ,3. 7517E-01 , 9.2239E-0 1 , 1.2554E  00/ 

C*****QUAORATVJRE  FIT  COEFFICIENT  OF  OZONE  AT  1050  CM-l 

DATA  Cl/14. 1003, 89.8407. -14.3659, -91. 9237, 9, 7780, 59. 5051/ 
DATA  C2/1 , 0952,2,9766, 1.3823,1 1.9258,-0.1894,-3.2240/ 

OATA  IOATA/O/ 

C FTEMP(XtY,Z,THX*Y*T*2*T*T 

C***** 

C***#*9  LAYERS  DYNAMICAL  MOOEL  IS  US£0  WITH  3 EXTRA  LAYER  AT  O-l 

£*»••• 

IF(IOATA)  2000,2000,2001 
2000  CONTINUE 
NLAY*9 

C*****6ROUN0  ALBEDO 
AGRND»0.  • 

NLAYl^NLAY.l 

NLAYRS«NLAY*3 

NG*NLAYRS*1 

NGl*NG*l 

C*****CM-S7P/M8  5* 1 lE-4«2*24E4/44/G 

C02CM»2.65287E-01 

c*****stratospheric  water  vapor  MIXING  ratio 
M20MIX.3.E-06 
COEK (1) *.293478 


0007982LINKMO  164 

93, -0.3961,0.2574*  0007983LINKHO  16S 

C007984LINKHO  166 
00,1, 1366E-0 1 , * 0007965LINWHO  167 

00/  0007986LJNKMO  168 

0 CM-1  0007987LINKHO  169 

9.7780,59.5051/  0007988LINKHO  170 

94, -3.2240/  OOO7909LINKHO  171 

0007990LINKHO  172 
0007991LINKHO  173 
OOC7992LINKHO  174 
EXTRA  LAYER  AT  0-10  M8  0007993LINKMO  175 

0007994LINKHO  176 
0007995LINKMO  177 
OOG7996LINKHO  178 
0007997LINKHO  179 
0007998LINKHO  180 
0QO7999LINKHO  181 
OOOROOOLINKHO  182 
000800 1LINKHO  183 
0008002L INKHO  184 
0008003LINKHO  185 
0008004LINKHO  106 
0008005L I NX HO  187 
OOO80O6LINXHO  188 
OOO0OO7LINXHO  109 
OOO8OO8LINKHO  190 


- /-  i *:  1 ru  “ - 
I'jl  'J,  •!  »• 


4-B-3 


C0£K<2)*. 413043 
COEKt3)»COEK(l> 

COELA«U)*OV<1>*120, 

COELAM ( 12) =DV < 1 1 ) *4Q 0 • 

* 00  43  LAM-2. U 

43  C0ELAH(LAM),0V(LAH)  *0V(LAM-*1) 

CAUC1JLATE  C0S8AR  AND  TAUAER*PI AERO 
DO  51  N.lfNLAYRS 
DO  51  LAM«itl2 

GO  TO  (52*52.52, 53*52.52*52, 52*52.52?52, 54) *N 


53  TA  <UAMtN) «AEREXT (LAM , 1 ) *aT AU55 ( 1 ) 

NN*1 

GO  TO  se 

54  TA(LAM,N)*AEREXT(LAM.2)*aTAUSS<2) 

NN«2 

GO  TO  58 

52  TA(LAM,N)«0, 

C NN  UNOEFINEO  for  THIS  branch  IN  ORIGINAL 
C SET  IT  TO  1 TO  PREVENT  MACHINE  PROBLEMS 

NN«1 

58  C9(LAM,NI «(ACOS0R{LAM,NNJftAEREXT<LAM.NN) ♦CCOSBR (LAM) *ClREXT (N>  > ✓ 

* (AEREXT  (LAM.NN)  ♦CIREXT  (N>M  ,E-40) 

PIZ(LAM<N)»TA(LAM»N) •PIaeRO(LAM*NN) 

51  CONTINUE 

H2OFAC«H20MIX/(H20MIX*l.)*l.27E3 
ZERO ( 11384)  a 0,0 
ONE ( 1 I 384)  * 1.0 

C...,.FILL  OP  TSTR  FIRST  TIME  AfiOUNO  ONLY 
TSTRUU1S2)  * 200,0 
IDATA*1 

2001  CONTINUE 


C**»* 

€*♦**  CHANGE  GRtO  TO  12  LAYERS 

C**»*  COMPUTE  LAYER  THICKNESS— STORED  IN  UNC02 

C**«*  UNC02  U)  «PE  (2) -PE < 1 ) *2.-0  .*2, 

C#***  UNC02(2)*PE(3)-PE(2) *5. -2. *3. 

C •***  UNC02  < 3) *PE  <4 > -PE (3>«10.-5.«5. 

UNC02U  1304)  *2. 

UNC02 ( 365 1 384 ) *3 , 

UNC0H(769I384)«5, 

C UNC02(N) *PL£ (N-2) -PLE (N-3)  ...  N*4.NLAYRS 

UNC02  ( 1 1S3  U456 1 *Pl.e  ( 3851 3456 ) -PLE  il  1 3456> 

C***»  COMPUTE  H2Q  PARTIAL  PRESSURE 

C FOR  LAYERS  1 TO  3 UNM20«H20MtX/ (1 ♦H20MIX) *1 ,27E3* (LAYER  THICKNESS) 

C FOR  LAYERS  4 TO  12  UNH20« (SHL <N-3> *1 .E-20 ) *1 .27E3* (LAYER  THICKNES5) 
UNH20 ( 1 ) 1 152) *H20FaC*UNC02 < 1 * 1 152) 

UNM20 ( 1 15313456) »SHL  < 1 1 3456) * 1 , E-20 
UNH20( 1153 *3456)*!. 27E3*U«H20( 1153 13456) 

UNH20 U 153 • 3456) *ONH20( 11531 3456) *UNC02( 1153 *3456} 

C*»««  COMPUTE  OZONE  PARTIAL  PRESSURE 

UN03 ( 1)384) «OZALE (42251384) -OZALE ( 3841 1 384) 

UN03 (385 )384)*0ZALE (4609* 384) -OZALE (4225)384) 

UN03 { 769 1 384) «OZAL£ ( 1 * 384) -OZALE ( 4609 1 384) 

UN03 ( 1153)3456) *OZALE (385*3456) -OZALE (1 13456) 

C****  COMPUTE  normalized  PRESSURE 

C PE ( 1) *0, 

C PE(2)»2, 

C PE  1 3) ■S. 

C PE(4)«10.  > 

C 00  48  N«l«3 

C PSTR(N)»(PE(N)*PE(N*l))/2, 


0008CQ9LINKH0* 191 
Q0080I0LINKHO  192 
0008011UNKHO  193 
OOOaO!2UNKhO  194 
0008013LINKMO  195 
0008014LINKHO  196 
OOOR015LINKHO  197 
00080 16LINKH0  198 
0008017LINKHQ  199 
0008018LINKHO  200 
0008019LINKMQ  201 
0008020L1NKHO  202 
0008021LINKHO  203 
0008022LINKHO  204 
00080 23 LINK HO  205 
0008026LINKHO  206 
00080251INKHO  207 
0008026LINKHO  208 
0008027LINKHO  209 
0008028LINKHQ  210 
0008029LINKHO  211 
0008030LINKHO  212 
00Q8031LINKHO  213 
OOO0O32LINKHO  214 
0008033LINKHO  215 
0008034LINKHO  216 
0 008Q35L I NKHO  217 
0008036LINKHO  218 
0008037LINKHO  219 
0008038LINKHO  220 
0008039lINKHO  221 
0008040LINKHQ  222 
0008041LINKHO  223 
OOQ8042L1NKHO  224 
0008043LINKHO  225 
OOOS044LINKHO  226 
0008045LINKHO  227 
0008046LINKHO  228 
0008047LINKHO  229 
OOC8046LINKHO  230 
OOO0O49LINKKO  231 
0008050LINKHO  232 
0008051LINKHO  233 
0008052LINKHQ  234 
00080S3LINKHO  235 
OOOBOS4L1NKHO  236 
0008055LINKHO  237 
0008056L1NKHO  238 
0008057L1NKHO  239 
0008058LINKHO  240 
0008059LINKHO  241 
OOOOO6OLINKHO  242 
OOO8O6ILINKHO  243 
0008062LINKHO  244 
0008063LINKHO  245 
0008064LINXHO  246 
0008065LINKHO  247 
OOO8O66LINKHO  248 
OO08O67LXNKHO  249 
0008060LINKHO  250 
0008069LINKHO  251 
0008070LINKHO  252 
0008071LINKHQ  253 


4-B-4 


C 48  P<N) *PSTR f N ) /1013.25 
P U 1 304) * .98692323E-3 
P < 385  » 384) « .345423 1 4E-2 
P (7691384) **74019209E-2 
P(  115313456)  *PL  tl  1 3456)71013. 

C****  COMPUTE  £ (H20  ABSORPTION  PARAMETER) 

C E<N]«UNH20{N)*12r38E~4/tJNC02(N)*P{N) 

EU  14608)  «12.38£**4*UNH20tl  14608) 

E(1 14608) -E U 14608) /UNC02 1114608) 
EUl46oa)*eai4608)*P(lU608) 

C****  COMPUTE  TE  {LOGARITHMIC  INTERPOLATION) 

TH ( H 3456 ) »TL  tl 1 3456 ) /PLK  (113456) 

C 

C USE  EXPBYK  APPROXIMATION  TO  GET  **.206 
C 

DO  66  L*2tNLAY 
KL*  CL*1 > •384*1 
KU-KL-384 

CALL  £XPBYK2(PLKE(KL1) ,PLE(KD  *L) 

66  CONTINUE 

XXI  a 13072) *PLKE<1I3072) -PLK 08513072) 

XXI {1 13072) *XX1 (1 0072) *TH( 1)3072) 

XX2  ( 1 1 3072)  *PLK  { 1 0072)  -PLKE  { i 0072 ) 

XX2(i  0072)  *XX2«1  0072)  *TM<385O072) 

XXI u 1 3072) *XX1 < 1 0072) *XX2  < \ ) 3072) 

XXI  { 1 0072)  »XXl  { 1 0072)  *PLKE  < l ) 3072) 

XX2  { 1 0072)  *PLK  <i  0072)  -PLK  ( 385  0072 ) 

TE  (15370072)  «XX1  (1 13072) /XX2  { 1 0072) 

C**#*  TE  FOR  STRATOSPHERE 

TE  (385  084)  »T5TR  ( 1 1384)  ♦TSTR (3851 384) 

TE (385 I 384) *TE { 385 l 384) /2 . 

TE  (76900*)  *TSTR  085  084)  *TSTR  ( 769  084) 

TE ( 769 | 384) *TE ( 769) 384 ) /2 . 

TE ( IT 384 ) *2 . *TSTR (11384) 

TE  < 1 1 304)  »TE(10a4)-TE  (385  0041 
TE  (1 153084)  *TSTR  (769  084)  ♦TLUO04) 

TE  (1153  084)  »TE  (1 153084) /2. 

C**«*  TE  NEAR  GROUND 

TE  (4609  084)  »TS  ( 1 084) 

TE  (4993  084)  aTG  (1084) 

C#***  C02  PARTIAL  PRESSUog  FROM  DP 

UNCOS ( 1 1 4608) *C02CM*UNC02 ( 1(4608) 
c*o*«  C1.0UD  ARRAY 

NCLOUO(1U1S2)*0 

NCLOUO ( 1 153  0456) *CLOUO  < 1*3456) 

C»*** 

C*«**  8AN0  LOOP 

C**»* 

FE(1»4992)*0. 

FLXONG ( 1 1 384) *0 • 

DO  200  LAM«1,12 

C***#  CALCULATE  OPTICAL  THICKNESS  TAU(N.K) 

DO  2 N*1,NLAYRS 
NPTRtt (N— 1) *384*1 

IF  (N*L£»3)  TN(1 084)*TSTH<NPTRt384)/273. 

IF  (N.0E.4)  TN (1 T 384) *TL ( (N-4) *384*1 084) /273. 
TNSQ(  1 084)  aTN  (1 084)  *TN(  1084) 

C A*FTEMP(A1{LAM,1)*AKLAM,2),A1(LAH.3>  .TN) 

A <1  084)  aAULAM. 3)  *TNSQ  ( 1 084) 

XI  ( 1 084)  *A1  (LAM. 2)  *TN<  1 T384) 

A (1  084)  *A(  1004}  ♦XK1  *384) 

A ( 1 1 384)  aA  ( 1 084)  ♦Al  (LAM  * 1) 

C AAAaFTEMP(A2(LAM*l>  tA2 (LAM»2) >A2(LAM*3) . TN) 


0008072LINKHO  254 
0008073LINKHO  255 
OQO0O74LINKHO  256 
0008Q75LINKHO  257 
0008076LINKHQ  258 
0008077UNKHO  259 
OOO8O701INKHO  260 
OOO0O79LINKHO  261 
OOO0OQOLINKHO  262 
0008081LINKHO  263 
O0O8O82LINKHO  264 
0008083UNKHO  265 
0008084UNKHO  266 
0008085LINKHO  267 
OOO0O86UNKHO  268 
0008087LINHHO  269 
00080B8UINKMO  270 
00080891. INKHO  271 
0008090LINKHO  272 
0008091LINKHO  273 
0008092L INKHO  274 
0008093L INKHO  275 

O0O8O94UINKHO  276 

0008095UNKHO  277 
0008096LINKHO  278 
0008097L1NKHO  279 
0008096UINKHO  280 
0009099UNKHQ  281 
0 008 1 OOL INKHO  282 
OOOR1QUINKHO  283 
0008102UNKHQ  284 
0008103L1NKHO  285 
0008104LINKHO  286 
0008105UNKHO  287 
00 081 06L INKHO  288 
0008107LINKHO  289 
00081 08L INKHO  290 
0008109LINKHO  291 
0008110L INKHO’ 292 
00081 1 11, INKHO  293 
00081 121. INKHO  294 
00081 13t INKHO  295 
00081 1 4(.  INK  HO  296 
00081 15L INKHO  297 
00081 16LINKH0  298 
00081171 INKHO  299 
OOO8110LINKHO  300 
0008119LINKHD  301 
0008120LINKHO  302 
0008121LINKHO  303 
0008122UINKHO  304 
0O08123LINKHO  30S 
0008124LINKHO  306 
0009 125L INKHO  307 
0008126LINKHO  308 
0008 l 27L INKHO  309 
0D08128LINKHO  310 
0008129LINKHO  3U 
0008130LINKHO  312 
00081311 INKHO  313 
0 0 08 132L INKHO  314 
0008133LINKHO  315 
OOO0134LINKHO  316 


4-B-5 


A A A < 1 1 384) *A2 (LAM*  3) ♦TNSQ  1 1 1 384) 

XI (1*384) *A2 (LAH, 2) *TN( 1*384) 

AAA(1 1384)  aAAAri)3A4)*Xn  1*384) 

A A A f 1 1 384) -AAA ( 1 1 384) * A 2 (LAM, 1 ) 

GO  TO  (3*3*3,3*20. 20*3, 3*20*3*3. 3) tLAM 
C««»*  OVERLAPPING  REGION 
C**+*  WATER  VAPOR  SELECTIVE  ABSORPTION 

20  OJ-LAM-4 

IF (LAM ,EQ*9)  jjmLAM-6 

C SE*FTEMP(SH20(JJ,l) *$H20(UJ*2> ,SH20(JJ,3) ,TN) 

SE ( II 384) »SH20 ( JJ*3) +TNSQ  (1*384) 

XI (I *384) -SH20 ( JJ*  2) *TN (1)334) 

SEU  *384)  «SEU  *364}  ( 1*384) 

SE(1 1384J-SEU *384>*SH20(JJ*1) 

C BE*FTEHP (8H20  t JJ* 1 ) *BH20(UJ*2) ,0H2Q(JJ,3) *TN1 +PN 

BE  (I (384) *BH20 (JJ,3) +TNSQ t 1)384} 

XI  (1  )384)*8H20(Jj*2)*TNa  *384) 

BE (11384) «9E( 1*384) *X1 (;  *384) 

BE (1 1384) «8Et 11384) *8H20(JJ*1> 

BE  ( I I3Q4)  «B£  1 1 1 384)  *Pf  Npt*  * 384) 
Xnil3A4)«SEtll384)*UMH20<NPTR*384) 

XI U 1384) «X1 (1 1 384) /BE (1*384) 

LI  (1*384)  «XH  11384)  *UT  * 1 .£*2 
C XFtNOT  Ll»  TAU*2,*BE*<SQRT(1*X1)-1) 

TAUU13S4)  »2,*8E  (l  * 384) 

XI  (11384)  -XU  1 1384)  *U 
X1(1*384)»VSQRT{X1 (11384) 1X1(1*384) ) 
XH1I384)bXU1»384)-1# 

TAU(l 1304) *TAU(1 1384) »X1 (1*384) 

C IF(L1)TAU*SE*UNH20<N) 

XI  a 1384) »SE a 1384) *UNH20(NPTR*384) 

TAUt 1 *304) aQflVCTRL (XI ( 1 *384) ,H (1*384) ITAU (11384) ) 

5 GO  TO  (6*6*21) * JJ 

C****  OZONE  SELECTIVE  ABSORPTION 

C21  SEl-12. 7892-14* 36«9*TN+7. 392 1+TN+TN 

21  SE ( 1 1 384) *7  *3921*TNSQ (1*334) 

XI (1*384) -14, 3689*TN(1 1384) 

SE(l*384>«Se(l *384) -XI (1*384) 

SE (1 1 384) -SE { 1 *384 ) *12*7892 

C BE1* ( 1 « 0635+ l.957Q#TN-«3227»TN*TN> *PN 

8E{ 1 1384) •— .3227+TNSQ (1*384) 

Xld  * 384 ) ■ 1 , 9570*TN  (1*384) 

BEU  *384) -BE  (1*384)  +X1  (1*384) 

BE(1*384)«QE (1 1384) *1.0635 
SE ( 1 1 384 ) -8£ ( 1 1 38*  > *P (NPT8 1 384 ) 

UNI (1 1 384) -UN03 (NPTR  *384) 

GO  TO  7 

C**+*  CARBON  OIOXIDE  SELECTIVE  ABSORPTION 
C6  SE 1*7* 4197-6, 9225*TN+ 4. 2328+TN+tN 

6 SE ( 1 1 384) *4 • 2328*TNSQ< 1*384) 

XI  (1 1384)  *6,9225*TN(  H364) 

SE(1 *384)*SE(1 *384) -XI ( 1*384) 

SE  U 1 3 84 ) -SE ( 1 1 384 ) ♦ 7 , A 1 97 

C BE1*(0, 1697-0, 1734*TN»Q.241o+TN*TN)+PN 

BE ( 1 1 384) 2410+TNSQ (1*384) 

XI (11384) *.1734*TN (1 1384) 

BEU  1384)  *eEU  1384) -XI  d J384) 

SE(1 1384)-6E(  11384}  «, U97 
0EUl384)-eEUI3Q4)+P(NPTRl384) 

IF(LAM,NE«6)  GO  TO  666 
SE(1  *384)  *,08lS*TNSQ  Ut384> 

XI (1 f 384)*, 1 1 13+TNC 11384) 

SE  (1  *384) -SE  ( X 1384) -XH  1*384} 


0 003 1 35l  INKHO  31,7 
OOOS136LINKHO  318 
0003137LINKHO  319 
0003138LINKMO  320 
0003139LINKHO  321 
00031 40L1NKHO  322 
0003141LINKHO  323 
OOOA142LINKHO  324 
OOOB143LINKMO  325 
OOOA144LINKHO  326 
0003145LINKHO  327 
0003146LINKHO  328 
0Q03147LINKHG  329 

OOO8140LINKHO  330 
0008149LINKHO  331 
0008150LINKHO  332 
OOOBISILINKHO  333 
0008152L1NKMO  334 
0003lS3ttNKHO  335 
OOnaiS^LlNKMO  336 
0G03155LINKHO  337 
0008156LINKHO  338 
OOO01S7LINKHO  339 
OOO81501.INWHO  340 
00081S9LINWHO  34l 
0008160LINKMO  342 
0008161LINKHO  343 
OOG3162LINKHO  344 
0008163LINKMO  345 
0008164LINKHO  346 
OOOB165LINKHO  34? 
0008166L INKHO  348 
OOOB167LINWHO  349 

OOOA168LINKHO  350 
0008169LINKHO  351 
OOO017OLINKHO  352 
OOOB171LINKHO  353 
OOOS172LINKHO  354 
0008173LINKHQ  355 
0008174LINWHO  356 
0003175LINXHO  357 
0008176LINKHO  358 
0008177LINXHO  359 

0008178LINWHO  360 
OOOB179LINKHO  361 
0008180) INKHO  362 
0008181LINKHO  363 
00091 82L I NKHO  364 
0003183LINKHO  365 
0008184LINKHO  366 
0008185L1NKHO  367 
0008166) INKHO  368 
00081 &7LINKH0  369 
OOO0188LINKHO  370 
0009189LINKHO  371 
0008190LINKHO  372 
0008191LINKHO  373 
00031 92L INKHO  374 
0008193LINKHO  375 
0008194LINKHO  376 
000819SLINKHO  377 
0008196LINKHO  378 
0008197LINKHO  379 


4-B-6 


SE<ll384)*SEU)384)  + ,0392 
0E  ( 1 1 384) * 1 0297*TNSQ (11384) 

XI < 1 1304) *«2077#TN (1)384) 

BE  £ 1 1384) .BE ( U 384) *X\ <1 1 384) 

BE ( 1 1 384) *0E (1 1 384 ) •. 065 1 
0EUl304)*BEUl384)*P(NPT«»384) 

666  CONTINUE 

UNI  ( 1 1384)  *tJNC02  (NPTR)  384) 

C7  XX»SElnfNl/BEl 

7 XI  m304)*SE(I1384)*UNUU384) 

XX  ( 11304)  *XH  II  384)  /8EU  1384) 

Ll(ll384)wXl(Xi384| *LT , l*E-2 
C IF < «NOT »L1 > 

TAU1UI384)*2.*0E  111384) 

X1UI384)*XI(1I384)*1# 

XX  ( 11384) -VSQRT  (XU  1I38A)  1X1  (11384)  ) 

X1(11384)»X) (11384)-1, 

TAU1  U 1384)  *TAUl  111384)  *XUl»38A) 

C JFU.1) 

XI (11384) «S£(1 1384) *UN1( 11384) 

TAUiai384)*Q8VCTRl(Xl  (11384)  *U  (1)384)  ITAUK  11384)  ) 
TAUr(ll384)*TAU(l *384) ♦TAUl ( 11384) 

00  14  K>li3 
C 

KPTR*(K-1>«384*1 
NKPTR*  (KM)  *4608*N?T* 

AA(  U384)  *4(1 1384)  *A3(LAHfK) 
0a(ll304)*AAA(ll384)*A4aAH,K) 

C FKGAS (K>  *AA*PN/ ( 1 •*88*PN) 

XI  ( 1 1384) *83 ( 11384) *P(NPTXJ 3B4) 

XI ( 1 1334) *X1 (11384) *1, 
FK6AS(KPTRl384)*AA(l$384>*P(NPTRl384> 
PK0AS(KPTR1384)*F^GA5(KPTR1384)/X1(1}384) 
IF(l,AM.€<3*9]  GO  TO  15 

C AA#FT£MP  <81  (Kt  1 *vf J>  <01  (K42.Uj>  *31  (K.3*JJ)  iTN] 

AA( 11384) *81 (K*3*JJ)4TNSQ(i 1384) 

XI  U 1384)  *6UK*2*JJ)  ^(11384) 

AA(1|384)«AA(1(384)«>X1  (11364) 

AA (11384)  *AA<1 1384)  «6HK«1*JJ) 

FK04S2(KPTR1384)*AA(1 J384)*P(NPTR|384) 

C 86«FTEttP(ft2{Kil,JJ) »d2(K,2iJJJ «32{KT3*JJ) .TN) 

88 U 1384) »e2(Kt3*Uj)#TNSQ < 11304) 
XlUl384)*e2(Kt2»JJ)#TN(ll384) 

00 ( 11384) *89 (11384) *X1 (ll384) 

B8 ( 1 1384) *00 ( 1 1304) *82 (K» 1 * Jj) 

C CC*FTEHP(03tKf ItJJ) *S3(Kf2*jj) »B3(K,3,JJ) » TN) 

CC( 11384) *83 (K, 3# JJ) *TNSQ (1)384) 

XI (1  I384)*B3(K*2*JJ)*TN<I  1384) 

CCtl 1384)  *CCU  1384)  ♦XKl  1384) 

CC(1 1304) *CC( 1)304) *a3(Ktl*JJ) 

C FKGAS2(K)*AA*PN/(1**0Q*PN*°CC) 

XI (1 »384)*P(NPTR)384)*4CC(1 1384) 

XI { 1)384) *X1 (11304) #88(1 1384) 

XI  <1I384)»X1  (U384)^l, 

FKGAS2(KPTR)384)*AA(1)384)4P(NPTRI384) 

FKGAS2(KPTR)384)*FKGAS2(KPTfli384)/Xl(li384) 

GO  TO  161 

15  GO  TO  <23.23tl7)fK 

C23  AA*F7EHP(Cl(K.l) *tl (K*2) .C1(K,3>  * TN) 

23  AA{1)384)*CI  (K*3)#TNS0(U3Q4) 

Xl(l 1384) »Cl(X*2>*TN( 1)384) 

AA(1  1384)  *AA<  11304)  **Kll384> 

AA  { 1 1384)  *AA(  11384)  *C1  (K,D 


0008198LINKHO  380 
0008199LINKHO  38X 
0008200LINKHO  382 
Q00820U.INKHO  383 
0008202UINKHO  384 
0008203LINKHO  385 
0008204UINKJHO  386 
0OO8205UINKHO  307 
OOO02O6LINKHO  38 8 
0008207UINXHO  389 
OOO82O0LINKHO  390 
0008209LINKHO  391 
OOO021OLINKHO  392 
0008211UINKHO  393 
0008212UINKHO  394 
OOOS213LINKHO  395 
0008214UINXW0  396 
0008215LINKHO  397 
0008216UINXHO  390 
0008217L1NKHO  399 
0008218U1NKBO  400 
0008219UINKHO  401 
0008220LINKHO  402 

OOO0221LINKHO  403 
000S222LINXHQ  404 
0008223L1NKHO  405 
OOOS224UINKHO  406’ 
0008225(  INKHO  407 
OOO0226LINKHO  408 
OQO0227LJNKHO  409 
00082281.INKHO  410 
0008229L INKHO  41 1 
OOO023OLINKHO  412 
OOO0231LINKHO  413 
OOO0232UNKHO  4J4 
0008233LINKHO  415 
0008234UNKHO  416 
00 08235 L INKHO  *17 
0008236LINKHO  418 
0008237C INKHO  419 
0008238LINKHO  420 
0008239UINKHO  421 
OOO024OL1NKHO  422 
000824 11. INKHO  423 

OOOS242LINKHO  424 

0 0 0024  31,  INK  HO  425 
OOOS244LINKHO  426 
0008245LINKHO  427 
0008246L1NKHO  428 

OOQ8247LINKHO  429 

0008248LINKHO  430 
0008249L1NKHO  431 
0008250L1NKHQ  432 
OOOS251LINKHO  433 
0008252LINKHO  434 
0 0 08253 L INKHO  435 
0008254LINKHO  436 
OOO025SLINKHO  437 
0008256LINKHO  438 
00082S7LINKHQ  439 
OOOS258L1NKHO  440 
00  0 825 9 L INKHO  441 
0008260LINKHQ  442 
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C Be*FT£MPfC2tK*i> ,CH(K,2> ,C2<K,3> * IN) 

B8(U3Q4>«C2(K#3)*TNSQtl  1384)  ' 

X 1 (11304) «C2  <K.2>  *TN ( ] * 3Q4) 

B8U  *384)  *80  ( 11384)  *XK  1*384) 

BB{H384)«BS(ll384)*C2{Kti) 

C FKG4S2(K)*AA*PN/C1.#0B*PN) 

FKGAS2 (KPTR I 3B4)*AA( 11384) *P(NPTR 1384) 

XI (1*304) *80(1 *384) #P(NPTft *384) 

X1UI384)*XUII384>*1« 

FKGAS2 (KPTR* 384) *FKGA$2 (KPTR* 304) /XI (1*  384) 

GO  TO  161 

C17  A Aa24*  0109*27, 9638<»TN*  13 ,7574TN»TN 

17  AAtl I384)*13«757*TNSQ<1 1384) 

xmt384)*27,9638*TNU  1384) 

AA(H384)«AA(1  *384)-Xl  (1  1384) 

AAUI384)  *AA (1*384)  ♦24,0109 
C 90*0 , 1716*0 . 06669*TN-0 , 0H572*TN*TN 

C FOR  CONVENIENCE*  COMPUTE  -98 

90(1*  384) », 02572*TNSQ (1*384) 

XI ( 1 1 384) *« 06669*TN ( 1 J 304) 

9B(U304)  *88(1  *304) -XI  (11384) 

89(1I384)*BB(1*384)-%1716 
C FKGAS2 (K ) *AA*PN^*  < *00) 

X2 ( X *384) *P <NPTR*384>  **B8( l *384) 

FKGAS2 (KPTR* 334 >*AA(l 1 384) #X2 U 1 384) 

C16  TAUN(N*K)*(FKGAS(M»UN*TAU+FKGAS2(K)*lJNt*TAUl)/(TAUT*l.E-40) 
161  FKGAS(KPTR*384)*FKGAS(KPTRI384>*UNH20(NPTRI384) 
FKGAS(KPTR*384)*FKGAS(KPTR*384)*TAU (1*384) 

FKGAS2(KPTRI3B4) -FKGAS2 CKPTRl 384) «UN1 ( 11334) 
FKGAS2(KPTR*384)*FKGAS2(KPTRt384)4TAUl (1 1384) 

XI (1*384) *TAUT( 1*384) *l,E-40 

TAUN (NKPTR  * 384) *FkGAS (KPT«  * 304) *FKGAS2 (KPTR  *384) 

16  TAUN(NKPTR*384)*TAgN(NKPTR*384)/Xl (1*384) 

14  CONTINUE 

GO  TO  13 

3'  00  10  K*1 a 3 

KPTR» (K*l ) *384*1 

AA(1 *384) *A( 1*384) *A3(LAH»K> 

88(l?384)»AAA(l?384)«A4(LAMtK) 

CIO  FKGAS(K)«AA*PN/<1*0*86*PN) 

FKGAS(XPTRl3a4)»AAa*384)*P(NPTR*384) 

XI  Cl  138*) *80(1 1384) ♦PfNPTR* 384) 

XIU  *384)  »X1  (1 1384)  *l, 

FKGAS (KPTR  *384) «FK<3AS (KPTR * 384) /XI ( 1*384) 

10  CONTINUE 

00  12  K*1 * 3 
KPTR*  (K-l), *384*1 
NKPTR* (K-l ) *4608*NPTR 

12  TAUN (NKPTR * 384) *FKGAS (KPTR*  384) *UNH20 (NPTR  *384) 

13  CONTINUE 

GO  TO  (1*1. 27, 27, 1.22, 22, 22, 22. 22,1,1), LAM 
C****  WATER  VAPOR  CONTINUUM  ABSORPTION 
22  JJ«LAH-5 

C XK2*FTEMP(WKlJJil>  *WK(Jd.2)  .WMJJ,3>  *TN) 

X2( 1 *38*) *WK ( JJ.3J  *TNSQ (1*384) 

XI  ll*384)«WK(Js)t2)*TN(lI394) 

X2 ( 1 } 384) »X2 (1  * 384 ) *X1 1 1 * 384) 

X2* 1*384) «X2(1 | 384) *WK(JJ*1) 

C WK1».005*XK2 

XI ( 1*384) «.005*X2 (11384) 

GO  TO  29 
27  Jd*LAM-2 

X1UI304)»WK2O(JJ»D 


OOOQ261LINKMO  443 
0008262LINKHO  444 
0008263L INKHO  445 
0008264L INKHO  446 
00082651  INKHO  447 
00 08266L INKHO  448 
0008267UINKHO  449 
000 8268L INKHO  450 
00 082691. INKHO  451 
0008270LINKHO  452 
00082711  INKHO  453 
OOQ8272LINKHO  454 
0008273LINKHO  455 
0008274LINKHO  &56 
0008275L INKHO  457 
OOO0276UINKHO  458 
OOD8277UINKHO  459 
0 00 8278L INKHO  460 
OOQ8279LINKHO  461 
0008280L1NKHQ  462 
OOQ8281L1NKHO  463 
0Q08282L INKHO  464 
00082B3LINKHO  465 
OOOS284LINKHO  466 
OOOS285LINKHO  467 
0008286LINKHO  468 
0008287LINKHQ  469 
OOO8280LINKKO  470 
0008289LINKHO  471 
0008290LINKHO  472 
0 0 0829 1L INKHO  473 
0006292L INKHO  474 
0008293LINKHO  475 
OOOS294U1NKHO  476 
OOO0295LINKHO  477 
0008296LINKHO  478 
OOO0297LINKHO  479 
QOO029SLINKHO  400 
0008299LINKHO  401 
0 00830 OLINKHO  482 
000830 1LINKH0  463 
0008302L INKHO  484 
0008303LINKHO  485 
0008304LINKHO  486 
OOO03O5LINKHO  487 
0008306L INKHO  488 
0003307UNKHO  409 
0008308LINKHO  490 
0008309LINKHO  491 
000831 OLINKHO  492 
0OO8311LINKHO  493 
0008312LINKHO  494 
00083 13L INKHO  495 
0 0 083 14L INKHO  496 
00093 l 5L INKHO  497 
0 00831 6L INKHO  490 
0008317L1NKHO  499 
OOO8310LINKHO  500 
0008319LINKHO  501 
OOO032OLINKHO  502 
OOO0321LINKHO  503 
OOO0322LINKHO  504 
0008323LINKHO  505 
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X2(Il3B4)*WK20(JJ.2) 

29  CONTINUE 

C XK»XK1®PN*XK2®E(N) 

XI (1130*) «Xi m 384) *P (NPTH1384) 

X2 ( 11 384) ®X2 (11 304) #£ (NPTR 1 304) 

X2  U 1 384)  «X2U  1384)  ♦Xlt  11304) 

X2 11 1 304 ) «X2 (H  304 ) ®UNH20  < NPT  R 1 304 ) 

DO  IS  K*l*3 
NKPTR»(K-1)*4608*NPTR 

10  TAUN(NKPTP)304>*TAUN<NKPTRI384)*X2U 1384) 

1 CONTINUE 

28  CONTINUE 

00  II  K»1 t 3 
KPTR®(K-1) *384*1 
NKPTR®  (K-l > *4608*NPTR 

TAUN (NKPTR 1 384) «TftUN (NKPTR) 384) *TA  <LAM,N) 

11  CONTINUE 

2 CONTINUE 

C*«®*  COMPUTE  PLANCK  FUNCTION  AT  EACH  LAYER 
DO  9$  NkWNQI 
NPTR*(N-l) *384*1 
X1(H384)«PF2(LAM) 

XI  (U304)«X1  (11384)  /TE(NPTRt384>  * 

XI ( 1 1384) *V£XP (XI (1)384) |X1 (1)384) ) 

XI <1I384)*X1 (1 f 304> •! , 

9T0P (NPyRt384) *PFl (LAM) 

95  STOP {NPTft 1 304) «0TOP (NPTP 1 304) /XI  U I 384) 

00  100  K»l »3 
C***®  ADDING  LOOP 

c****  COEFFICIENT  in  SUMMATION  OF  HEATING  OVER  MAGNITUDES  ANO  BANOS 
CKLAM*COEK  (K) *COELAM (LAM) 

C****  INITIALIZE  CUMULATIVE  OPTICAL  DEPTH 
TAU ( 1 4384) *0* 

C****  FLAG  FOR  CLOUOS 

CLOFLG ( 1 1 384) aCLOFLG ( 1 1 384 ) . XOR . CLDFL  G (11384) 

C****  FLAG  FOR  AEROSOLS  (OR  CLOUDS  TREATED  AS  AEROSOLS) 
AE«FLG<l)384)*AERFLG(ll304) *XOR*AERFLG ( l (384) 

C«***  CUMULATIVE  UPWARDS  EMISSION  FOR  TOP  COMPOSITE  REGION 
C EUPCN*0» 

C®**®  CUMULATIVE  DOWNWARDS  EMISSION  FOR  TOP  COMPOSITE  REGION 
EONCNUt  3841*0. 
c»***  COMPOSITE  TRANSMISSION 
TDFCN(ll304)*l, 

C®***  COMPOSITE  OOWNWARDS  REFLECTION 
RDNCN(i;304)*O. 

C**®*  CUMULATIVE  QUANTITIES  ARE  COMPUTED  IN  EONCN/TOFCN/RDNCN  8uT 
C***®  PERIODICALLY  STORED  INTO  EUPC*EONC*TOFC.ETC.  BY  LAYER  POSITION 

00  101  N-l#NLAYRS 
NPTR*(N«1 1*384*1 
NKPTR® (K-l  > ®4608*NPTR 

C®**® 

c*®**  single  layer  computation 

c®*®®  EUPnUPWAHDS  emission 
C****  EDNsOOWN WARDS  EMISSION 
C**»*  T0F*TRANSMISSI0N 
c®*®*  R£F*REFLECTION 

c*®»® 

TAUCJR (11384) *CIR£XT (LAM) 

TAUCIR (1 1 384 ) *TAUC IR (11304) *CT AU55 

TAUClR(ll304)*TAUClR(ll384)*NCLOUO(NPTRt384) 

TAUN (NKPTR 1 384) * TAUN (NKPTR 1 384) * TAUCIR (11384) 


OOO0324LINKHO  506 
OOOS325L1NKHO  507 
0008326LINKHO  508 
OOO0327LINKHO  509 
0008328LINKHO  510 
0008329LINKHO  511 
OOO033OLINKHO  512 
0008331UNKHO  513 
OOO0332LINKHO  514 
OOO0333LINKHO  S15 
OOO0334LINKHO  516 
OOO0335LINKHO  517 
QOO0336LINKHO  518 
0008337LINKH0  519 
OOO033BL1NKHO  520 
OOOS339LINKHO  521 
0008340LINKHO  522 
OOO034H.INKHO  523 
OOO0342LINKHO  524 
OOO0343LINKHO  525 
OOO0344LINKHO  526 
0008345LINKHO  527 
OOO0346LINKHO  520 
OOO0347LINKHO  529 
OOO0346LINKHO  530 
0008349LINKHO  531 
00063SQLXNKHO  532 
OOO0351LINKHO  533 
OOO0352LINKHO  534 
0008353LINKHO  535 
OOD8354LINKHO  536 
OOO0355LINKHO  537 
OOOB356LINKHO  538 
OOOB357LINKHO  539 
OOO8350LINKHO  540 
000A 359LINKHO  541 
00Q8360LINKHO  542 
OOOS361LINKHO  543 
OOO0362L INKHO  544 
OOOR363LINKHO  545 
OOOA364LINKHO  546 
0008365LINKHO  547 
00 Oft 366L INKHO  540 
OOO0367LINKHO  549 
0008 368L INKHO  550 
0008369LINKHO  551 
Q008370L INKHO  552 
OOO0371LINKHO  553 
OOO0372LINKHO  554 
0008373LINKHO  555 
00 0837 4L INKHO  556 
0008375LINKHO  557 
OOO0376LINKHO  558 
0008377L1NKHO  5S9 
OOO0378LINKHO  560 
OOOS379LINKHO  561 
0008380L INKHO  562 
OOO8301LINKHO  563 
OOO0382LINKHO  564 
00 08383L INKHO  565 
0008384LINKHO  566 
0008385LINKHO  567 
00 0838 6L INKHO  568 


4-B-9 




C SET  Pto  TO  ZERO  FOR  OaRK  CLOUOS 

C»*a**«*«*«»»*#«»****»+**«*o«»***o««««<>*»e***«»«***«+o«*«o»»«***«o««» 

Xldl384)*TAUN(NKPTR|384>  M.E-40 
X2d  1384)  *TAUCIR(1  >384)  *PlCIRO(LAM) 

XH ( 1 1384) «X2 ( X 1 384) 4PIZ (UAH*Ni 
PI0« 11384)^X2(1 >384) /XI (11384) 

IF(N.LE*3)  TN(ll384)«TSTR<NPTR«384)/273, 

IF(N,GE,4)  TN(U3Q4)«TU  (N-4> *384*1 >384) /273. 

C IF (TN«OE»  » 85348 « AND *NCLO*JO (N)  .GT,Q)PIO*0. 

Lit  1 >384) *TN( 1 1384) ♦GE* ,85348 
L2(l*304)«NCLOUOtNPTRl384) ,GT.O 
Li  (1  >384)  *U  tl  >384)  *AND,L2d  >384) 

PIOU  >384]  *Q8VCTRL  (ZERO  U >384)  ,L1  (1>384>  >PX0U>384)  ) 

C****  EMISSION  CALCULATIONS  FOR  HAZE  LAYER, 

C****  exact  in  THE  SENSE  OF  ISOTROPIC  SCATTERING 

C****  EXACT  SOLUTION*TUO-STREAM  SOLUTION*FORGE  FACTOR (PIO *TAUO) 

Ll(l f 384) *PI0  < l >384) ,GT  *1 »E-4 
L0UT*08SCNT (LI (11384) ) 

IF  (LOUT.EO.O)  GO  TO  165 

PlOCd>LOUT)»Q8VCMPRS<PIOd>384),Lld>384)  >PIOC(1ILOUT)  > 

TAUNC ( 1 1 LOUT ) *Q8VCMPftS (TaUN (NKPTR 1384) , LI (1 >384)  I TAUNC d I LOUT) ) 
8T0PN ( 1 f LOUT)  *Q8VCMPRS(BT0P(NPTRl384)  ,LId>304)  I0TOPN <1 ILOUT J ) 
8T0PNPdlL0UT)*Q8VCHPRS(6T0P(NPTR*384>384)  ,L1 (11384)  I 
♦ BTOPNP ( 1 tLOUT) ) 

A ER  U 1 > LOUT ) *ONE ( l > LOUT  > -P 1 0 C U > LOUT ) 

Xl( 11  LOUT) *PIQC(1 tLOUT) *C8 (LAM, N) 

AER2 ( 1 tLOUT) »ONE ( 1 tLOUT) -XI ( 1 tLOUT) 

XI  (1 ILOUT) *AER1  d*L0UT)/AER2d tLOUT) 

AERA(llLOUT)»VSQRT(Xl d tLOUT) > AERA ( 1 ILOUT) > 

AERU ( 1 1 LOUT ) *ON£  d tLOUT ) -AERA ( 1 1 LOUT ) 

AERU  < 1 ILOUT) *AERU ( 1 ILOUT) /2 . 

AERVd  ILOUT)  *ONE(i  tLOUT)  *AERA(llLOUT) 

AERV ( 1 1 LOUT) *AER V d I LOUT ) /2 . 0 
AERC  (I  ILOUT)  »3,0*A£RU  ULOUT) 

AERC ( 1 ILOUT) *AERC ( llLOUT) *AER2 ( 1 tLOUT) 

AERCd  ILOUT)  «VSQRT  (AERCd  ILOUT)  ! AERCd  ILOUT) ) 

XI  d tLOUT)  *AERCd  ILOUT)  *TAUNC  (1  ILOUT) 

XI d ILOUT) *-Xl d ILOUT) 

EXldlLOUT)*VEXP(Xl(l  ILOUT)  IEX1  d ILOUT) ) 
temporary  trap  for  underflows  (as  in  scalar  cooej 
TSTEXPd  ILOUT)  «Xfd  tLOUT)  .LT,  -180,218 

exuulouT)  « gsvctrl (Zero <1  iloutj  ,tstexp(i ilout)  iexuiiloud) 
TSTEXPd  ILOUT)  * EXIUILOUT)  ,LT*  l.E-30 

EXUULOUT)  * Q8VCTRL  (ZERO  (1  tLOUT)  * TSTEXPd  ILOUT)  tEXldlLOUT) ) 
EX2 { 1 ILOUT) *EX1 ( 1 ILOUT) *£*1 ( 1 tLOUT) 

C****  FORGE  FACTOR  FOR  ISOTROPIC  SCATTERING 
Xl<  1 ILOUT)  *AERV  ( ULOUT)  #a£RV  ( 1 ILOUT) 

X2 ( 1 ILOUT) *AERU ( 1 ILOUT) *a£RU ( 1 ILOUT) 

X2 ( 1 ILOUT) *X2 ( 1 ILOUT) *£x2 ( l ILOUT) 

OENO  ( 1 1 LOUT ) «X1(  1 1 LOUD  -X2  ( 1 1 LOUT) 

ONMO 1 1 1 LOUT ) mBTOPN { 1 \ LOUT ) -Q  TOPNP { 1 1 LOUT) 

ONMOU  ILOUT)  *ONHO  ( 1 tLOUT)  /TAUNC  ( 1 ILOUT) 

ONHOd  ILOUT) -ONMOdlLOUt) /AERCd  ILOUT) 

X2 (ULOUT)  «AERU d ILOUT)  «EX2  d ILOUT) 

XU  1 ILOUT)  *AERV(1  ILOUT) -X2(l  ILOUT) 

X2d  ILOUT)  *A£RA(1  ILOUT)  »£X1  (1  ILOUT) 

XU  1 1 LOUD  *X1(  1 1 LOUT)  -X2  { 11  LOUT) 

QNMOtl  ILOUT) «DNHOd  tLOUT)  *Xui  ILOUT) 

Xlll! LOUT ) * AERU  < 1 1 LOUT ) *EX2 1 1 1 LOUT  J 

ONHUllLOUT)*AERVdlLGUTMXldlLaUT> 

C EUP (N) « (STOP (N) *ONH1-ONHO-BTOP (N* 1 ) *£Xl) /OENO*FTWO#AERA 

C»«4»  USE  TAUNC  FOR  TEMPORARY  STORAGE 


4*0008387LINKH0  569 
0008388LINKHO  570 
»*O008389LINXMO  571 
0008390LINKHO  572 
0008391LINXHQ  573 
0008392LINKHO  574 
OOOS393LINKHO  575 
0008394L INKHO  576 
0OO8395LINKHO  577 
OOOB396LINKHO  578 
0008397LINKHO  579 
0 00 8390L INKHO  580 
0008399L INKHO  581 
0008400LINKHQ  582 
000840 1LINKHO  583 
0008402LINKHO  584 
OOOS403LINKHO  585 
0008404HNKHQ  586 
000840SLINKHO  587 
000 8406L INKHO  588 
000 84 07L INKHO  S89 
00O8408LINKHO  590 
0008409L INKHO  591 
00084 10LINKHO  592 
000841 1L INKHO  593 
0008412LINKHO  594 
0 0 084 13L INKHO  595 
0008414LINKHO  596 
00084 15L INKHO  597 
OOOS4I6LINKHO  598 
0008417LXNKHO  599 
000841 8LINKHO  600 
OOO0419LINKHO  601 
0008420LINKHO  602 
000 0*2 1L INKHO  603 
O00S422L INKHO  604 
0 0 08 423L INKHO  605 
00084H4L INKHO  606 
OOOS425LINKHO  607 
00 O0426L INKHO  608 
0008427LINKHO  609 
OOO0428L INKHO  610 
0008429LINKHO  611 
000 8430L INKHO  612 
000843 1L INKHO  613 
0008432LINKHO  614 
0 00 8433L INKHO  615 
0008434LINKHO  616 
0 00 S43SL INKHO  617 
0 0 0843 6L INKHO  618 
OOOS437LINKHO  619 
OOOB438L INKHO  620 
0008439L1NKHO  621 
0008440LINKHO  622 
0008441L1NKHO  623 
0008442LINKHO  624 
0008443L INKHO  625 
0008444LINKHO  6?6 
0008445LINKHO  627 
0008446L2NKHO  628 
0008447L INKHO  629 
OOQ8448LINKHO  630 
D008449LINKHQ  631 
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XI  UILOUT ) »QTOPN ( 1 1 LOUT  ) •ONMl ( 1 ILOUT) 

XI  UILOUT)  «X1  a ILOUT) -ONMOU  ILOUT) 

X2  C II LOUT) *BTOPNP < 1 1 LOUT) *EX 1 C 1 ILOUT) 

T AUN  C t 1 1 LOUT ) *X1 ( 1 ILOUT) -X2 { 1 ILOUT) 

T AUNC  < 1 1 LOU  T ) *T AUNC ( 1 1 LOU  T > /OENO (11 LOU  T ) 

TAUNC < 1 ILOUT)  .TAUNC { ULOUT)  *AERA  ( l ILOUT) 

EUPfNPTR 1 384) .Q8VXPND (TAUNCtl ILOUT) .LI (11384) IEUP (NPTR 1304) ) 

C EDN  (N)  « IQTOP  IH+l ) *ONMX  ♦ONMO^BTOP  (N) *EX1 ) /OENO«»FTWO*AERA 

TAUNC  t ULOUT) -8TOPNP  u ILOUT)  «0NM1  a fLOUT) 

TAUNC  1 1 ILOUT) *TAUNC ( 1 ILOUT) ♦ONMO ( X ILOUT) 

XI  aiLOUT)*0TOPN(HLOUT)*EXl  (XILOUT) 

TAUNC  ( 1 1 LOUT ) .TAUNC  < 1 1 LOUT) -X  X ( 1 1 LOUT) 

TAUNC < X I LOUT ) .TAUNC  < X I LOUT ) /OENO ( X ILOUT ) 

TAUNCUIL0UT)«TAUNC(1  ILOUT)  4AERA  (X  ILOUT) 

E0N<NPTRI384)*Q8VXPN0 (TAUNC tl 1384) .LI (11384) I EON (NPTRI 384 > ) 

C**#*  REF(N) .TDF(N>  BASED  ON  TWO  STREAM  SOLUTION 
C REF  IN) .AERU#AERV*  < 1 .-EX2) /OENO 

TAUNC I X I LOUT ) .AERU ( \ | LOUT) * AERV ( 1 1 LOUT ) 

XI IX ILOUT) "ONE (X)L0UT)«£X2t  X ILOUT) 

TAUNC ( I ILOUT ) .TAUNC 1 1 1 LOUT I #X X (X  I LOUT) 

TAUNC I 1 ILOUT ) »TAUNc I 1 ILOUT) /OENO ( X ILOUT) 

REF |NPTRI384)=Q8VXPND (TAUNC U ILOUT) »LX 11 1384) IREF (NPTR 1 384) ) 

C TOF  IN) • I A£R V-AERU) /OENO*£Xl 

TAUNC 1 1 1 LOUT ) .AERV ( X I LOUT ) -AERU 1 11 LOUT ) 

TAUNC I X I LOUT ) .TAUNC ( 1 1 LOUT) /OENO ( X ILOUT ) 

TAUNC (X ILOUT) .TAUNC (X ILOUT )*EX1  II ILOUT) 

TDF(NPTRI384).Q8VXPnDITAUNCI1ILUUT) *L1 (11384) I TOF (NPTR 1 384) ) 

165  CONTINUE 

C***» 

C**«*  DARK  CLOUDS 

£»*•* 

C NEXT  test  on  clouds 
C BUT  FIRST  TEST  EXCLUDES  ALL  OTHERS 
LI ( 11384) «.N0T.L1 ( 11384) 

L3(1I384)-NCL0U0(NPTR|384) .GT.O 
C L2*SEC0NQ  TEST* .NOT. FIRST. AND. SECOND 
12(1)384) *L1 U 1384) «AND«L3( 11364) 

C LX*. NOT. FIRST. ANO.. NOT. SECONO 
U3  U 1^84)  *.NOT,L2U  1384) 

LI <1 l3fl4)*Ll 111384) .AND. L3 (11384) 

T0F|NPTRI384)*08VCTRL(ZER0I1|384) .L2(1I384) ITDF (NPTRI 384) ) 
R£F(NPTR|384)*Q8VCTRL (ZERO (11384) .L2 (11304) I REF (NPTRI 384) ) 
E0N(NPTR!384I*Q8VCTRL(BT0P(NPTR*384I384) »L2ll 1384) I £ON (NPTR I 384) ) 
. EUP (NPTR 1384) .Q8VCTRL (STOP (NPTR 1384) .L2 (11384) I EUP I NPTR * 384) ) 

C***4 

€*•*•  THICK  LAYER 

L2 111  384) «T  AUN (NKPTR 1304) .GT . 15. 

L2(11384)*L2 (11384) .AND.Ll I X 1 384) 

TOF(NPTRI384)»Q8VCTRL(ZERO(lt304)  .L2UI384)  ITDF  (NPTRI  384)  ) 

EXTAU  H 1304)  .OSVCTRL  I ZERO  1 1 1 384)  .L2(X1384)  t£XTAU(H384) ) 

C*°** 

C««««  TRANSPARENT  LAYER 

L2< 11384) *TAUN(NKPTRI384) .LT.l.E-4 
L2 ( 1 1 384) «L2 ( X 1 384) .ANO.Ll I X 1384) 

TOF(NPTR|384)*Q8VCTRL(ONE(1I384J  *L2 ( 1* 384) 1 TDF tNPTRl 384) ) 

REF INPTRI384) .Q8VCTRL (ZERO ( 1 )384) * L 2 f 1 1384)  IREF (NPTR 1 384) ) 

EXTAU  (NPTR  1 384)  *Q8VCTRL  (ZERO  (II 384)  .L2(11304)  lExTAU (NPTR » 384)  ) 

EUP (NPTR 1 384 ) 3Q8VCTRL (ZERO (11384) *L2(1 1304) I EUP (NPTR 1 384) ) 
EDN<NPTRl384)*G8VCTRL(ZER0<l J384) *L2<1 1384) ICON (NPTR * 384) ) 

C«*** 

C**«*  INTERMEDIATE  range 


OOOR4SOLINKHO  632 
O008451LINKHO  633 
Q008452LINKHO  634 
OOO0453L1NKHO  635 
0008454LINKHO  636 
0008455L1NKHO  637 
DOO0456LINKHO  638 
OOO0457LINKHO  639 
OOO04S8LINKHO  640 
OOOS459LINKHO  641 
0008460LINXHO  642 
0008*6 lLlNKHO . 643 
OOO0462LINKHO  644 
0008463LINKHO  645 
0C08464LINKHO  646 
0008465L2NKHQ  647 
0008466LINKHO  648 
OOOS467LINKHO  649 
0OO8468LINKHO  650 
0008469L1NKHO  651 
C008470LINKHO  652 
000847IL1NKHO  653 
0008472LINKHO  654 
0008473LINKHG  655 
0008474LINKHO  656 
OOOS475LINKHO  657 
0008476LINKHO  658 
0008477L INKHO  659 
OOO8470LINKHO  660 
OOO0479LINKHO  661 
0OO840OLINXHO  662 
OOO0481LINXHO  663 
0008482L INKHO  664 
00084S3LINKHO  665 
0008484L INKHO  666 
0008485LINKHO  667 
OOO0486LINKHO  668 
0008487LINKHO  669 
0008488LINKHO  670 
0008489LINKHO  671 
0008490LINKHO  672 
00 0849 XL INKhO  673 
0008492LINKHQ  674 
0008493L INKHO  675 
O008494LINKHO  676 
0008495L2NKHO  677 
0008496LINKHO  678 
0008497LINKHQ  679 
0QO8498LINKHO  600 
OOO0499LINKHO  601 
0008500LINKHO  602 
000850 1LINKHO  683 
0008502LINKHO  604 
OOO05O3LINKHO  605 
OOO05O4LINKHO  686 
0CO85O5LINKHO  687 
0008506L1NKHO  688 
00 0050 7L INKHO  689 
OOO85O0LINKHO  690 
OOO05O9LINKHO  691 
000851 OLINKHO  692 
000851 1L INKHO  693 
00085121 INKHO  694 


4-B-11 


L2U  *384) -TAUN  (NKPTR  *364)  .LE.15. 

L3 ( It 384 ) -TAUN (NKPTR 1 384) ?GE . 1 *£-4 
L2ll*384)-L2d  *394) ♦ ANO ♦ L3 ( 1 ; 384) 

12 1 1 1 364) *L2  < 1 138*1 . AND.ll C 1 * 384) 

XI  <1  1 384)  — TAUN  (NKPTR  1 304) 

£XTAUUt384]»VEXP  (XI  (11364)  1 EXT AU ( 1 1384 > *) 

TY ( 1 | 384) -20« *TAUN (NKPTR I 384) 

c*««»  PREVENT  table  overflow  by  storing  i»s  in  look-up  vector 

ITT ( 1 1 384) »1 

II (1)384) -TY  d 1384) *l *0 

RITY(ll384)aQ8VCTKL(Rll  (1*384)  *L2U*304>  tRlTY  ( 1 1384)  )‘ 

XI (1 *384) «Q8VGATHR<TE3 (Il30l) »ITY( 11384) |X1 (1*384) ) 
ITY(H384)*tTYa  *384)  *1 

X2(U384)»CJQVGATHR{TE3(H301)  ,tTY(l*304)  *X2d*384>  ) 

C TOF  (N)  «X2«*X1 

X3  (1 1 3B4)  s»X2  { 1 1 384}  - X 1 ( l j304} 

X2(l *304} «TY(lt394)-rTY< 1*384) 

X2 ( 1 *384) -X2 (1*384)  *2, 

C TDF(N)»T0F(N)«X2 

X3<1 1384) »X3( 1*384) *X2( 1*384) 

C TOF (N) -TDF (N) *X1 

X3(1*384)»X3( 1*384) 4X1(11384) 

C CONTROLLED  STORE  INTO  TOF IN) 

TDF(NPTR*384)»QQVCTflL(X3(l*384) *L2U*384> I TOF (NPTRt 384) J 

C***# 

€***•  CALCULATIONS  COMMON  TO  INTERMEDIATE  ANO  HIGH  RANGE 

C***» 

L2U  *384) -L3  (11384)  , AND  ,Ll  U *384) 

REF (NPTRt 384) aQSVCTRL (ZERO (1 *384) *L2d 1304) *REF(NPTRI 394 ) ) 
C OFB»  (STOP  (N) -STOP  (NM) J-6.6667E-01 

XI (1*384) *8T0P(NPTRt384)-BT0P<NPTR*334|384> 

XI (II384)*X1 (1*384)*6,6667E-01 
C FGRA0«DF8*( a.O-EXTAU)/X-TOF(N> ) 

X2 (1 1 384) -ONE ( 1 1 3»A) -EXTAU (1*334) 

X2 (1*384) »X2< 1*384) /TAUN (NKPTR* 384) 

X2 (1 1 384) -X2 ( 11384) -TOF (NPTR 1 384) 

' X2 ( 1 *384) ■X2(l* 384} #X 1(1*384) 

C ANS-1 • 0»TDF (N) 

XI  (1*384)  -ONE  1 1 *3** 4)  -TOF  (NPTR  1 384) 

C EON(N) *8TOP (N*l) •ANS^FGRAO 

X3(i*384)*8TOP(NPTR*384l384)*Xl (1 1384) 

X3(l 1384) -X3( 1*384) *X2( 1*384) 

E0N(NPTRI384) *Q8VCTRL (X3 ( 1 *384) ♦L2(l*384) IEON (NPTR* 384) > 

C EUP(N) »8T0P (N) *ANS-FGRAO 

X3 ( 1*384) -STOP (NPTR  * 384) *X1 (1*384) 

X3UI384)«X3tll384)-X2(  1*384) 

EUP (NPTR 1384)  -QSVCTRL  (X3(U384)  *L2d»384)  *EUP  (NPTR*384)  > 

C*tH 

€•*•*  FORM  TOP  COMPOSITE  LAYER  (AOOITION) 

C***# 

C109  OENObI#0-RONCN*«EF(N) 

109  XI (1 *384} -RQNCN d * 384) *R£F (NPTR * 384) 

OENOd  1384) -ONE  (1*384) -XI  (H384) 

C EUPCN«EUPCN»(EUP*N) ♦EDNCN*REF (N) ) -TOFC(N) /OENO 

C EDNCN-EDN (N) ♦ (EDHCN*EUP (N) •RONCN) -TOF (N) /OENO 

XK1*  384J-EUP  (NPTR  1 384)  -RONCN  (1*384) 

EDNCN(1  *384)-EDNCN(l  *38A)  ♦Xld  *384) 

EONCN (1 1384) *eONCN(l *384) *TOF (NPTR *384) 

EONCN ( 1 *384} -EONCN ( 1 * 384) /OENO ( 1 1 384} 

EONCN (1*384) -EONCN (1*384) *EON (NPTR* 384) 

C IF(NCL0U0(N) .GT.Oi  CLOFLG-.TRUE. 

LX  U 1 384} -NCLOUO (NPTR  *384) .GT.O 


00005 13LINKHO  895 
00085 14L INKHO  696 
OOC8515LINKHO  697 
O008516LINKHO  698 
0008517LINKHQ  699 
OO09S18LINKHO-7OO 
OOOS519LINKHO  701 
00C8S20LINKHO  702 
OOO0S21LINKHO  703 
OOO0S22LINKHO  704 
O008523LINKHO  70S 
OOO0524LINKHO  706 
0008S2SLINKM0  707 
OOO0526UINKHO  706 

0008527LINXHO  709 
OOO0528LINKHO  710 
O0OS529LINKHO  711 
0009530LINKHO  712 
0008531LINKHO  713 
0008532HNKHO  7J4 
0008533L1NKMO  715 
OOO0534LINKHO  716 
0008535LINKMO  717 
OOOB536LINKHO  718 
OOC8537LINKMO  719 
OOORS38LINKHO  720 
OOOAS39J.INKHO  721 
0008S40LINKHQ  722 
0008541LINKMO  723 
0008S42LINKHO  724 
0008543LINKHO  725 
OOO0544LINKHO  726 
00 08 545 LINK HO  727 
0 0 06  S 46  LINK  HO  726 
0008547LINKHQ  729 
0008548LINKHO  730 
OOO0S49LINKHO  731 
000S550LINKHO  732 
OOO0551LINKHO  733 
0QO8552LINKHO  734 
0008553L INKHO  735 
00085S4LINKH0  736 
0 0 08 555 L INKHO  737 
0008556L INKHO  738 
0008557L INKHO  739 
00 08S58L INKHO  740 
0008S59LINKHO  741 
00 09560L INKHO  742 
OOQ9S61LINKHO  743 
OOO0562LINKHO  744 
0008563L INKHO  745 
0008564LINKHO  746 
0008565L INKHO  747 
OOOS566LINKHO  748 
OOOB567LINKHO  749 
0009568L INKHO  750 
0008S69L INKHO  751 
0008570LINKHO  752 
000 857 lu, INKHO  753 
0008572LINKHO  754 
0003573LINKHO  755 
0008S74LINKHO  756 
0008575L INKHO  757 
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CLDFL&U  *384)  «CLDFLGU  1 38*)  .OR. LI  1 11384) 

€•*•*  SET  AEROSOL  FLAG  JF  CIRRUS  CLOUDS  (HIGH  ALBEDO) 

C IF (CLDFLG, AND. PI0*6£. !•£-*>  AERFLG*.TRUE* 

LI  (1 1384) «PI0 a 1364} .GE. l #£-4 
LI  (11384) *L1 (11384) .ANO.CU>FLG  <1  *384) 

AERFLO (11384) *A£RFLG{ 1 138*) ♦OR.Ll UI384) 

TRANSMISSION  COMPUTED  DIFFERENTLY  FOR  3 CASES 
C IF  (CLDFLG.0R.A£RFLG1  GO  TO  I2S 

LI  (11384)  *.NOT*CLOFLGn»3S4)  . AND.  .NOT.A£RFLG  U 1 384) 

C****  CASE  l.  ATMOSPHERE  HAS  NO  AEROSOLS  OR  CLOUDS  THRU  HERE 
C**<**  USE  EXPONENTIAL  INTEGRAL  APPROXIMATION 
X3  (1  *384)  *TAUU  1384)  *TAUN(NKPTR  1334} 

TAU  ( 1 *384)  » QSVCtRL  1X3(1 1384)  *L1  (H384)  1TAU(1 1384)) 

C IF  (TAU.GT.IS*)  GO  TO  124  / T0FCN*0. 

L2(l *384) *X3< 1 1384) .GT.15# 

L2(l  1384) *L2 (1 1384) *ANQ ,Ll (1  * 304 > 

TDFCNll  *384)  *Q8VCTRL (ZERO  (11384)  .L21U384)  I TOFCN ( 1 1 384) ) 

LI (1*384) «L1 (11384) .X0R.L2(1*384) 

LOUT*Q8SCNT(Ll (11384) ) 

TY(1;L0UT)*Q8VCMPRS(X3(11384) *L1< 1*384} *TY(1 1LOUT) ) 

TY ( 1 (LOUT) »20. *TY ( 1 1 LOUT) 

TY  < l ILOUT) »XY ( 1 *LOUT) *X. 

ITY ( 1 1 LOUT) »TY  < 1 iLOUT) 

C TOFCN«TE3(ITY) ♦ (TY-ITY* 1 > * <TE3 < ITY* t > -TE3 < ITY) ) 

X2(UL0UT>*Q8VGATHR(TE3(11301)  .ITY(HLOUT)  1X2  a iLOUT) ) 

ITY ( 1 ILOUT) *ITY ( 1 *LCUT)  *1 

XI  (m0UT)*Q8VGATHR(TE3(l  *301)  *ITY(lJLOUT)  UKULOUT) ) 

XI  ( 1 ILOUT) *X1 ( 1 ILOUT ) -X2 ( 1 *LOUT) 

X3 (1 ILOUT) «TY (I ILUUT) •|TY ( 1 ILOUT) 

X3(l  ILOUT)  *X3(HL0UT)  *2. 

X3( 1 ILOUT) »X3(l iLOUT) *X1 < 1 ILOUT) 

X3(l ILOUT) *X3(1 ILOUT) *X2(1»L0UT) 

XI  (11384) »Q8VXPN0(X3 (1 ILOUT) . LI (1*384)  1X1(11384)1 
T0FCN<1  1384)  a08VCTRUXl  (11384)  .LI  (1*384)  |TDFCN (11384)  ) 

CASE  2,  SIGNIFICANT  ABSORPTION.  (IF  AERFLG) 

C RONCN*REF  <N) *TOF(N) *RONCN#TOF (N) /OENO 

X3 ( 1 1 384) «RONCN ( 1 1 384) »TdF (NPTR 1 384} 
X3Ul384)«X3Ul384)*T0F(NPTRi384) 

X3UI384)»X3(1 1384) /OENO<  11384) 

X3 (1 *3fl4l*X 3(1*384) ♦REF (NPTR1384) 

H0NCN(li384)»Q6VCTRL(X3(ll384) . A£RFLG( 1 1 384)  (RONCN ( 1 1 384) ) 
C TDFCN*TOFCN*TDF(N) /DENO 

X3(ll384)*TDFCN(l I384)«TOF(NPTRI304] 

X3(11384)»X3(1 1384) /OENO (1*384) 

TDFCNd  *384) 3QBVCTrL(X3< 1*384) . AgflFLG < 1 1 304)  I TOFCN ( 1 *384) ) 
C130  IF  (NCLOUO(N) .EQ.Q, OR, Plo,G£. !.£•*>  GO  TO  140 
130  Li ( l *384) *NCLOUD (NPTR 1384) .GT.O 
L2lll384)*PIOUI384)  .LT.I.E-4 
LI (11384) »Ll( 11384) « AND « L2 (1*384) 

C****  CASE  3.  HEAVY  CLOUD  COVER 

TOFCN( 1 1384) *Q8VCTRt(2ERO (1*384) *Ll (1 *384) I TOFCNI 1 1 384) > 
RONCNC1 1384) *Q8VCTRL(ZE«0(1 *384) .LI (1*384) *RONCN( 1 * 384) ) 
TAU  (1*384) ■OaVCTRL(ZERO( 1*384) , LI (1  *384) |TAU< 1*304) ) 

140  CONTINUE 

C***«  SAVE  PARTIAL  SUMS 

C EUPC(N) .EUPCN 

EDNC (NPTR *384) =EDNCN(1 *384) 

TOFC (NPTR I 384) *TOFCN (11384) 

R0NC(NPTRI384)*RDNCN(1 *384) 

101  CONTINUE 
C***»  AOOING  GROUND  LAYER 
RUPCN ( 1 1 384) saGRNO 
C £UPCN*(1.0*RUPCNJ*BTOP(NG1) 


0008576LINKHO  758 
0008577LINKHQ  759 
00Q8578LINKM0  760 
0008S79LINKHO  761 
000858 OLINKHO  762 
0008S81LINKHO  763 
0008582LINKHO  764 
0008583LINKHO  765 
OOO8S04LINKHO  766 
0008586LINKHO  767 
Q008586LINKHO  768 
0008587LINKHO  769 

oooesaai^iNKHo  770 

0008589LINKHO  771 
0008590LINKHO  772 
0008591LINKHO  773 
0008S92LINKHO  774 
0008593UINKHO  775 
OOO0594LINKHO  776 
0008S96LINKHO  777 
0008596LINKHO  778 
0008597LINKHO  779 
OOO8590LINKHO  780 
0008599LINKHO  781 
000860 OLINKHO  782 
000860 ILINKHO  783 
0G086Q2LINXHO  T84 
00G86Q3LI NKHO  735 
0008604LINKHO  786 
0008605LINKHO  787 
OOO86O6LINKHO  788 
0008607LINKHO  789 
OOO86O0LINKHO  790 
0008609LINKHO  791 
000861 OLINKHO  792 
000861 JLINKHO  793 
OOOS612LINKHO  794 
OOOS613LINKHO  795 
0008614LINKHO  796 
OOO061SLINKHO  797 
OOO0616LINKHO  798 
0008617LINKHO  799 
00086 18L I NKHO  800 
0008619L INKHO  801 
0008620LINKHO  802 
00 0362 ILINKHO  803 
0008622L INKHO  804 
OOOS623LINKHO  005 
OOOS624LINKHO  806 
00 08625L INKHO  007 
000 0626 LINKHO  808 
00 08627L INKHO  809 
0008628LINKHO  010 
0008629LINKHO  8ll 
0008630L INKHO  812 
000863 ILINKHO  01'3 
0008632LINKHO  814 
00 08633 LINKHO  315 
00 08634 LI NKHO  816 
OOOS63SLINKHO  817 
0008636LINKHO  018 
0008637LINKHO  819 
00 08638 LINKHO  820 
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EUPCN ( X 1 384 ) -ONE  ( 1 » 384 ) -RUPcn ( 1 1 38* ) 

EUPCN  <113841 *£UPCN 1 1 ¥ 384) *BTOP (NG*384* 11384) 

C 0£N0«  I , 0**PUPCN*RqNCN 

XU II 384)  *RUPCNUl3e&)*R0NCN(ll384) 

0ENO(l  1384)  *QN£  [J-l  384) -XI  <1  1304) 

C PEFUPs<EUPCN*EONCN*RUPCN)/DENO 

Xl <ll3a4)*£DNCN( 1*384) *RUPCN(1 *384) 
PEFUP<U384)a£UPCNU  *384) *X1  (1*384) 

PEFUP ( 1 * 304) *PEFUP 1 1 1 384) /DENO (11384) 

C PEFON»tEONCN^EUPCN*RONCN)/DENO 

XI  ( 1 1384)  *El)PCN  (11384)  *RDNCN  ( 1 *384) 

PEFOM t 11384)*E0NCN( 1 I3Q4) *X1 (1*384) 

PEFON ( 1 1 384) -PEFON ( 11384) /OENO (1*384) 

C FIXONG*FLXDNG*CKLAM*pef01vJ 

XI ( 1 1384) *CKLAM*REFON(l 1384) 

FLXDNGd  1384)  *Fi.XOMG(  11384)  *xU  11384) 

C FE  (NG)  *FE  (NG)  ♦CKl.AM*  (PEFUP-FEFON ) 

XI  ( 1 *384)  .PEFUPU  1384)  -PEFDN  ( 1*384) 

XI fl * 384) *X1  ( 1 1 384) *CKLAM 

FE MNG^L)*384*1 1384) »FE((NG-1) *384*1 1384) 4X1 (1 1384) 

C***» 

C****  FORM  BOTTOM  COMPOSITE  LAYER  (AOOITION* 

DO  118  N«2»NG 
M«NG*N*i 

MPTR«(M-1> *384*1 

Xl  U *384)  ■RUPCNU  13841  *REF(MPTRI384) 

DENO (1  1384) »ONE ( 1 1 384 I »X1 ( l t 384 ) 

C EUPCN«EtJP<M)  * (EUPCN^EDN  (M)*RUPCN)  *T0F*(M)/DENO 

Xiai384)»E0N(MPTH*384)#RUPCNU  1384) 

XI  a 1304) *X1( 11384) *EUPCN (1*384) 

Xl < 1*384) «X1 ( 11384) •TDF<MPTft|384)  . 

X 1 ( 1 1 38  4 ) »X 1 (1 1 384 ) /OENO (1*304) 
EUPCN(1I384XEUP(MPTR1384)*X1  (11384) 

IF  <M*£Q«1)  GO  TO  119 

L«m-1 

LPTR-MPTR-384 

C RUPCN*REF (M) *TOF(M) •TOF<M)*RUPCN/OENO 

X 1 < 1 1 38* ) «T0F  < MPTR  * 38* ) *T0F ( mPTR  1 384 ) 

XI ( 1*384) *X1(1 1304) *RUPCN(1 1304) 

XI (1*384) *X1(1I384)/OENO( 1*384) 

RUPCN(  1 1384) j*REF(MPTR*304)  *Xi  ( 1*384) 

C OENO«1.0-RONC<U*HUPCN 

X 1 111 384 ) *R0NC ( LP  TR  * 384 ) *RUPCN (1*384) 

DENO  (1*384) -ONE  (1  *384) -XlU *384) 

C P£FUP*(EURCN*FONC(D*RUPCN>/OENO 

Xl t U 384) -EDNC  < LPT*  1 384) «RUPCN (1 1 384) 

PEFUP ( 1!364)*EUPCN( 1 *38*) *X1 ( l J384) 

PEFUP (1*384) -PEFUP  U 1 384 1 /OENO (1*384) 

C PEFON* (EONC  <U ♦EUPCN*RONC (L) ) /OENO 

Xl ( 1 1 384) -EUPCN (1*384) *RQNC (LPTR 1384) 

PCFON( 1 * 384)-E0NC (LPTR * 38*) *Xl (1 1 384) 

PEFON (1*384) -PEFON (11384) /OENO 11*304) 

‘ GO  TO  120 

119  PEFUP ( 1 *384) -EUPCNl 11384) 

PEFON ( 1I384)*0« 

C§*«* 

C120  FE(M)«FE(M)*CKLAM«(PEFUP-PEFON) 

120  X 1 ( 1 * 384 ) -PEFUP (1*304) *p£F0N (1*384) 

Xl (1 1394) -CKLAM*X1 (11384) 

Ft  (MPTRI384)«FE  (MPTR  *384)  ♦MU  * 384) 

C»««« 

118  CONTINUE 

100  CONTINUE 

200  CONTINUE 

C****  SAVE  STRATOSPHERIC  FLUXES 

RESTR ( 1 1 11S2) »FE( 1*1 152) 

RE(I 13840)  mfti  U53 13840) 

RETURN 

END 


OOO0639LINKHO  821 
0008640LINKHO  822 
0008641LINKHO  823 
OOO8042LINXHO  824 
0008643LINKHO  825 
OOO0644LINXHO  826 
OO0864SLINKHO  827 
OOO0846LINKHO  828 
OO08647LINKHO  829 
OQ08648LINK8O  830 
0008649LINKHQ  831 
0008650LINKHO  832 
OOD8651LINKHO  833 
00086'52LlNt(HO  834 
0008653LINKHO  835 
0008654L1NKHO  836 
OOD8655LINKHO  837 
OOO0656LINKHO  838 
0008657LINKH0  839 
00 08656 LI NX MO  840 
0008659LXNKHO  841 
000866CUNKHO  842 
000866 ILlNKHO  843 
0008662LXNKKO  844 
0008663LINXHO  845 
OOO0664LINKHO  846 
0008665LINKHQ  847 
0008666LINXHO  843 
OOO0667LINXHO  8*9 
OOOQ668LINKHO  850 
0008669LINXMO  851' 
OOO8670L1NKHO  852 
00086I1LINKMO  853 
OOO0672LINKHO  854 
OOQ0673LINKHO  855 
OOOS674LINKHO  356 
0008675LINKHO  857 
OOOS676LINKHO  850 
000 86 77L I NX MO  859 
0008678LINKHO  860 
0008679LINKHO  061 
0008680LINKHO  062 
000868 1LINXMO  063 
0008662LINXHO  064 
OOO0663L1NKHO  065 
0008684LINKHO  066 
0008685LXNKHO  067 
OOOS686LINKHO  868 
0008667LINKMO  069 
OOOS688LXNKHO  870 
0008689LINKMO  871 
0008690LINXHD  872 
OOOA691LINKHO  873 
OOO0692LINKHO  374 
OOOS693LINXHO  075 
OOO0694LINKRO  876 
OOO0695LINKHO  877 
0 OO0696LINKMO  878 
OOO0697LINKMO  079 
OOO069aLlNXHO  880 
OOO0699LINKHO  881 
OOO07OOLINKHO  082 
OOO07O1LINKMO  883 
OOO07O2L1NXHO  884 
0008703LINXHO  885 
OOO07O4LINKHO  886 
OQO8705LINKHO  887 
OOO07O6LINKHO  80S 
OOO07O7LINKHO  889 
0008708LINKHO  890 
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APPENDIX  C 


.SINGLE,  SIMPLE  LOOPS  OF  SPECTRAL  MODEL 


subroutine  xigenr 

DOUBLE  PRECISION  VOERIV ,XO£RI V , #,0X03DT 

COMMON  /CONSTS/  INDEX , NR, LR ♦ INS  * INSZ«KINT, ILEV1 » ILEV2 ,NVERT , 
I NRTP,LRTP,NTYPEtNVECT«NVREAL»NVZON«NCYC»DT»YRLAG»TIME 
COMMON  /QJBLK/  NZJ»L103 

COMMON  /DERIV/  VDERIV (2366) »XOERIV (2366) tW (2366) 

COMMON  /GENER/  OX03dT(2366) 

IL3(H03«l)*NVREAL*l 
IHoNZJ»NVREAL 
DO  200  I=IL.IH 

200  XDERI V ( I ) aXOERI V ( I ) *0X0301 ( I ) 

return 

end 


SUBROUTINE  0XT003.(  II » 12) 

' DOUBLE  PRECISION  P,Z,ZI ,T.Z2*X3 
COMMON  P (2366) »Z(2366) ,Zl (2366) »T(2366> *22(2366) *X3(2366) 
C0MM0N/030X/  03XFAC  l?400) *03Xc0N £2*00) 

C0MM0N/SPECIE/X3GR0 (6240) 
common/ftcst/nlon.nlat.ngrio 
COMMON/CONSTS/L (13) *NVREAL 
DIMENSION  OAtAIM (2400) 

NLEV»I2-I1*1 

ILSPC* ( I 1- l ) *NVREAL* 1 

ILGRD*(I1-1)»NGRID*I 

CALL  SPCGOl (X3 ( ILSPC) *X3GR0 < ILGRO) *DATAIM»NLEV) 

N«I2*NGfllO 
DO  100  J*IL6R0*N 

100  X3GR0(U)*(X3GR0(J)-03XC0N(J) )/03XFAC(J) 

CALL  GDSP  1<X3(ILSPC) .X3GR0(ILGRD) .nATAIM,NLEV) 

RETURN 

ENO 
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APPENDIX  D 

PARTIALLY  RECODED  SUBROUTINES  OF  SPECTRAL  MODEL 


SUBROUTINE  CORFOH  — 

DOUBLE  PRECISION  p»z,zi»t»Z2*cf«xl 

COMMON  P(2366) .Z (23*6) ,Z1 (2366) »T (2366) *Z2(2 366) 

COMMON  /CONSTS/  INDEX, NR,LR*INS,INSZ,KINTtILEVl, JLEV2.NVERT* 
l NRTp,LRTP»NTYPEfNV£CT,NVREAL*NVZON,NCYC.OT 
COMMON  /C6BLK/  KO < 43) ,CG ( *3) ,NCOMP (12) »LWAVC (12) «NV (43) »LV (43) 
COMMON  /OERIV/  CP (2366) 

DIMENSION  DUM<43) 

DATA  NW  /0/ 

NZl*NVZON*l 
DO  300  JJ*NZ1,NVECT 
0*2*00*NVREAL« ( ILEVl-2) -NZl 
XL*LV(JJ> 

DO  200  I*ILEV1 , ILEV2 

o*o*nvheal 

01*0*1 

CF(J)«Xl»P(v)1> 

CF(01>*-*L*P<0) 

200  continue 
300  continue 

IF  (NW.gQ.O)  RETURN 
ILEV»(ILEV2«ILEVI)/2*1 
JMPaNVREAL* ( ILEV^l ) 

WRITE  (6*1000)  ILEV 

1000  FORMAT  (1H0, 10X,  *TE<?T  cORfOR  ENERGY  CONSERVATION  FOR  LEVEL  »*I3/) 
00  510  jal.NVZON 
JL=U*JMP 

blO  OUM (0) *»«5#P (OL) *CF ( JL) 

00  530  J=NZ1,NVECT 
0R*2*0-NZ1*0MP 
OI*OR* 1 

530  OUM ( J) a«p ( JR ) *CF ( JR) «P (01) *CF (01) 

SUM*0, 

DO  540  0*1 *NVECT 

540  SUM»SUM*0UM(0) 

WRITE  (6,1010) 

1010  FORMAT  (1H0,10X,'PSI(I)  ,CFU)  ,0KE(I)  **/) 

DO  5S0  I*l,NVZON 
0»I*0MP 

WRITE  (6*1015)  I,P<J) ,CF(J) *DUM(I) 

1015  FORMAT  (5X,IS,E1S,6»15X,E15.6»15X,E15.6) 

550  CONTINUE 
KaNVZON 

j DO  600  I*NZI,NVREAL*2 

1 1*1 *JMP 
• 0*11*1 
KaK*l 

WRITE  (6.1020)  I»P(II),P(O)*CF(II)*CF(O).0UM(K) 

1020  FORMAT  (5X,I5*5E15.6) 

600  continue 

WRITE  (6,1030)  SUM 

1030  FORMAT  (lHO,IOX,*TOTAt.  OKg  * »,ei5*6) 

RETURN 

END 
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subroutine  vcorfor 


» 

# 

J*NVZON«X 

I DO  300  JJ«NZ1,NVECT 

J»J*2 

XU»LV(JJ) 

DO  200  I*ILEV1,ILEV2 
CF ( J» I ) *XL*P  < J*I * I ) 
CF(J*1»!)»-XL*P<J»I) 
.200  CONTINUE 
> — 300  CONTINUE 
RETURN. 

ENTRY  CORFORO 

NZ1»NVZ0N*1 

RETURN 

end 
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SUBROUTINE  FRICTN 
DOUBLE  PRECISION-  P»Z,FJ»eF 
COMMON  P (2366) *Z (23*6) 

COMMON  /CONSTS'/  IN0£X,NR»LR*INS»INSZ»KINT*ILE.Vl.ILEV2,NVERT.t 
1 NRTP'oLRTP  * NTYPE.  NVECT.,  NVREAL  • NVZQN, NCYC  « DT 

COMMON  /CGBLK/  KD  (43)  ,C6<a3)  tNC0MPU2)  »LWAVE<  12)  ,NV-U3)  »LV<*3> 
COMMON  /VRTBLK/  ZVAL126) *PVAL<26) *VWT(26) »OZ#RV 
COMMON  /DERIV/  CF  (2366') 

COMMON  /BARBLK/  TBAR  (26)  »SlSMA<26)  ♦ XIBAR'(26).*0IFFM  (26)  oDIFFX<26) 
DIMENSION  FJ<26> 

R2sRV-I. 

R2»l./«2  ' 

R1*RV*R2 

IL1P1»ILEV1*1 

IL2P1*ILEV2*1 

F«J(  I)  «0»D0 

DO  300  J»1«NVREAL 

J«J®  ( ILEVl-1)  *nvreal*j 

DO  100  I*IL1P1.ILEV2 
J2*J1 

J1»JI*NVREAL 

100  FJ<I>*DlFFM<i)*(Z<UlW<J2> ) 

F J ( IUSP l ) »-0 I FFM (I L 2P 1 ) *Z ( wl 1 > 

JJsjj.NVREAL 

DO  200  I>ILEVl.ILEV2 

JsJ*JJ*NVREAL 

200  CF(JJ)»CF(JJ)*Rl*Fg(I*l)-R2*FJ(I) 

300  CONTINUE 

return 

END 


SUBROUTINE  VFRICTN 


• 

FJ  ( 1 ) *0 , 

00  300  JsltNVREAL 

DO  100  I»IL1P1«ILEV2 
•FJ(n»oiFF«(X)*(Z{u*i)-Z(j*r-i) > 

100  CONTINUE 

F J ( IL2P 1 ) *-D IFFM (IL2P 1 ) *Z  < J » II.EV2 ) 
DO  200  IslLEVl,ILEV2 

CF(J»I>*CF(J«I)*Rl*FJ(I*l)»ft2*Fum 
200  CONTINUE 
•300  -CONTINUE 
RETURN 

ENTRY  FRICTNO 
R2»RV-1. 

R2«l./R2 

R1«RV«R2 

IL1P1«ILEV1+1 

IL2P1»ILEV2*1 

return 

END 
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SUBROUTINE  MJA8  (PfTtOER) 

DOUBLE  PRECISION  P*T»  A,'C»F  1B»FH»  ClND»FR,FI  *FlA»FlBf  FlC*F-lD 

DOUBLE  PRECISION  DEP 

COMMON  /COFBLK/  C(3800) * IS ( 1500) 

COMMON  /CONSTS/  INDEX, NR, LP« INS* XNSZ»KINT» ILEV],, JLEV2»NVERT» 
l NRTP»LRTP*NTYPE»NVECT»NVREAL»NVZONeNCYC»OT 
. C0MM0N/PKBLK/NS,N1»N2»N3,N4,LS»H»L2«L3»L4 
COMMON  /WORKBK/  A (2366) 

DIMENSION  Pa)*r<l)»OER(l) 

DIMENSION  FR (26) »FI (26) 

CALL  DZEPO- (A) 

INOEX.O 

KLOW«(lLEVI«l)*KINT 

INSZ1*INSZ«'1- 

DO  400  K«1 * INSZ 

LS*IS(KV 

CALL  UPACK 

NAI*Nl*Nl-NR«l 

NAR*NAI-1 

N8I«N2*N2-NR-1 

N8R*N8l-l 

KI*KLOW 

DO  S JsJLEVl » ILEV2 
NAR*NAft*Kl 
NAl*NAX«Ki 
nbr«nbp«ki 

NBI»N8I«KI 

FR  <J  > • P(NAR)*T(NBl)-P(NAl)*T(NBfi) *P(N8R) *T (NAI) -P (NBI ) *T (NAR) 
K1»KINT 

S continue 

DO  100  I»N3,N4,2 
INDEXalNDEX*! 

CINDaC ( INDEX ) 

K1»KL0** 

• 00  75  UsILEVl « ILEV2 

A(I*K1)«a(I*KI)>FR(J)#CIN0 
K1»K1*KjnT 
75  CONTINUE 
100  CONTINUE 
400  continue 

DO  500  KalNSZItINS 
LSalS(K) 

CALL  UPACK 
Kl«KLOW 

IF  (N1»LE»NRM>  GO  TO  40 
IF  (N2.LE»NR*1)  GO  TO  50 
NAI*N1'*N1-nr-1 
NARaNAl-1 
NBIaN2*N2-NR-l  . 

. NBR«N8t-l 

DO  35  J»  I LEVI,,  I LEV  2 
NARsNAR+Kl 
NAIaNAUKl  - 
N8R*N8Rt.kl 
NBlaNBUKl 

FlAaP(NAR)*T(NBI),-P(N8I)-«T(NAR) 

F18»P (NAI ) *T (NBR) -P(NBR) *T (NAI ) 

FlCsP.(NAR)  *T  (N8R)  -P(NBR)  «T(NAR)' 

F10»P(N^I)*T(NBI)-P(NBI)«T(NAI) 
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10 


IF  (NS-1)  10*20*30 
FIRm-FIA-FIB 
FlIsFlC-FlD 
00  TO  33 
20  F1R«-F1A*F1B 
FI I«F1C*F ID 
GO  TO  33 
30  FlR»FlA-FlB 
. F1I»F1C*F10 

GO  TO  33 
.33  CONTINUE 
FR  »F 1R 
FI(J)«F1I- 
•KlaKINT 
35  CONTINUE 
GO  TO  160 

♦0  NBI»N2+N2-NR-1 
NBR«NBI-1 
NAI«N1 
NAR»N1 
GO  TO  60 

• 50  NAR»N1*N1-NR-1 

NAI«NAR-1 
NBRmN2 
NBI*N2 
GO  TO  60 
60  CONTINUE 

DO  150  J*ILEV1-.ILEV2 
NARsNAK*K1 ' 

NAI«NAI*K1 

nbrmnbr*ki 

NBI»NBI*K1 

F1R«"P (NAK) *T (NBI > + P (NBI ) »T (NAR) 
FI  ImP  (NAI ) *T  (NBR)  -P  <NBR>  *T.<NAI  ) 
GO  TO  80 
80  CONTINUE 
FR(J)mF1R 
FI  (<J)  mFI  I 
KImkINT’ 

150  CONTINUE 
160  CONTINUE 

NGI«N3>N3-NR-1 
DO  200  ImN3*N4*2 
NGRmNGI-1 
INDEXmINDEX+1 
CINDmC(INDEX) 

KImKLOW 

DO  175  J*ILEV1,ILEV2 
A (NGR+Kl ) «A (NGR*K 1 ) *FR ( j) *ClND 
A{NGI*Ki)mA<NGI*K1>*FI (J)*CIND 
K1mK1*KjnT 
175  CONTINUE  * 

NGI»NGl+4 

200  continue 
500  .continue 

IL* { IUEVl-1 ) *NVREAL*i 
IHmILEV2*NVREAL 
DO  600  JmIL* IH 
600  DER ( I ) »DER ( I ) ♦ A { I ) 

RETURN 

END 
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SUBROUTINE  VMUAB (P»T»OER) 


0 

© 


© 

CALL  OZgRO(A) 

XNOEXwO 

>.  DO  400  KaltINSZ 
LS*IS(K) 

CALL  UPACK 

00  5 J»ILEVI,ILEV2 

FR  (d)  *P  (NAR»  J)  *T  (NBI  * J)  -P  (NA|„  J)  *T  (NBR* J) 

1 ♦P(NBR»d)#T<NAI,j)-p(NBl»J)«T<NARf J) 

S CONTINUE 

i 00  100  I*N3tN4»2 

INOEX*lNOEX*l 
00  ?S  J*ILEV1,ILEV2 
A(I«J)*A<I»J)*FR(J)*C{ INDEX) 

75  CONTINUE 
1 — 100  continue 
400  continue 

DO  500  K»INSZ1 « INS 
LSsIS(K) 

CALL  UPACK 

DO  35  J«ILEVI»ILEV2 

' FlA{J)*P(NARtJ)*T<NBl,J)-p<NBI,J)*T(NAR,J) 
F18<J)3p(NAItJ)»T{NBR,J)-P(NBR»d»«f(NAItd) 
FiC ( J) »P  <NAR»J) *T (NBRf J) «p  <NBR> J)  *T (NAR* J) 
F10 { J) *P (NAI »JJ  *T (NBI » J) »P (NBI »J)#T(NAIfJ) 

10  continue 

FR<d)ai-FlA{J)-FlBCd> 

FI(J)«FlC<U)-F10(vJ» 

35  CONTINUE 
NGIaNGl 0 

| 00  200  I=N3*N4»2 

NGRsNGI-1 
IN0EX*IN0EX*1 
DO  175  JalLEVl* ILEV2 
A{NGRtJ)t*A(NGR»J>  *Fp  (J)  #C  ( INDEX ) 
A(NGI,U)sA(NGI»J>  ♦Fi:(J)#C( INDEX) 

175  CONTINUE 
NGIsNGl'«4 
•-—200  CONTINUE 
500.  CONTINUE 

I DO  500  Ial.NVREAL 

DO  600  J“ILEV-1,ILEV2 
DER  { I »J)  aiDER  <1 » J)  *4Utd) 

‘—600  CONTINUE 
RETURN 

ENTRY  mjabo 

INSZt*lNSZ*l 

NAI»N1*NI-NR*1 

NARaNAl-1 

NBI*N2*N2~NR»l 

NBRsNBl-1 

NGI0*N3+N3-NR-1 

RETURN  , 

END 
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SUBROUTINE  RGAMMA  (N) 

double  PRECISION  P»ZETA»Zl *TtZ2»OGtEG»D0CGtEGCG 
DOUBLE  PRECISION  EVECT«Xt.I VET.EVALf VDERlV»TDE«IV,Rt AG 
DOUBLE  PRECISION  A 

- COMMON  P(2366)  »ZETA  (2366)  »Z1  (2366)  »T(2366UZ2  (2366) 

.common  /consts/  index-,nr,lR»ins»insz.kint»ilevi,ilev2»nvert, 

1 NRTPtLRTP»NTYPEfNVECT.NVREAL»NVZON,NCYC*DT 
COMMON  /CGBLK/  KD (43) tCG(43) *NC0MPJ12) »LWAVE(12> ,NV(43) »LV(43) 
COMMON  /DERLK/  DG(43>  ,EG(a3)  tDGCG(43)-»EGCG(43) 

COMMON  /.VRTBLK/  ZVAL  (26)  ,PVAL  (26)  *VWT  (26)  ,DZ»RV 
COMMON  /UERIV/  VOERI'V (2366)  * TDERIV (2366)'*W ( P>366) 

COMMON  ,/WORKBK/  R (2366)  ♦ AG  (2366). 

. DATA  NX  /0/ 

■A»- (N-l  .DO ) / (NCYC«DT) 

RVM1«RV-I. 

• IH*ILEV2*NVREAL 

IL«(ILEVi-l)*NVREAU+l 
• IF  (N.GT-.1)  GO  TO  75 
DO  50  I«IL.IH 
J»I-NVREAL 

AG(I)»VdERIV(J)-VD£RIVU>  ... 

R(I>*-TdERI-V(I)*DZ 
50  CONTINUE 
GO  TO  11 0 
75  CONTINUE 

DO  100  I*IL»IH 
Jal-NVREAL 

>AG ( I > aVOERI V ( J) -VOERI V ( I ) *A* (Z1 ( J) -Zl ( I ) ) 

R tl )»- (TDERIV ( I ) *A*Z2 ( I) ) *0Z 
100  CONTINUE 

no  continue 

NVZl»NVZON*l 

DO  200  JJ«2tNVZ0N 

JSV«jj*NVREAL*(ILEVl-2) 

IF  (JJ.EQ.2)  GO  TO  150  ' 

F»-DGCG(JJ)/CG(UJ) 

JaJSV 

DO  125  "I*ILEV1 1 ILEV2 

J*J*NVREAL 

J1*J-1 

-R(J)*R(J)*F*AG(J1) 

125  CONTINUE 
150  CONTINUE 

IF  (JJtEQrfWVZON)  GO  TO  200 
JaJSV 

F»EGCG(JJ)/CG.(JJ) 

DO  175  I*ILEVl,ILEV2 
U-J4NVREAL  . 

Ji»J*l 

R(J)»R(J) ♦F*AG{J1) 

175  CONTINUE 
200  CONTINUE 


Jd*NVZON 

00  500  L»1*LR 

NC*NC0MP(U*1) 

IF  (NC.UE.O)  SO  TO  500 
DO  450  NN«1*NC 

dSV»2*Jj*NVREAL*  MUEV 1-2) -NVZON-1 
IF  (NN.EQ.l)  SO  TO  300 
F»-03CS(Jd)/CG{JJ) 

JR«USV 

00  250  I*ILEV1»ILEV2 
JR«vJR*NVREAI. 

JIsJR*l 

JlRaJR-2 

dII*dlR*l 

R(JR)*R(JR)*F*AG(J1R> 

R(UI)»H{JI>*F*AG(J1I> 

250  CONTINUE 

300  continue 

IF  (nn.eq»nc>  GO  TO  500 
UR»JSV 

FaEGCG(JJ)/CG(JJ> 

00  400  I*IL,£V1,ILEV2 

JR»JR*NVREAL 

JI*«JR*l 

J1R*JR*2' 

dlI*dlR*l 

R (JR)  sR  (JR)  ♦ F*AG(«JiR) 

R(JI)»fl(dI)*F*AG<dlI> 

400  continue 

450  CONTINUE 
500  CONTINUE 

DO  600  I*IL • IH 
R ( I ) *RVM1#R ( I ) 

600  CONTINUE 

IF  (NW.EQ.0J  RETURN 
WRITE  (6*1000)  ILEV1.IUEV2 

1000  FORMAT  <1H0«10X»*I  « R(*»l2»'*>  . R(**I2.»)  *♦/) 
Jl»NVREAL*(ILEVl-l) 

J3-NVREAL* < ILEV2-1 > 

DO  700  I»1.NVZ0N 

J1»J1*1 

J3*J3*1 

WRITE  (6.1010)  I.»  H(Jl)»R(d3) 

1010  FORMAT  <1X»I10*020.10.20X. 020.10) 

700  CONTINUE 

NZ1*NVZ0N«1 

DO  800  I«NZ1,NVREAL»2 

J2*J1*1 

J3«J3*1 

J4»d3*l 

WRITE  (6*1020)  I*R(J1) *R(j2) *R(J3> *R(J4> 

1020'  FORMAT  <1X. 110*4020. 10) 

Ji«dl*l 
J3«U3*1 
800  CONTINUE’ 

RETURN 

END 
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SUBROUTINE  VRGAMMA (N ) 


IF  <N.GT,1)  GO  TO  75 

j DO  50  J«1»NVREAL 

DO  50  I«ILEV1»ILEV2 
•AG  ( J»  I-)  aVOERIV  ( 1-1 J -VDERI V ( J»  I ) 

R{JiI)k-TOERIV(J»I)*DZ 

1 50  CONTINUE 

GO  TO  110 
75  CONTINUE' 

I DO  100  J»1  «NVREAL 

DO  100  I*ILEV1 * ILEV2 

AG(J,I)«VDERIV(J,I-l)ivDERlV(J,I)*A(N)#«Zl(J*I-l)-Zl(d»in 
R(Jt  D «-(TDERIV  ( J* I A (N)  *Z2  ( J*  I ) )*DZ 
— 100  CONTINUE  • 

110  CONTINUE 

I DO  200  JJ»2*NVZON 

DO  165  XcILEVl * ILEV2 
R(JJ»I)*R<JJtI)*FCJJ>*AG<JJ-l*I> 

165  CONTINUE 

1 — 200  continue 

DO  500  JJ=NZ1*NVECT 

J*2*JJ-NZ1 

DO  ,350  I*ILEV1 »1L£V2 
R(J»I)*B(J»I)*F ( JJ>  *AG ( J-2»I ) 

R ( J* 1 » I ) *R  t J*1 • I ) ♦£ ( JJ) *AG ( J-l * I ) 

350  CONTINUE 
*—500  CNMSIMTe 

► DO  600  I*IL*1H 

R { I ) aR ( I ) *RVH1 
600  CONTINUE 

RETURN 

ENTRY  rgammao 

NZ1*NVZ0N+1 

F(2)»EGCG(2)/CG(2) 

DO  1 JJ*3»NVZ0N-1 
F C JJ) * CEGCG ( JJ) -DGCG { JJ) ) /CG( JJ) 

1 continue 

F(NVZON)*-DGCG(NVZON)/CG(NVZON) 

JJsNVZON 
DO  3 LS1 *LR 
Jjajj*l 

F ( JJ) *EGCG( JJ) /CG ( JJ) 

DO  2 NN*2»NC-1 
JJaJJ*l 

F < JJ) » CEGCG (JJ) -DGCG ( JJ) ) /CG ( JJ) 

2 CONTINUE 
JJ»JJ*1 

F { JJ) a-DGCG ( JJ) /CG  C JJ) 

3 CONTINUE 

DO-  4 I»1  f NCYC 
A ( I ) a ( 1 , -I ) / (NCYC*OT ) 

4 CONTINUE 
RVM1*RV-1. 

IHsiLEV2«NVREAL 

IL*(ILEV1-1)«NVREAU*1 

NCaNC0MFC2) 

RETURN 

END  ' ’ ____ 
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SUBROUTINE  WPIELO 

DOUBLE  PRECISION  OG,EG*OGcG*EGCG»WtWTERM,El *E2«F1 tF2»F3.F4- 

double  precision  voeriv,tderi.v 

COMMON  /CONSTS/  IN0eX#NR,LR»INSf-INSZ»KINT*ILEVl»ILEV2»NVERT» 

1 NRTP,LRTPtNTYPE,NVECT»NVREAL»NVZON,NCYe»DT 
COMMON  /cGBLK/  K0(ft3)  f CG  (*3)  .NC0MPU2)  »LWAV£(12>  *NV (43) »LV (43) 
COMMON  /OE8LK/  09(43) »EG(43)  tDGCG (43)  *E0C9{43) 

COMMON  /'VRTBLK/  ZVAL (26) f PVAL (26) » VWt (26) «OZ»RV 
COMMON  /OERIV/  VDERIV (2366) tTOERIV (2366) »W(2366) 

COMMON  /W0RK8K/  HTERM(2366)- 
CALL  DZERO  (WTERM) 

E2»1.00/(RV-I,00) 

E1»RV*E2 
NVZl«NVZON*l 
00  200  jJ«2tNVZ0N 
JSV»gj*NVREAL*(ILEVl-2) 

■ IF  (JJ»EQ»2)  GO  TO  100 
Fl*E2*QGC®(dd> 

F2«El*DQCG(dd) 

d«dSV 

00  50  IsILEVl » ILEV2 

j*j*nvreal 

Jl»d«l 

J2*J1+NVREAL  - 

WTERM (d) »P1*W (dl ) «F2*W ( J2) 

50  CONTINUE 

100  continue 

IF  (JJ.EQ.NVZON)  GO  TO  200 
d*dSV 

F1»E2*EGCG(JJ) 

F2»El*£GCG(dd) 

00  150  I^ILEVl »ILEV2 
• JsJ*NVREAL 
dl«d*i 

d2»dl*NVREAL 

WTERM (d>  «WTERM (d) -Fl*w (dl ) *F2*W (d2) 

150  CONTINUE 

200  continue 

dd»NVZON 

DO  500  L*1»LR 

N«NC0MP(L*1) 

IF  (N.LE.O)  GO  TO  500 
00  450-  NN«1»N 
dd*dd*l 

dSV*2#dd*NVREAL*  ( ILEV1-2)  -NVZ0N<=1 
IF  (NN*E0*1)  00  TO  300 
Fl»E2*0GC0<dd) 

F2*El*0GCG(dd)  • 
dRwdSV 

DO  250  I«ILEV1,ILEV2 
• dR*dR*NVREAL 
dI»dR+l 
dlR«dR-2- 
diI»dlR4I 
d2R*dlR*NVREAL 
d2I*d2R*l 

WTERM (dR>  *F1*W (dlR) -F2*W (d2R) 

WTERM (dl ) »F1#W (d 1 I ) -F2*W <d2I ) 

250  CONTINUE 
300  continue 
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IF  (NN.EQ.N)  GO  TO  500 
JRsJSV 

Fl*E2*EGCeiJJ) 

F2=E1*EGC6(JJ) 

DO  400  I«ILEV1.ILEV2 
JR«JR*NVREAL 
JlaJR+l 
J1R«JR*2 
J1I«J1R*1 
J2R*J1H*NVREAL 
. J2I«J2K+i 

WTERM(JR)»WTERM(  jR)-Fl*W(jlR)+'F2*W(J2R) 
WTERN { JI ) *WTERM ( JI > -F 1#W ( jl I ) +F2*W  < J2I > 
' 400  -CONTINUE 
450  continue 
500  CONTINUE 

IL* ( ILEV1-1 > *NVREAL*1 
IH»ILEV2#NVREAL 
DO  600  I«IL»IH 

. 600  VD£RIV(I)*VDERIV(I)*«TERM(I) 

RETURN 

END 


SUBROUTINE  VWFIELD 


• 

f 00'  200  JJ*2tNVZ0N 

DO  165  t®ILEVl»ILEV2 

WTERM(Jj»I)»Fl  !♦!) 

165  CONTINUE 

‘*—200  continue 

r- DO  .500  JJ»NVZ1»NVECT 

J»2*JJ-NVZ1 

DO  360  r«It£Vl,ILEV2 

WTERM  < J » X ) »F 11 J J ) »*  < J-2  > I ) -F2  < J J ) »W<  J-P ♦ I ♦ 1 > 
WTERM  ( J*  i ♦ I ) =F  1 ( J J)  *W  ( Jo  1 « I ) -F2 ( JJ)  *W  < J«>1.»  I ♦! ) 
360  CONTINUE 
500  CONTINUE 

— ►DO  600  I»IL* IH 

VDERIV C I ) sVOERI V (I ) ♦WTERM  < I ) 

600  CONTINUE 

return 

entry  wfieldo- 

NVZlaNVZON+1 

E2*1./(RV-1.) 

E1*RV*E2 

F1C2)«-E2*EGCGC2) 

F2(2)*-El*EGCG<2) 

DO  1 J»3,NVZON«l 

F1CJ)»£2<MDGCG<J)-£GCGCJ>) 

F2(J)«El*<DGCG<J)-EGCG<J)) 

1 continue 

F1(NVZ6n)»E2#OGCG<NVZON) 

P2  <NVZ0N) *E1*0GCG (NVZON) 

JJ»NVZON 
DO  3 1*1 »LR 
JJsJJ+1 

FU  JJ)  «*E2*£GCG  ( JJ) 

F2(JJ)»-E1*EGCG(JJ) 

DO  2 NN«2tN»l 
JJ*JJ+1 

FI(JJ)*E2*(DGCG{JJ)-EGCG(JU) ) 

P2  ( JJ) *El*  < DGCG ( JJ ) -EGCG < J J > ) 

2 CONTINUE 
JJ*JJ*1 

F1(JJ)*E2»06CG(JJ> 

F2 ( JJ)*El*DGCG { JJ) 

3 CONTINUE 
IL*<IL£V1-1)*NVREAL 
IH»ILEV2*NVREAL 
RETURN 

END 
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SUBROUTINE  stable 

DOUBLE  PRECISION  W»«;TABW,Ft VOERIVtTDERlV 

COMMON  /CONSTS/  INDEX, NR, L«»INS,INSZ*KINT»ILEVltILEV2tNVERT. 
1 NRTP ,LRTP ,NTYPE , NVECT , NVREAL ,NVZON,NCYC  »DT 

COMMON '/VRTBLK/  ZVAL(26) ,PVAL(26> tVWT(26> *DZ»RV 
COMMON  /BARBLK/  TBAR(26) ,SIGMA(26) ,XIBAR(E6) 

COMMON  /OERIV/  VDE*lV (2366) »TOERIV (2366) ,*(2366) 

COMMON’  /WORKBK/  STAB* (2366) 

00  200  . I*ILEV1,ILEV2 
JJ*(I-1)*NVREAL 
•T«-SIGMA(I) 

.00  100  J«1»NVREAL  - ■ 

KaJJ+J 

STABW(K)*F*W(K) 

100  CONTINUE 
200  CONTINUE 

IL» ( ILEV1-1 ) *NVREAL* 1 
IH«ILEV2*NVR£AL 
DO  300  I«IL»IH 

300  TDERIV(I)»TDERIV(I)*STABN(I) 

•return  - 

END  * . _ 


SUBROUTINE  VSTABLE 


DO  300  I*ILEV1,ILEV2 

Fa-SISMAd) 

DO  300  J*l, NVREAL 
STABW(J,I>aF*#(J,I) 

. TDERIV<J,I)«TOERtV(J,I)+STABW(J,I) 

300  CONTINUE 

RETURN 

END 
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100 


200 


250 

300 


SUBROUTINE  DIFFXI 

DOUBLE  PRECISION  P»Z,«Zl »T.Z2f X3»Z3 

double  precision  voeriv»xderiv»w,gj 

DOUBLE  PRECISION  DUM 


COMMON  P (2366) »Z(2366) tZl<2366>  »T(2366> »Z2(2366>  »X3<2366) *Z3(2366) 
COMMON  /OONSTS/  IN0pX»NR »lR»TNS» INSZbKINT » ILEVJ « ILEV2bNVERT* 

1 NRTp , LRTP  * NTYPE » NVECT ♦ NVREAL » N VZON  » NCYC » DT 

COMMON  /BARBLK/  TBAR(36) »SIGMA(26) »XIBAR(26) eDIFFM (26) dDIFFX<26) 
COMMON  /OERXV/  V0ERIV(2366).»X0ERIV(2366)»W(2366) 

COMMON  /VRTBLK/  ZVAL (26) »PVAL (26) i VWT (26) *OZiRV 
COMMON  /QJBLK/  NZJ»L103 
DIMENSION  SJ(26) 

R2»RV-1« 


R2*i«/R2 


R1»RV*R2 

L103MI«L103-1 

IF  (L103Ml.LE«0)  L103M1.1 

DO  100  I*T»L103 

SJ(I)»0,DO 

DO  300  J« l » NVREAL 

UJs(L103Ml«l)*NVREAL*J 

J2*dd 

DO  200  I*L103M1.ILEV2 
Jl»J2*NVREAL 


GU(I)s0lFFX(I)*(X3(Jl).X3(J2) ) 
J2*J1 

continue 

JJ* (L103-2) *NVREAL*U 
DO  250  I«L103,ILEV2 
JJ*JJ*NVR£AL 
DUM»R1*gj ( I) -R2#GJ ( 1-1 ) 

XDERIV  < JJ) *XOERIV (JJ) *DUM 

CONTINUE 

CONTINUE 

RETURN 

END 


SUBROUTINE  VDIFFXI 


►DO  100  I»ltH03. 

GJ  ( 1 ) oO , 

100  CONTINUE 

I — DO  300  J*1  »NVREAL 

DO  200  I »L 1 0 3M 1 * I LE V 2 

GJ  ( 1 ) »OlFFX  (I)»(X3(J*I*1)  -X3  ( J*  I }.) 

200  CONTINUE 

DO  2S0  IbL103»  JLEV2 

' XOERI V (J* I ) »XDERI V ( J. I ) *Rl*GJ ( I ) -R2*GJ ( 1*1 ) 
. 250  CONTINUE 

1 — >300  CONTINUE 
RETURN 

ENTRY  DIFFX10 
• R2-RV-1, 

R2*l./R2 

R1»RV#R2 

L103M1*L  1.03-1 

IF  (L103M1.LE.O)  L103M1»1 

RETURN 

END 
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SUBROUTINE  -WADVXI 

DOUBLE  PRECISION  P»Z»Z1,T,Z2,x3*Z3 

DOUBLE  PRECISION  V0ERIV,XDERlV»WtWDX3DZtWXJBAR 

COMMON  P ( 2366) »Z(2366) »Z1 (2366) »T(2366) iZ2(2366) »X3<2366) »Z3(2366) 
COMMON  /CONSTS/  INDEX»NR»LR*INS.INSZ»KINT»ILEVltlLEV2»NVERT» 

1 NRTP ,LRTP  »NTYPE ♦ NVECT  »NVR£AL»NVZON,NCYC  » DT 
COMMON  /DERIV/  VDE«IV(2366) tXDERIV (2366) »W(2366> • 

COMMON  /VRTBLK/  ZVAL<26> »PVAL(26> «VWT(26) »DZ*RV 
COMMON  /QJ8LK/*  NZJ*L103 
COMMON  /WORKBK/  -W0X30Z (2366) 

DIMENSION  WXJBAR (26) 

DZ2«2.*0Z 

R2"RV«1. 

R2»l./R2 

R1»RV»R2 

DO  200  I»Ll03fILEV2 
JU»(I-I)*NVREAL 
IL*JJ-NVREAL*1 
IHbJJ*NvREAL+1 
F»  (X3  ( Ih)  **X3  ( IL>  > /0Z2 
DO  100  J«2»NVREAL 
. K*JJ+ J 

WDX3DZ(K)«F*W(K) 

100  CONTINUE 
200  CONTINUE 

NZlsNVZON*! 

IL2P1«ILEV2*1 
DO  250  I«1 t IL2P1 

250  WXJ8AR(I)*0.D0 
IL2M1.ILEV2-1 
DO  400  I*L103« ILEV2 

JJ*(I-1)*NVREAL 
DO  300  j»2*NV20N 

K«JJ+J 

300  WXJBAR  < I ) "WXJBAR (I) *W (K) *X3 (K ) 

DO  350  J*NZ1 *NVREAL»2 

K»JJ*J 

Kl»K  + l 

WXJBAR ( I ) "WXJBAR ( I ) *2.* ( W (K ) «X3 (K) *W (K1 ) *X3 (K1 ) ) 

350  CONTINUE 
’400  CONTINUE 

-IL2P1*ILEV2*1 

CALL  XDERSP  <WXJBAR»L103#IL2P1) 

DO  500  I«L103.ILEV2 
JJ*(I-l)*NVREAL*l 
WDX3DZ ( Jj) "WXJBAR { I ) 

500  CONTINUE 

IL«<L103-1)#NVREAL*1 
IH*ILEV2»NVREAL 
DO  600  I*IL* IH 

600  XDERIV(I)»XDERIV(I)*WDX3DZ(I) 

RETURN 

END 


SUBROUTINE  VWADVXt 


DO  200  I*L1Q3*ILEV2 — , 

DO  100  J»2*NVREAL 
WOX3DZ<Jt  (J»I) 

100  CONTINUE 

200  CONTINUE  * -1 

►DO  250  1«1  • 1L2PI 

WXJBAR (] ) *o» 

250  CONTINUE 

DO  400  I»Ll03*  ILEV2 

DO  300  J*2*NVZ0N 

WXJBAR  < I ) *WX JBAR { I > *W l J« I ) »X3  <0 « 1 1 
300  continue 

DO  350  J*NZ1.NVREAI»»2 

WXJBAR  <I> -WXJBAR  ( I M>2«,*tW(J»I>*X3<JiI>*ta<J*l»I>*X3<J*l.  I) ) 
3S0  continue 

400  CONTINUE 

CALI,  XOERSP (WXJBAR #Ll03» IL2P1 ) 

DO  500  I»L103*ILEV2 
WOX302  < 1 , 1 J *WX JBAR  t T) 

500  CONTINUE 

► DO  600  I*IL» IH 

XOERIV U ) *XDER I V < I ) *WDX3DZ  tl ) 

500  CONTINUE 
RETURN 

ENTRY  waovxjo 
DZ2-2«*0Z 
EZ2«1,/DZ2 
R2-RV-1, 

R2»l«/R2 

RIbRV*R2 

NZ1»NVZoN* 1 

IL2Pl«li.EV2*l 

IL2MI«ILEV2-1 

IL»<L103-l!*NVREAL*l 

IH»ILEV2*NVREAL 

RETURN 

END- 
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SUBROUTINE  03SURF 

DOUBLE  PRECISION  P.Z, Z1  ,.T,Z2,X3»Z3 

COMMON  P (2366) *Z(2366> *Zl (2366) «T (2366) »Z2(2366) ,X3<2366) *Z3(2366) 
COMMON  / ONSTS/  INOEX»NR,LR*INS,INSZtKINT»lLEVl, ILEV2»NVERT» 

1 NRTP ,LRTP , NTYPE  , NVECT  »NVRE AL ♦ NVZON  « NCYCtDT 

COMMON  /8ARBLK/  TBAR(26) ,SIGMA(26) »XIBAR(26>  *DIFFM (26) *DIFFX (26) 
DSURFsDIFFXINVERT) 

JJ« (NVERT-1 ) *NVREAL 
II“JU-NVREAL 
• DO  100  I«1»NVREAL 
JU*UJ*1 
I 1*11*1 

100  X3(JJ)=DSURF*X3(!I) 

RETURN 

END 


SUBROUTINE  V03SURF 


DO  100  I«1*NVREAL 
X3 ( 1 1 NVERT  > «DSURF*X ( 1 * NVERT-1 ) 
100  CONTINUE 
RETURN 

ENTRY  O3SURF0 
DSURF«DIFFX (NVERT) 

return 

END 


SUBROUTINE  STREAM  (n) 

DOUBLE  PRECISION  Z*P.X 
COMMON  P(2366) ,Z(2366) 

COMMON  ✓ GBLK/  KD (43) * CG (43) *NCOMP { 12) *L«AVE ( 12) *NV (43) »LV (43) 
COMMON  /CONSTS/  INDEX* NR, L^» INS, INSZ, KINT * ILEVl » ILEV2* NVfRT ♦ 

1 NRTP, LRTP, NTYPE, NVECT *NVREAL*NVZON*NCYC*DT 
DATA  NW  /0/ 

NVZl*NVZON*l 

DO  200  jJ*2* NVZON 

X*-1,DO/CO(JJ) 

JsJJ-NVREAL 

DO  100  I»ILEV1,ILEV2 

j*j*-nvreal 

P(J)»X*Z(J) 

100  CONTINUE 
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200  CONTINUE 

DO  400  JJ«NVZ1,NVECT  - 
X»-UD0/CG(JJ> 

J»2*JJ*NVREAL*  ( ILEV  1»2)  -NVZON-i 
DO  300  I»IL£W.l  « ILEV2' 

. JaJoNVREAl- 
P <J)  aX»Z ( J) 

U1*U«-  i" 

P<Jl)»X*Z(J.l) 

300  CONTINUE 
400  continue 
NW*0 

IF  (N.EQ.l)-  NWsl 
IF  <NW.EQ.0J  RETURN- 
00  600  j*i-.a 
GO  TO  <450.460) »J 
450  WRITE  <6*1000)  ILEV1 

1000-  FORMAT  <1H0*10X« 'LEVEL  '*l3/llX.*r  » VORT<I)  « PSt(I)  • »/) 
JJsNVREAL*  < ILEV1-1) 

GO  TO  4T0 

460-  WRITE  <6* 1000)  ILEV2 
JJ*NVREAL*(ILEV2-i) 

SO  TO  470 
470  CONTINUE 

DO  500  I»1 »NVZON 

IR*I *JU 

WRITE  (6,1010)  I.Z(IR) ,P<lR) 

1010  FORMAT  <1X. 110*020. C0*20X,D20. 10) 

500  CONTINUE 

DO  5S0  I«NVZ1»NVREAL»2 
IR»I*JJ 

u«ir<i 

WRITE  (6*1020)  I.Z(IR) *Z(ID »R(IR) *P(II) 

1020  FORMAT  <1X,I10,4020.10) 

550  CONTINUE 

600  continue 

RETURN 

END 


SUBROUTINE  VSTREAM 


• 

DO  401  U*2*NVREAL 

00  401  I*ILEV1. ILEV2 
P<J»I)«X(J)*Z<JtI) 

L- 401  CONTINUE 
RETURN 

ENTRY  STREAMO 
DO  200  JU»2»NVZ0N 
•X'<JJ)«-1./CG<JJ) 

200.  continue 

. NVZlaNV-ZON*! 

00  400  JJ«NVZ1.NVECT 
J»2*JJ-NVZ1 
X ( J) ( JJ) 
X(J*l)».l,/CS(JJ> 

400  CONTINUE  . 

RETURN 

END 
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SUBROUTINE  THWIND 

DOUBLE  PRECISION  P» 2ETA*Zl *T*Z2.DG»EG 

COMMON  P (2366) *ZETA(2366)  *21(2366) »T(2366) «Z2(2366) 

COMMON  / ONSTS/  INDEX. NR*LRtlNS»INSZ*KINT.lLEVl*ILEV2*NV£RT* 
l NRTP  »URTP » NTYPE  * NVECT  * NVREAL » NVZON » NCYC • DT 

COMMON  /CGBLK/  KO (*3) .CG (43) tNCOMP ( 12) .LWAVE (12) *NV (43) * LV (43) 
COMMON  /DEBLK/  DO (A3) .EG (43) 

COMMON  /VRTBLK/  ZVAL(26) *PVAL<26> »VWT(26> *DZ*RV 
•COMMON  /BARBLK/  TBAR (26) .SIGMA < 26) .XIBAR (26) 

NW«0 

IF  (ILEV1.EQ.0)  NW«1 
ILEV1*2 

. TLEV2«NVERT-1. 

MEAN  T COMPUTATION. 

J«  ( ILEVl-2)  *NVREAL*  l' 

DO  25  I-ILEV'1,ILEV2 

u«j»nvreal  ' 

25  T-(  J)  »TBAR  ( I ) 

T FROM  THERMAL  -WIND  COMPONENTS. 

NaNCOMP ( 1 ) 

JB*1 

IF  (N.LT-.2)  GO  TO  250 
DO  200  JJ*2«N 
JB*JB ♦ 1 

J*  JB* ( ILEV1-2) *NVREAL 
DUM»DZ*CG(JJ) 

Xi*DG(Jj)/DUM 
X2*EG(JJ)/DUM 
DO'  100  I=ILEVI.ILEV2 

j«j*nvreal 

T<J)*0.D0 

IF  (JJ.OE.N)  60  TO  50 
J2*J*l 

J1»J2-NVREAL 
T(J)*X2^(P(J1)-P(J2) ) 

50  CONTINUE 

J2»J*1 

JI*J2-NVREAL 

T(J)*T(J)-XI*{P(J1)-P(J2) ) 

IOO  CONTINUE 
200  CONTINUE 
250  CONTINUE 
JJ»N 
JB*JB-1 

DO  500  L«ltLR 
N»NCOMP(L*l) 

IF  (N.LT.I)  GO  TO  500 
DO  400  JJJ*1»N 

JB«JB*2 

JR*J8* ( ILEV1-2) *NVREAL 
DUM»DZ*CG<JJ> 

Xl«DG(Uj)/DUM 

X2*E0( JJ)/0UM 

DO  300  I*ILEV1* ILEV2 

JR* JR* NVREAL 

JI*JR*l 

T(JR)«0.D0 

T(JI)»0.D0 

IF  (JJJ.GE.N)  '60  TO  260  • 

J2*JR*2 

JI«J2-NVREAL  , 
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260 


280 

300. 

60Q. 

500 


1000 


1010 

600 


1020 


700 


T(v)R)»X2*(P(Jl  J-P<J2) ) 

J2»U2*1 

J1»J1*1. 

Ttvll.)  «X2* (P ( Jl)  »P ( J2) ) 

continue 

IF  (JJJ.EQ.l)  GO  TO  280 

J2=JR«2 

JlaUa-NVREAL 

T(JR>®T(JR)»X1*(P(J1)-P(J2)> 

J2*J2*i 

Jl*dt«“l 

Tt.gi)-«T{ji)-xi*(P(jij.P(jaj  j 

CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 

IF  CNW.EQ.O)  RETURN 
WRITE  (6,1000)  ILEV1.ILEV2 

FORMAT  (1HO»10X»«I  , T(*»l2»»)  , T(>»12,»)  ■ »/) 
U1®NVREAL*(ILEV1®1) 

J3«NVREAL*  ( IL.EV2-1 ) 

00  600  I»1 »NVZON 

J3»J3*1 

WRITE  <6,1010)  I ,T (Ul) »T ( j3) 

FORMAT  < lX.-IlO,  020. 10.20X,  020,10) 

CONTINUE 
NZ1»NVZ0N* 1 

00  700  I*NZ1»NVREAl»2 

Jl*Ul*l 

J2®J1*1 

J3«U3<-1 

J^bvJ3*  1 

WRITE  (6,1020)  I,T(Jl) ,T(J2) ,T{J3) ,T(J4) 

FORMAT  (IX, 110,6020. 10) 

Jl*vU*l 

J3*J3*1 

CONTINUE 

RETURN 

END 
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SUBROUTINE  VTHWIND 


« 

• 

DO  25  I«ILEV1,ILEV2 
T ( I-*  I ) «TBAR  { I ) 

25  CONTINUE 

| DO  501  J*2»NVREAL 

DO  501  I*ILEVUILEV2 

T t J* I ) *X2 (J) * (P ( J+l»l-l ) -p ( J*i , i) )«xi ( J)* (P (J«i, T 
1 501  CONTINUE-  - 

ENTRY  ThwINDO 
ILEV1«2 
ILEV2*NVERT-1 
NsNCOMP(l) 

DO  200  JJ«2*N 
DUM*OZ*CG 1 JU> 

DUM«l./oUM 
XI (JJ)aDG<JJ) *DUM 
X2  < J J ) *ES  ( J J )‘*DUM 

200  continue 

JJ»N 

X2(N)*0, 

JR»N-1 

DO  500  L»1»LR 

DO  400  JJJ«l»NCOMP<L*l) 

JR*JR+2 

JI=JR*1 

DUM*DZ*CG(JJ) 

DUM*l,/OUM 

XI ( JR) «X1 { JI ) sftG ( JJ) *DUM 
X2 ( JR) *X2( dl )«ES ( JJ) *DUM 
400  CONTINUE 

X2(JR)*X2(JI>*0. 

500  CONTINUE 
RETURN 
END 
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SUBROUTINE  D8HEAT 

DOUBLE  PRECISION  PSI,ZETA,Zl,T»Z2»Q 
DOUBLE  PRECISION  VOeRlVtTDERlVtW 
DOUBLE  PRECISION  TOPO.QSV 

COMMON  PSK2366)  tZETA(2366)  *Z1(2366)  »T<2366>  »Z2(2366> 

COMMON  /CONSTS/  INDEX, NR, LR»INS,INSZ»KINT»ILEVI»ILEV2,NVERT»- 
1 NRTP,LRTP«NTrPE»NVECT,NVREAL«NVZONtNCYC»OT»YRLAG»TIME 

COMMON  /CGBLK/  KO(43) ,CG(43) ,NCOMP(l2) »LWAVE(12) »NV(43) »LV<43) 
COMMON  /HEAT8K/  H (26) »TSZON (104) ♦TSEDOY (16) « HTSZt I2TS2» I ITSW, 
1 I2TSWtM£RGEl ,MEr6E2»  ZWTJ (5) »ZWT2(5> ,Q3WR(S) 

COMMON  /OERIV/  VOERIV (2366) »TDERIV (2366), W (2366) 

COMMON  /WORKBKV  Q{2366) 

COMMON  /OHOGRA/  T0P0(9l) ,QSV(105) .HTSYE(2366) 

COMMON  /TEMPBK/  ADVSVU82) 

DIMENSION  X (7) 

DATA  NW  /0/ 

DATA  iphase  /0/ 

C 

METHOD  I 
C 

C U HEAT  OUE  TO  03  ABSORPTION  OF  SW« 

C 

MGM2sMERGE2 

IF  (MERGE2.EQ.0)  MGM2*IlTsZ-l 
CALL  03HEAT  ( ILEV1 tMGMg) 

IF  <MGMg,LT,MERGE2)  M£RGE2«MGM2 

C 

C 2«  ADD  HEATING  OUE  TO  NEWTONIAN  COOLING  (ABOVE  Z * 4,5). 

C 

MGMlaMERGEl-1 

IF  (MERGE1.EQ.0)  MSMl*UTSZ-l 
DO  100  IIEV*ILEV1.MGM1 
K * ( ILEV-1 ) *NVR£AL*1 
YsH(ILEV) 

DO  75  I»2,NVR£AL 
K*K+  1 

Q ( K) aU ( K ) »Y*T (K) 

7S  CONTINUE 

100  continue 


C 

c— — — METHOD  II — — — — ' 

C COMPUTE  EMPIRICALLY  DERIVED  TROPOSPHERIC  AND  LOWER  STRATOSPHERIC 
C HEATING  (BELOW  Z » 4,5), 

C 

IF  ( IPHASE. GT.O)  GO  TO  200 
C* 

C 1,  COMPUTE  SEASONAL  PHASE  VELOCITY, 

C 

ANGVEL“1 »/720. 

PI*4„*ATAN(1.) 

C 

c TROPOSPHERIC  heating  TIME  OIfFERENCE  (IN  DAYS). 

C • . 

TROPLG»«30. 

C ' 

C TROPLG  (NON-DIMENSIONAL) . 

C 

TR0PLG*4.*PI*TR0PLG 
IPHASE*! 00 


200  CONTINUE 
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phase«an©vel*<time*yrlag*troplg> 

PHASE«SIN (PHASE) 

'TIME»T.IME*DT 

2.  DETERMINE  HEATING  in  zonal  components.. 

IL«MERGE2*1 

IF  (MERSEZ.EQ.O)  IL*I1TSZ 
IH-I2TSZ 
00.230  I»1  *7t2 

x(i)«i. 

00  240  I»2»7*2 

240  X(I)»PHASE 
n«ncomp ( 1 ) 

NH*5 

IF  (NH.GT.N)  NH*N 
DO  300  ILEV«IL»IH 
Y*H(XLEV) 

I«(ILEV-1)*NVREAL 
DO  260  J»2»NH 
JJ*(J-2)*26*ILEV 
Q(l*J)<*Y*<X{J)»TSZONCJJ).T(I*J>,) 

IF  (NH.G  *N)  GO  TO  280 
NHl«NH*l 
00.270  J«NHI»N 
270  Q(I*J)*-Y*T(I*J> 

280  CONTINUE 
300  CONTINUE 

3.  determine  nonzonal  heating. 

IL*MER®E2*1 
IH«I1TSW-1 

IF  (I1TSW.LT.KERGE2)  IHbNVERT-1 
DO  330  ILEV=IL»IH 
NZl*NV20N*l 
Y»H(ILEV 

KK» ( ILEV-1 ) *NVREAL*NVZ0N ’ 

00  330  joNZI.NVREAL 
KK»KK*1 
330  Q(KK)»-Y*T{KK) 

IL*I1TSW 

IH*I2TSW 

IF  (llTSW.EQ.O)  -GO  TO  500 
DO  450  ILEV»IL»IH 
Y«H(ILEV> 

KK» ( ILEV-1 ) *NVREAL+NCOMP ( I ) 

IJ*0 

DO  -400  LL»1«LR 
N«NCOMP(LL*I) 

IF  (N.EQ.O)  GO  TO  400 
NH=0 

IF  (LL.GT .2)  GO  TO  360 
NH«4 

IF  (NH.GT.N)  NH«N  - 


oooono 


00  3S0 
KK»KK+ 1 
Id«Id*l 

<3  <KK)  wY*  (X  (d)  *-TSEDDY  ( IJ)  ~T  (KK):) 

KK»KK^1 

Id*Id*i 

350  0(KK>«Y*{X(d)*TSEOl>Y(Id)«T<KK)  ) 

IF  (NM.GE.N)  GO  TO  i.00 
360  NH1*NH*1 

00  370  JXNH1..N 
KK*KK»1 

Q(KK) »®Y*T (KK) 

KK*KK*i 

370  Q(KK)*»Y*T(KK) 

400  CONTINUE 
*50  CONTINUE 

500  continue 

OVERLAP 

DETERMINE  HEATING  IN  OVERLAP1  AREA  BY  LINEARLY  WEIGHTED 
COMBINATION  OF  METHOD  I AND  method  II, 

IF  (MERGEI.EQ.O)  GO.  TO  610 
N*NCOMPU) 

NH*5 

IF  (NH.GT.N)  NH»N 
ld*0 

00  600  ILEV*MERGE1»MERGE2 
td«Id*l 

K*<ILEV-I)*NVREAL 
Y«H(ILEV) 

DO  530  d*2»NH 
Jd* < d»2) *26* ILEV 

Q (K*d) *2WT1 ( Id) * <Q  <K*d) -Y*T (K*d) ) *ZWT2 (Id) *Y* (X  <d) *TSZON (dd) 
1 -T(K*d)> 

530  CONTINUE 

IF  (NH.GE*N)  GO  TO  550 

NHIbNHM 

DO  540  d«NHI,N 

Q(X*d)«ZWTl (Id)*(Q(K*d)-Y*T(K*d) )-ZWT2(IJ)*Y*T(K*d) 

540  CONTINUE 
550  CONTINUE 

IF  (N.LT.3)  GO  TO  555 
Q<K*3)«Q(K+3)*ZWTl(Id>*Q3WR(lJ) 

555  CONTINUE 
K>K+N 

00  590  LL«1*LR 
NN*NC0MP  LL+1) 

IF  (NN.EQ.O)  GO  TO  590 
00  560  d«l»NN 
K»K*  1 

Q<K)«ZWTl(Id)*(Q(K)-Y*T(K) )-ZwT2(Id)*Y*T(K) 

K»K*1 

Q(K)«ZWTl(Id)*(Q(K)-Y*T(K) )-ZwT2(Id)*Y*T(K) 

560  CONTINUE 
590  CONTINUE 

600  continue 

610  CONTINUE 
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IL*(ILEV1-1)*NVREAL*1 
IH*ILEV2*NVREAL 
DO  630 

630  TDERIV(J)«TDERIV(I)*Q(IJ 

SAVE  heating  coefficients  in  hTSVE  FOR  OUTPUT. 

DO  640  I*IL»IH 
640  HTSVE  (I)  *<3  (I) 

IF  (NW.EQ.O)  RETURN 

IL1»ILEV1 

IL2«MERGE1 

IL3*MERGE2 

IL4.ILEV2 

IF  (IL2.GT.ILD  GO  TO  650 
IL2«(ILl+IL4)/2 
IL3»IL2*1 
650  CONTINUE 

WRITE  (6*1000)  IL1 t IL2* IL3* IL4 
1000  FORMAT  ( 1H0. 10X* »DI aBATIC  HEATING  AT  LEVELS  »*4I5) 
K1»(IL1-1)*NVREAL 
K2»(IL2-1)*NVREAL 
K3*(IL3-1>*NVREAL 
K4» ( IL4-1 ) *NVREAL 
NbNCOMP ( 1 ) 

DO  700  1*1 »N 

■K1*K1*  1 
K2«K2*1 
K3*K3*1 
K4*K4+1 

WRITE  (6*1010)  I*Q(K1) *0(K2) *0(K3) *Q(K4) 

1010  FORMAT  (2X.I5.E15.7»15X*E15.7»15X*E15.7,1BX.E15.7> 

700  CONTINUE 
K*N 

DO  800  LL*1»LR 
N*NCOMP(LL*l) 

IF  (N.EQ.OJ  GO  TO  800 

DO  750  1*1 »N 

K*K*1 

Kl*Kl*2 

K2*K2*2 

K3*K3«2 

K4*K4*2 

K1R.K1-1 

K2R*K2-1 

K3R*K3"1 

K4R»K4w1 

WRITE  (6*1020)  K*Q(K1R) ,0(K1) ,Q(K2R) *Q(K2) *Q(K3R) *Q(K3) *0(K4R) . 
1 Q(K4) 

1020  FORMAT  (2X,I5»8E15.7) 

750  CONTINUE 
800  CONTINUE 
RETURN 
END  ' 
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SUBROUTINE  VDBHEAT 


CALL,  03HEAT' 

bo  100  ilev*ilevi,mqmi- — 

DO  75  I»2«NVREAL 

Q ( I » ILEV) *Q ( I » ILEV) -H ( ILEV > *T ( I * ILEV ) 

75  CONTINUE 

100  continue 1 

PHASE*SlN(ANGVEL.«*<TIMe*YRLAS*TROPLS>  ) 

TIMEaTlMEfOT 
DO  230  1*1 *7*2 

230  CONTINUE 

DO  240  f*2»7#2 
X( I) .PHASE 
240  CONTINUE 

DO  300  ILEV*MERGE2*1»I2TS^ : 

DO  260  J*2»5 

Q (d* ILEV) *H ( ILEV) *(X<J)«TS20N< ILEV* J-2)-T(J« ILEV) ) 

260  CONTINUE 

DO  270  J*6*NCOMP(l) 

Q <J« ILEV) *-H ( ILEV) *T (J* ILEV) 

270  CONTINUE 

300  continue — 

DO  330  ILEV*MERGE2*1*I1TSW»1 1 

DO  330  J*NZ1*NVREAl 
• Q(d» ILEV) »"H ( ILEV) *T ( J» ILEV) 

330  CONTINUE  

DO  450  ILEV«I1TSW,I2TSW 

Id*l 

DO  400  LL»1»2 
DO  350  J»l*4- 
dd*2*d»NZl 

Q tdd* ILEV) *H( ILEV) * (X < J)«TSE0DY ( I J ) -T  tdd. ILEV) ) 

Q (dj* 1 * ILEV) *H  t ILEV ) * <X (d) *TSEDDV ( Id* 1 ) -T  <dJ*l . ILEV) ) 
I J®Id*2 
350  CONTINUE 

DO  370  d*5*NC0HP(LL+l) 
dd*2*d*NZl 

Q (dd  t ILEV) *-H { ILEV) *T (dd» ILEV) 

Q <dd*l » ILEV)  «*H(  ILEV)  *T  <ddM«  ILEV) 

370  CONTINUE 

400  CONTINUE 

DO  401  LL»3*LR 

DO  401  d«l»NCOMP(LL*l) 

dd»2*d«NZl 

Q{dd.lLEV)«»H(ILEV)*T(dd.lLEV) 

Q <dd*l » ILEV)  *-H.(  ILEV)  *T  <dd*l , ILEV) 

401  continue 

450  CONTINUE 


4-D-27' 


530 

.5*0 

' S60 

590 
. 600 

• * 

630 


I J«0 


DO  600  ILE V»HERGE 1 » HERGE2 
DO  530  <Jb2*5 


• Q( J« IL£V> ■ZKTX ( I<J)  *<Q  (Jf ILEVj.Ht ILEV)*T  < j, ILEV} ) 

CONTINUE  ♦Z"T2‘XJ»#HCXKV»«(X,{J)nSZ0»lHtEV.J.EJiTcJ,ILEV) 

do'  5*0  J«6*NCOMPU)  ‘ " 

Q(J»II_EV>  *»ZW  T 1 I LEV ) «*H  ( I LEV ) *T  ( J » I LEV)  ) 

l ’■»ZWT2(IJ)*H(ILEV)*T(J»ILEV) 

continue  - ‘ .... 

Q(3VILEV)*0(3»ILEV)  *ZwTl  < I J>  *>Q3WR  f I J) 

DO  590  UU*I*LR 

DO  560  JaltNCOMP  (LU<-I) 

JU«2*J-NZ1 


Q(JJ»ILEV)«ZWTi ( I J) * (Q ( JJtlLEV) ) *H I ILEV) *T ( JJt ILPV j ) ' 
l -ZWT2(IJ)*H(ileV>#T(JJ.ILEV) 

Q<JJ+l*ILEV)sZWTl(IJ)*{Q(jJ*lflLEV)-H(ILEV)*T(Jj*l,ILEV> ) 
1 -ZwTSUj>*H{ILEV>*TWJ*itl£EV>  U 

CONTINUE 
continue 

CONTINUE : __ 

- DO  630  I«IL«IH 
TDERIV(I)«TDERIV(I>  +Q(I) 

HTSVE(I>*Q(1) 

continue 

•RETURN 


) 


ENTRY  DrHEATO 

NZUNVZON*! 

M6M1»MERGE1*1 

ANGVEL*l./720. 

PI“*.*ATAN<I.) 

TROPLGb-30 . *4 • «P I 

IU«( ILEV 1*1 ) *NVREAU*1 

IUEV2*NVREAL 

RETURN 

END 
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SUBROUTINE  03HEAT  dl»I2) 

DOUBLE  PRECISION  P* ZtZltT*Z2«X3*Z3 
DOUBLr  PRECISION  XOX 

DOUBLE  PRECISION  TGP0*QSV*QTtSPAC£*DX03DT 

COMMON  P (2366) *Z(2366) »2l (2366) «T(236fe) «Z2(2366) *X3(2366>  *23(2366) 
COMMON  / ONSTS/  INQEX«NR*LR«INS»INSZ.K:NT«lLEVl»ILEV2»NVeRT» 
l NRTp,LRTPtNTYPE»NVECT»NVREAL*NVZON,NCYC»OT»YRLA6»TIME 
COMMON  /OROGRA/  TOPO (91),QSV ( J05) 

COMMON  /SPECIE/  X3GRO<6240> »CN03(6240) *XNO2(330) 
C0MMON/QUBLK/NZJ»L103*C0L03 (26) «LEVPCM,LEVDYN 
COMMON  /WORKBK/  QT (2366) .SPACE (5554) 

COMMON  /CHEM/  XNEUT (26) »TeMP (62A0)  • « 

COMMON  /FTCST/  nlon *nlat-.ngrid 

COMMON  /BARBLK/  TBAR (26) *SlGMA<26) tONOTBR(26) »DIPPM(26) *0lPFX(26> 
COMMON  /QENER/  0XO30T(2366) 

DIMENSION  0ATAIM(62A0> *DX3GRD(1) »QTQRD(1) 

DIMENSION  XOX(l) 

EQUIVALENCE  (TEMP  (I)  *XOX(D) 

EQUIVALENCE (QT (I ) »0X3GR0(1) ) t (SPACE (2915) *QTGRO(l) ) 

ILlSVslLEVl 

IL2SV»ILEV2 

T * X3  SPECTRAL  FIELDS  FOR  LEVELS  L103  THRU  NZJ  TO  GRID  FIELDS 
TEMP  > X3QRD» 

ILEVJ.L103 

ILEV2*NZj 

NLEVaNZj«L103*l 

ILSPC* (L103-I ) *NVREAL* 1 

XL6R0» (L103®1) *NGRID+I 

CALL  SPCGOI  (T(ILSPC) »TEMP(ILGRD) .DATAIM.NLEV) 

CALL  SPCGOI  (X3(ILSPC) »X3G«D(ILGR0) tDATAIM.NLEV) 

ihgro*ilgrd-i*nlev*ngrid 

00  50  I*ILGRD»IHGRD 
IF(X3GR0(I) «LT*Ot)  X3GRD(I)»0. 

50  CONTINUE 
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CALL  DX3CHM 

0X36RD  . QTGftD  GRID  FIELDS  FOR  LEVELS  L103  THRU  NZJ  (0X3GRD)  AND 
LEVELS  L103  THRU  12  (OTGRD)  TO  SPECTRAL  FIELDS  DX03DT  . QT-, 

IF  (I2.GT.NZs))  I2*?NZj 

ILEV2bNZJ 

NLEV»NZj-L103*l 

CALL  GDSPCl (0X03DTCILSPC) *DX3GRD(ILGRD) .DATAIM.NLEV) 
NLEV*1*lEVPCM-L103 

CALL  GOSPCl (XOX(ILSPC) ♦X3GRD(ILGRD) tDATAIM.NLEV) • 

ILEV2.I2 

NLEV.I2-LI03+1 

CALL  G0SPC1  (QT(ILSPC) .OTGRD(ILGRD) *DATAIM.NLEV) 

AOO  CONSTANT  ZONAL  HEATING  FOR  TOP  LEVELS. 

ILEV1*IL1SV 

ILEV2bIL2SV 

NZUNVZON+1 

K*(ILEV1.1)*NVREAL 

KKa(ILEVl-l)*NVZON 

LEV2»L103-I 

IF  (LEV2.LT.ILEV1)  GO  TO  300 
ANGVEL*l./720, 

PHASEwANGVEL*(TIME*YRLAG> 

PHASE«SlN (PHASE)  • 

DO  200  LEV*ILEVI»LEV2 

Ks (LEV-1 )*NVREAL 

KK«  (LEV-1  )f»NVZON 

DO  100  <J*1 » NVZ0N.2 

K2»KK*J 

K1*K*J 

100  QT(K1)*0SV(K2) 

DO  125  U*2»NVZ0N»2 

K2»KK*J 

K1»K*J 

125  0T(K1)«PHASE*QSV(K2) 

DO  150  J=NZ1.NVREAL 
K1»K*J 

150  QT (K1 ) *O.DO 
200  CONTINUE 
300  CONTINUE 

PLACE  Mean  (1/XN)*(DN/DT)  VALUES  AT  EACH  LEVEL  IN  DNDTBR(LEV) 

FOR  OUTPUT. 

DO  400  J*L103.NZJ 
Ks(J-l) *NVR£AL*1 
400  DNDT8R ( J) *DX03DT (K) 

RETURN 

ENO 
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SUBROUTINE  V03HEAT 

« 


COMMON  /HEATBK/  . • . *MERGE2e  . , » 

CALL  SPCSD1  (T(ILSPC)  ♦TEMP{IL'QRO)  «OATAIM.NlEV) 

<JALL  SPCGOl  (X3(ILSPC)  .X36R0(ILSR0>  *0ATAIM,NLEV.) 

DO  50  IilLGRO'XHGRD 
IF  (X3GRDCI) .LTeO.)  X3GRD(I>»0, 

50  CONTINUE 

IL1SV.ILEVI 

IL2SV«ILEV2 

ILEV1-U03 

ILEV2«NZJ 

CALL  DX3CHM 

CALL  GOSPC1 (0X030T(ILSPC) .0X3GR0 (ILGRD) ♦0ATAIM»NLEV) 

CALL  GOSPCl (XOX(ILSPC) » X3QRO < ILGRO) tOATAIM »NLEVPCM> 

CALL  GOSPCl (QT(ILSPC) tQTGRD (ILGRD) tOATAIM»NLEVMGM2) 

ILEV1*IL1SV 

ILEV2«IL2SV 

PHASE»Sin  < ANGVEL* < TlME*YRLAG) ) 

DO  200  LEV*ILEV1.LEV2  — — 

DO  100  Jslt NVZ0N«2 
QT(J*LEV)«QSV(J»LEV) , 

100  continue 

DO  125  J*2»NVZ0N»2 
QT ( J*LEV) »QSV (J»L£V) *PHASE 
125  CONTINUE 

DO  150  J*NZ1»NVREAL 
QT<d*LEV)«0. 

ISO  continue 

200  continue  

DO  *00  J*L103»NZJ 
ONDTBR ( J) *0XO3DT ( 1 t J) 

*00  CONTINUE 
RETURN. 

ENTRY  03HEATO 
NLEV*NZj«L103*l 
ILSPC*  « e • 

ILGRO*  « • -• 

IHGRO*  ■„  ..  • 

NLEVPCM*LEVPCM-L103*1 
NLEVMGM2*MERGE2-L 103*1 
NZ1*NVZ0N*1 
LEV2*L103-1 
ANGVEL»l,/720, 

IF  (LEV2«LT»IL£V1  )•  CALL  SOS 

return 

END 
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SUBROUTINE  03COU 

COMPUTATION  OF  OZONE  COLUMN  DENSITY  IN 
CM-2U  CM  COL»2.6e2#10»*,19CM«2> 

COMMON  -/CONSTS/  TNDEX,NR,lR»INS,IN$Z*KINT»ILEV1.ILEV2.NVERT# 

I NRTP,LRTP,NTYPE,NVECT,NVREAL»NVZON,NCYC»DT 
common/  vRTBLK/  ZVAL(26) *PVAL(26> tPP(26) .DZtRV 
COMMON/  SPECIE/  X03  ( 6240.)  »CN03(  <>240) 

-COMMON/  FTCST/  NLON*NLAT *NGRID*AR (30) tBR (30) 

DIMENSION  CP (3) 

- -ESTIMATE  COLUMN  DENSITY  abOVE  HIGHEST  LEVEL  ASSUMING  'AN 

EXPONENTIAL  DECAY  WITH  HElGHT-WITH  A SCALE  HEIGHT  BASED  ON  THE 
ZONAL  AVERAGE  ozone  CONCENTRATION* 

IF  ( ILEVl<*2>  10*20*30 
10  CP(1)«12.*PP(1)/DZ 

I«0 

AX031«0. 

AXO32-0. 

DO  300  LAT»1»NLAT 
DO  100  LONj*1,NlON 
I*I*1 

6X03loX03 ( I ) +AX031 
AX032*X03 (NGRID*I ) *AX032 
100  CONTINUE 

CHECK*RV«AX032*0.9S 
IF(CHECK,LE.AX031)  GO  TO  200 
RATIO«AX032/AX031 
DM«AL0G(RATI0)/0Z 
CONSTsCP(1)/(DM41.0) 

i»i-nlon 

DO  150  LON*l.NLON 
1*1*1 

150  CN03(I)*C0NST*X03(I) 

GO  TO  299 
200  !*I-NLON 

DO  250  LON*l»NLON 

i*r*i 

CNO3(I)»0«0 

250  PRINT  5,I.X03(I)  ' 

5 FORMAT.  ( } OX  * » OZONE  SCALE  HEIGHT  IS  TOO  SMALL  AT  LEVEL' »I5*5X* 

1 ' X03  * ' *E10 «3> 

299  CONTINUE 

300  continue 
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COMPUTATION  OF  OZONE  COLUMN  DENSITY  ABOVE  OTHER  LEVELS  USING 
A QUADRATIC  CURVE  FIT  TO  THE  VERTICAL  PROFILE  OF  OZONE 

between  levels. 

C 

20  IsNGRIO 

CPU)  *50*PP  (2) 

CP(2)*8,0*PPU> 

DO  400  L*l»NGRID 
1*1*1 
I1*L 

400  CN03  ( I ) «CP  U ) <*X03  ( I ) *CP  ( 2 > *X03  (ID  ♦CN03  (ID 
ILl»3 
SO  TO  35 

30  IbNGRIO* ( I LEV 1®1 ) 

ILI*IL£V1 

35  00  600  JbILI « ILEV2 

J2*«JW 

epu>s5.0*pp<j> 

CP(2)=8.0*PPUI> 

CP<3)*PPJJ2) 

DO  500  L*1»NGRID 
1*1*1 

II*I-NGRID 
12*1 I-NGRID 

500  CN03 ( I ) »CP (1) *X03 (I) *CP(2l *X03 < H ) -CP  1 3) *X03 < 12) *CN03 (ID 
600  CONTINUE 
RETURN 
ENO 
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SUBROUTINE  V03C0L 


DO  *00  K«1»NLAT 
DO  400  I»l»NLON 

CN03 { 1 1 K » 2 > »OP1*X03  < I *K » 2) *CP2*X03 ( I »K , 1 ) *CN03 ( I .K ♦ 1) 
♦00  CONTINUE 

00  600  J«3»ILEV2 

DO  500  K»1*NLAT 
DO  500  I»1 »NL0N 

CN03(I»K*J»*CP(J»l)*X03(I»Ktj)*CP(J»2>*X03(I*KfJ-l) 

1 «CP(J»3)*X03(I,K,J.2) *CN03(I.KtJ-l> 

500  CONTINUE 

600  CONTINUE 
RETURN 

ENTRY  03COLO 

DO  601  J*1LEV1 » ILEV2 

CP(J»1)«5.*PP(J) 

CP(J»2>»B.*PP(J-1> 

CP(J»3)»PP<J-2> 

601  CONTINUE 
CP1»5.*PP<2> 

CP2*8.*PP<1) 

return 

END 


4-D-34 


DIVISION  5 


TECHNOLOGY  SURVEY  UPDATE 


DIVISION  5 


TECHNOLOGY  SURVEY  UPDATE 


INTRODUCTION 


This  segment  of  the  report  provides  current  information  as  an 
update  of  the  estimates  and  prognostications  provided  in 
reference  1,  on  the  general  subject  of  circuit  technologies, 
primarily  semiconductor.  A number  of  other  bodies  of 
technology,  which  might  be  called  "System  Technologies",  are 
also  critical  to  the  FMP  design,  and  their  significance  should 
not  be  lost.  Their  rate  of  change,  however,  tends  to  b.e  less 
dramatic  and  less  public;  for  this  reason  the  following  material 
dwells  on  circuitry,  emphasizing  the  changes  perceived  since  the 
previous  report. 

These  can  be  summarized  as  follows: 

• In  the  mainline  circuitry  (ECL)  the  scales  of  integration  and 
possibilities  have  become  more  defined.  There  is,  of  course, 
still  considerable  margin  in  the  time  dimension,  but  the 
picture  is  sharper  than  a year  ago. 

• Of  the  long-shot  logic  technologies,.  Gallium  Arsenide  (GaAs) 
is  benefitting  from  increased  investment.  As  such  it  is 
worthy  of  somewhat  closer  attention.  Cryogenic  options 
remain  too  esoteric  to  warrant  serious  concern. 

• Of  the  potential  auxiliary  memory  technolgies,  CCDs  are  still 
the  most  plausible,  although  their  availability  for  the 
target  time  frame  has  become  more  questionable.  The 
availability  of  64K  dynamic  RAMs  (DRAMs)  on  the  other  hand  is 
more  certain,  albeit  at  costs  which  may  be  higher  than  is 
acceptable. 

• An  "intermediate"  memory  has  been  postulated  for  the  proposed 

- It -..will.  ..utilize  . only  established  low-cost 

technologies . 

Some  elaboration  on  these  points  follows. 

CRITICAL  CIRCUIT  TECHNOLOGIES 

The  previous  studies  (refs.  1,  2)  developed  the  decision  that 
the  FMP  schedule  is  best  served  by  use  of  high-speed  ECL  logic 
such  as  is  now  (1979)  coming  into  production.  The  Fairchild 
version  is  called  F200K,  and  the  internal  CDC  designation  is 
LSI-168. 

As  this  technology  matures  natural  improvements  in  cost, 
reliability  and  speed  will  evolve.  The  next  most  likely  major 
Change  wo.uld  ..be  .to  a considerably  larger  scale  of  integration 
with  some  modest  initial  speed  improvement.  A change  such  as 
this,  however,  requires  a major  overhaul  of  the  CAD/CAM 
(computer  aided  design/computer-  aided  manufacture)  support 
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system  plus  a step  up  in  semiconductor  technology.  To  the 
extent  such  techniques  and  circuitry  are  available  for  use,  they 
may  be  invoked  in  critical  areas.  However,  serious 
consideration  for  their  use  cannot  be  prudently  planned  in  the 
time  scales  proposed  for  the  FMP  development.  Table  1 collects 
the  LSI  products  in  the  high  speed  (ECL)  technology,  and 
projects  some  estimates  of  availability  of  the  next  most 
significant  steps.  The  final  entry  (availability  1985)  is  quite 
conjectural  at  this  stage.  Semiconductor  technologists  tend  to 
think  in  terms  of  three-year  increments,  so  data  gathered  from 
them  often  shows  this  sort  of  expected  cycles.  In  point  of  fact 
the  technology  does  not  move  in  sudden  jumps,  but  inches  along 
on  a broad  front.  Enough  of  these  breakthroughs  are  known  to  be 
pending,  however,  that  the  progress  has  reasonable 
predictability.  The  time  scales  have  a way  of  stretching  out, 
however,  particularly  as  reasonably  large-scale 
manufacturability  is  required. 

TABLE  1 

ECL  LSI  RELATED  PRODUCTS 

STAGE 


PRODUCT 

YEAR* 

INTRODUCED 

EQUIVALENT 
GATES/ CHIP 

DELAY 

(ps) 

STATUS 

Amdahl  Gate 
Array 

73 

100 

750 

Custom 

CDC  MOT  Gate 
Array 

75 

190 

900 

Discontinued 

J 

CDC/F200K  Gate 
Array 

77 

250 

650 

In  proto 
production 

Siemens  F100K 
Gate  Array 

77 

| 

500 

750 

Final  develop- 
ment 

Motorola  10K 
Macro  Cell 
Array 

(79) 

750 

1200 

In  development 

FSC  8-Bit  Slice 
Set 

(79) 

2K-8K 

650 

Custom  set  of 
four  types  (not 
an  array) 

Next  Generation 
Gate  Array 

(82) 

(1 .5K-2K) 

(500) 

In  exploration 
stages  at  FSC, 
MOT,  NATL. 

Follow-On  Gate 
Array 

(85) 

(5K-7K) 

(250) 

Prediction  by 
suppliers 

^Numbers  in  parenthesis  are  anticipated. 
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Suppliers  such  as  Motorola,  Fairchild,  and  National  presently 
see  1000-2000  gate  equivalents  being  practical  in  preproduction 
quantities  by  1982.  Although  processing  differences  exist',  all 
project  use  of  some  form  of  oxide  isolated,  walled  emitter  ECL 
process  on  a die  size  of  less  than  8mm,  the  current  practical 
limit  for  projection  step  and  repeat  photolithography.  All 
agree  that  additional  advances  in  photolithography  to  1 micron 
or  less  and  improved  metalization  processes  are  required  to 
achieve  the  1985  objectives  of  some  6000  equivalent  gates  per 
die. 

Other  forms  of  logic  have  demonstrated  subnanosecond  performance 
and  must  be  given  consideration.  One  form,  Josephs’on  switches, 
has  demonstrated  sub-100  ps  delays  but  require  a super-cooled 
(4-5  degrees  Kelvin)  ambient  environment.  CDC,  to  date,  has 
monitored  the  progress  of  this  technology  only  via  periodical 
reviews.  The  feasibility  of  conducting  actual  Josephson  switch 
experiments  is  currently  under  investigation.  A second  form  of 
subnanosecond  delay  technology  that  has  been  demonstrated  in  R&D 
facilities  at  Rockwell,  Hewlett-Packard,  RCA,  TRW,  Motorola,  and 
others  utilizes  MOS  technology  and  Gallium  Arsenide  (GaAs) 
material.  Because  of  the  superior  mobility  of  GaAs,  5-6  times 
that  of  silicon,  delays  in  ring  counter  form  of  75-150  ps  have 
been  demonstrated.  The  device  operates  with  low  power 
(microamperes  current)  and  in  normal  ambient  temperatures.  GaAs 
devices,  in  fact,  have  superior  quality  to  silicon  at  high 
temperatures.  Material  uniformity  difficulties,  as  well  as  the 
difficulty  in  growing  necessary  oxide  coatings  over  the  wafer 
surface,  have  hampered  progress  in  this  technology's  growth. 
Recent  advances  in  ion  implantation  have  helped,  and  densities 
up  to  100  gates/die  are  considered  achievable  in  CY79.  Because 
of  the  similarities  to  silicon,  the  projected  superior 
performance  while  operating  at  lower  power,  the  MOS-like  circuit 
packaging  densities,  and  the  recent  interest  shown  by  major 
suppliers,  efforts  to  watch  this  technology  more  seriously  are 
warranted . 

2 

Recent  projections  for  NMOS,  CMOS  and  I L technologies  might 
suggest  that  these  logic  families  are  to  be  considered 
legitimate  high  performance  ’Candidates  in  the  near  future. 
However,  they  tend  to  "bottom  out"  speed-wise  in  the  1-3  ns 
range.  For  applications  which  demand  the  ultimate  speed,  they 
cannot  be  seriously  considered  unless  some  major  breakthroughs 
occur  in  architecture  which  can  overcome  this  handicap.  Because 
the  low  speed-power  product  of  these  technologies  enables  a 
remarkable  scale  of  integration,  and  because  of  their  value  in 
memory  products,  it  is  felt  proper  to  spend  some  time  on  them 
here. 

2 

The  present  candidates  include:  one  bipolar  prospect  (I  L), 

improved  NMOS  technology  in  two  forms  titled  HM0S  and  VMOS,  and 

2 . 

the  CMOS-SOS,  or  CM0S-S0IS,  technologies.  I L is  in  a form  of 
inverted  transistor  technology  utilized  by  several  suppliers 
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including  Signetics  in  -a  general  gate  array  of  some  400  gates, 
and  FSC  in  the  9440  16-bit  microprocessor  family  (over  7-8K 
gates/ chip  in  production).  CDC  also  manufactures  some  arrays  of 
this  type  internally.  HMOS  is  a form  of  scaled  geometry  and 
scaled  processing  NMOS  technology  aimed  at  high  performance  and 
high  density  applications.  Intel  utilizes  this  process  in  their 
sub-50  ns  static  RAM  (SRAM)  products  and  their  8086  16-bit 
microprocessor.  VMOS  is  an  alternative  to  HMOS  -ut-ili-z-ing  the 
attributes  of  etching  pits  Into  silicon  to  form  fine  gate 
geometries  by  implantations/diffusions  rather  than  surface 
geometries  as  done  in  HMOS.  AMI  utilizes  this  process  in  SRAM 
products  for  high  density  as  well  as  performance.  CMOS  refers 
to  complementary  MOS.  This  implies  that  the  circuitry  always 
has  one  "off”  device  in  the  .ground-to-power-bus  chain.  The 
switches  (ignoring  minor  leakage  currents)  have  power  dissipated 
only  during  logic  switching  periods.  The  device  gate-to-gate 
on-chip  capacitance  is  reduced  further  by  utilizing  either 
sapphire  as  the  insulating  substrate  (^silicon  on  sapphire)  or 
oxide  isolation  between  switches  ^silicon  on  j.nsulated 
substrate) . 

2 

I L and  HMOS/VMOS  also  utilize  oxide  insulated  device  separation 
for  reduced  capacitance. 

Conservative  projections  show  10K-50K  gate  equivalents  becoming 
reasonable  by  the  early  80* s with  moderate  improvement  in 
photolithography  (1  micron  spacings  and  widths).  In  addition, 
stage  delays  are  projected  to  approach,  if  not  improve  below,  1 
ns.  Presently,  these  technologies  in  R&D  design  applications 
(not  perfectly  designed  ring  counters  for  optimum  performance) 
offer  impressive  2-4  ns  stage  delays. 

Figures  1 and  2 illustrate  the  expected  trends  in  two "best-bet" 

2 

technologies  (ECL  and  CMOS/I  L)  plus  the  possible  evolution  of 
what  CDC  considers  to  be  the  best  wild-card  technology,  GaAs. 


AUXILIARY  MEMORY  TECHNOLOGIES 


To. review,  the  term  auxiliary  memory  technologies  has  been  used 
to  denote  the  various  storage  technologies  .which  promise 
significant  cost  improvements  relative  to  RAMs , yet  with 
considerably  improved  access  time  vis-a-vis  rotating  magnetic 
storage.  The  candidates  have  been  considered  to  be  charge 
coupled  devices  (CCD),  magnetic  bubbles  (MBM) , and  electron  beam 
storage  (EBAM) . 
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STAGE  DELAY  IN  NS 


LSI 

STAGE  DELAY  PERFORMANCE 


YEAR 


Figure  1.  LSI  Stage  Delay  Performance 
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None  of  these  has  kept  pace  with  its  protagonists'  hopes  or 
projections  over  the  past  five  years.  Commercial  products  have 
appeared  for  both  CCDs  and  MBMs . In  both  cases  the  products, 
while  quite  capable,  have  proved  to  be  considerably  more  limited 
in  application  than  hoped  for.  Nevertheless  they  have  found 
some  valuable  use,  and  as  such  must  be  judged  to  have  been 
"born”.  Table  2 summarizes  the  known  extant  examples,  as  well 
as  some  current  predictions. 

It  is  quite  clear  that  auxiliary  memory  technologies  must 
achieve  enough  volume  to  drive  their  cost  below  the  DRAM 
competition,  a.  classic  chicken  and  egg  situation.  If  .this  is 
accomplished  for  CCDs  they  clearly  are  the  best  bet  for  the  FMP 
Backing  Store,  a memory  which  is  a significant  requirement  in 
order  for  the  FMP  to  achieve  its  expected  system  performance. 

The  probability  of  suitable  CCDs  being  available  to  build  the 
Backing  Store  is  quite  acceptable,  although  not  completely 
assured;  at  this  point  the  cost  may  prove  to  be  a larger 
hurdle. 

Magnetic  bubble  technology  is  driving  increasingly  toward  lower 
cost,  at  the  expense  of  speed.  This  comes  about  because  of  the 
need  to  take  advantage  of  MBMs  special  properties,  e.g., 
non-volatility , as  well  as  the  particular  markets  these  open  up. 
Several  semiconductor  houses  have  made  significant  investments 
in  MBM  recently,  indicating  a growing  appreciation  for  the 
potential  markets.  This  type  of  investment  is  needed  to  drive 
the  costs  down.  So  in  the  case  of  bubbles,  the  availability  and 
part  costs  look  reasonably  promising  for  the  FMP  Backing  Store; 
but  the  speed  expectations  pretty  well  rule  them  out. 

EBAM's  continue  to  attract  some  research-  investment  as  a long 
shot  possibility.  The  DARPA-sponsored  interest  in  this  area 
has,  however,  been  abandoned  as  of  this  fiscal  year. 
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TABLE  2 


AUXILIARY  MEMORY  TECHNOLOGY 
Charge  Coupled  Devices  Magnetic  Bubble  Devices  - 


CAPACITY 


65K 


256K 


1M 


256K 


1M 


4M 


Availability 
- Test  chips 

Prototypes 

Production 

Volume  cost 
advantage* 

Cost  ($/M 
byte)** 

Access  time 
(avg) 

Data  Rate 
(Mbits/sec) 

Power 

(mw) /package 

Material 

Die  Size 
2 

(mil  ) 

Packaging 

Geometries 

Minimum 

feature 

Oxide 

thickness 

Nominal 

layer 

thickness 

Volatile 

Start/Stop 

capability 


2Q77 

1978 

Mid  80 

800 

400  us 


2Q79 

1Q80 

1981-82 

1984-85 

120 

400  us 


1981-82 

1983-84 


400  us 


300 


37K 


200 

Silicon 

35-40K 


200 


35-40K 


<-T6  pin  DIP — 

— 0.350  x 0.450  CCC-> 


6u 


1000  A 


yes 


no 


3u 

600-  ' 
700A 


yes 


no 


1 -2u 


400- 

600A 


yes 


no 


4Q77 

4Q78 

1981- 

1980 

800 

2.5- 

5 ms 

. 1-.  2 


500- 

1000 


<- 


1Q78 

1Q80 

1982 

1982 

250 

5-10  ms 

. 1-.2 


500- 

1000 

Garnet- 


1981 
Late  82 
1984 

•1 9 84’ 

40 

5-10  ms 

. 1-.2 


500- 
1 000 


50-60K 


1.0- 

1 .5u 


•No 


50-60K 
n-STD 


DI 


1 . Ou 


50-60K 
P > 

1 .0u 


5000A 

no 

yes 


5000A 

no 


5000A 

no 


yes  I yes 


*Volume  cost  advantage  occurs  after  the  steep  portion  of  the 
learning  has  been,  completed. 

**Cost/price  estimates  are  highly  speculative  until  technology 
market  are  established. 
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NASF  RELIABILITY-AVAILABILITY  EVALUATION  • ' 


This  evaluation  incorporates  observed  MTBF  for  standard  Control 
Data  computing  equipment  based  upon  most  recently  filed  data, 
and  estimates  of  inherent  MTBF  for  the  FMP  based  upon  the  most 
recent  reliability  evaluation  of  the  CYBER  203  (STAR-1 00A). 
Several  assumptions  have  been  made  in  the  FMP  evaluation  and  the 
total  system  evaluation  to  provide  meaningful,  structure  to  the 
reliability  models  and  to  simplify  the  computation's.  Assumptions 
always  introduce  error;  however,  where  assumptions  and/or 
estimates  were  made,  the  effort  was  to  bias  the  decisions 
toward  the  worst-case  condition  which  should  yield  conservative 
MTBF  and  availability  estimates. 

FMP  Reliability  Evaluation 

The  failure  rate  and  MTBF  estimates  of  the  FMP  and  its  units  are 
shown  An  table  1.  Two  types  of  failure  rates,  elemental  and 
functional,  are  derived  since  the  memory  units  and  a large  part 
of  the  data  transfer  paths  utilize  single-error  correction/ 
double-error  detection  (SECDED)  logic.  The  definitions  of  these 
two  types  of  failure  rates  are  given  in  CDC-STD  1.12.999 
Glossary  of  Reliability.  Availablity  and  Maintainability  Terms 
("included  as  appendix  A). 

The  FMP  logic  units  are  assumed  to  be  similar  in  structure  and 
logic  design  to  the  CYBER  203  and  therefore  the  reliability 
model  uses  the  same  methods  as  that  of  ther  CYBER  203.  The  CYBER 
203  reliability  prediction  is  based  upon  the  detailed  final 
equipment  configuration.  The  reliability  model  is  composed  of 
reliability  modules  of  the  basic  configuration  building  blocks. 
These  modules  are  derived-  from  the  CYBER  203  structure  in  a way 
which  combines  the  physical  entities  into  a functional  module. 
For  example,  the  LSI  device  reliability  module  is  composed  of 
the  LSI  device  and  its  associated  capacitors,  solder  joints, 
connector  and  proportionate ‘ number  of  terminators.  In  a like 
manner,  reliability  modules  are  defined  for  the  LSI  boards, 

F100K  circuits,  and  so  on.  The  proportionate  number  of  parts, 
such  as  terminators,  vias,  coax  connectors,  and  the  like,  are 
allocated  on  the  basis  of  the  average  distribution  in  the  CYBER 
203.  Appendix  B defines  the  reliability  modules.  The  component 
part  failure  rates  for  some  of  the  major  parts  (e.g.  the  LSI 
device,  the  storage  device,  etc.)  have  changed  since  the  last 
report  and  their  new  failure  rates  are  -given  in  appendix  C. 
Failure  rates  for  other  parts  are  taken  from  CDC-STD  1.12.020 
Component/Piece  Part  Failure  Rates  (included  as  appendix  D) . 

Appendix  E is  the  derivation  of  the  elemental  failure  rates  of 
the  FMP  units  utilizing  engineering  design  estimates  and  the 
reliablity  modules  of  appendix  B.  The  functional  failure  rates 
•of  the  -logic  units  'are  d-erfved  by  the  method  described  in  ^ 
appendix  F using  the  SECDED  model  described  in  appendix  G. 
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Table  1 

FMP  Reliability  Summary 


Unit 

Failure 

Elemental' 

Rate*  - 
Functional 

Scalar 

665.5 

665.5 

Swap 

70.8 

16.7 

Intermediate  Map 

83.6 

56.6 

Main  Map 

118.4 

\ 

Memory  Interchange 

424.6 

> 697.-3 

425.3 

Vector  Streaming 

154.3 

/ 

Vector 

1,848.0 

1,848.0 

Stream  Control 

61.0 

61.0 

Input/Output 

167.1 

167.1 

Main  Memory 

14,298.5 

1,924.3 

Intermediate  Memory 

41,666.7 

1,518.8 

Backing  Store  (262K 

device) 

36,624.6 

1,845.6 

Refrigeration 

409  • 0 

409.0 

Power 

438.2 

438.2 

Total  FMP  failure  rate* 

97,030.3 

9,376.1 

FMP  MTBF 

10.3  hrs 

106.7  hrs. 

FMP  Reliability 
Total  with  262K  CCD 

with  65K  CCD 
97,030.3 

9,373-8 

Less  Backing  Store  (262K) 

36,624.6 

1,845.6 

60,405.7  7,528.2 

Plus  Backing  Store  (65K) 

159,185.4 

8,576.0 

Total  FMP  failure  rate* 

219,591 . 1 

16,106.5 

FMP  MTBF 

4.6  hrs. 

62.1  hrs. 

6 -6 

*Per  10  device  hours  (10  failures  per  device  hour). 
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The  Main  Memory  is  based  on  the  design  of  a memory  now  under 
development  utilizing  a 1 x 4096  ECL  memory  device.  I-ts 
elemental  and  functional  failure  rates  and  MTBFs  are  derived  in 
appendix  F as  are  those  of  the  CCD  Backing  Store.  The  failure 
rates  for  Intermediate  Memory  (shown  in  table  1)  were  provided 
by  the  Control.  Data  Division  which  is  currently  responsible  for 
memories  of  that  type,  on  which  its  design  is  based. 


NASF  System  Reliability  Evaluation 

The  NASF  system,  composed  of  the  FMP  and  standard  system 
components  configured  in  a redundant  manner,  is  summarized  in 
table  2.  Because  of  the  system  complexity  and  redundancy,  and 
because  utilization  of  the  system  does  not  always  require  every 
computational  and  data  handling  function  to  be  available 
simultaneously,  a meaningful  overall  reliability  figure  of  merit 
(from  a user  viewpoint)  cannot  be  stated.  However,  the 
availability  and  reliability,  as  may  be  seen  by  a user,  can  be 
derived  if  the  required  resources  and  period  of  use  are  known. 

An  example  is  used  to  provide  an  estimate  of  what  might  be 
expected.  The  detail  assumptions  and  derivations  are  presented 
in  appendix  H;  a summary  of  the  assumptions  and  results  are 
presented  here. 

Assumpt ions 

1 ) A remote  user  uses  the  following  resources  for  a two^-hour 
period : 

2551  Communications  Controller 

CYBER  175  Computer 

PDCs  for  system  interconnection 

FMD  Disk  Subsystem 

ECS  Subsystem 

819  Disk  Subsystem 

FMP 

2)  The  FMD  Disk  Subsystem  uses  three  of  the  four  disk  units. 

3)  The  four  819  disk  units  assigned  to  the  user,  for  practical 
purposes,  have  no  immediate  back-up. 

Results 

1)  User  availability  (the  probability  that  the  resources  are 
available  on  demand)  is  98.89% 

2)  User  reliability  (the  probability  of  completing  the  task  in 
two  hours)  is  98.24% 

Other  performance  characteristics  of  the  system  are: 

1)  The  operating  system  critical  components  (the  FMP,  the  ECS, 
and  the  CYBER  175s)  may  cause  a system  interruption  on  the 
average  of  once  every  three  to  four  weeks.  In  these  cases 
the  operating  system  must  be  reloaded  and  all  users  will 
have  to  reinitiate  their  jobs  or  tasks.  (See  operating 
system  critical  MTBF  derivation  in  appendix  H.) 
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2)  Something  in  the  system  fails  approximately  every  six  hours 
but  because  more  than  50$  are  correctable,  an  operator  or 
user  may  be  inconvenienced  every  thirteen  hours. 

3)  Assuming  the  example  (appendix  H)  represents  a typical  use 
of  the  system,  the  applicable  failure  rate  apparent  to  a 
user  or  class  of  users  is  8804  failures  per  million  hours  or 
113.6  hours  MTBI . Stated  another  way,  once  every  four  or 
five  days  a given  user  may  be  required  to  restart  or 
reinitiate  the  job  or  task  being  performed.  Eighty-two 
percent  of  these  failures  are  local  with  respect  to  the 
system,  meaning  only  specific  users  are  affected.  The  other 
eighteen  percent  are  a result  of  a system  failure  affecting 
all  current  users. 
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Table  2 

NASF  Reliabily  Summary 


System  Component 
CDC  FMP 
CYBER  175 
CYBER  18 

(2551)  Network  Processor 

Programmable  Device  Controller 

7030  ECS 

677  Tape  Unit 

679  Tape  Unit 

7021  Tape  Controller 

885  FMD  Disk 

7155  FMD* Controller 

7881  Cartridge  Storage  Unit 

7882  Mass  Storage  Transport 
7880  Mass  Storage  Controller 
819  Disk  Drive 

7639  Disk  Controller 

580  Train  Printer 

405  Card  Reader 

3447  Card  Reader  Controller 

415  Card  Punch 

3446  Card  Punch  Controller 

8271  Transfer  Switch 

3270  Switch  Controller 


Elemental 

Failure  • Functional 


Qty  ♦ 
1 

MTBF 

Rate 

MTTR* 

10.3 

97030.3 

1.5 

2 

367 

2725.0 

1.7 

1 

362 

2762.0 

2.4 

2 

1846 

541 .7 

1.6 

16 

10000 

100.0 

1.5 

1 

630 

1587.3 

1.8 

2 

1022 

978.5 

1.6 

2 

1022 

978.5 

2.2 

1 

3200 

312.5 

1.8 

4 

5000 

200.0 

2.0 

2 

8000 

125.0 

3.0 

8 

1730 

578.0 

1.5 

16 

960 

1041 .7 

1.0 

3 

1970 

507.6 

4.0 

16 

2800 

357.1 

2.2 

4 

5000 

200.0 

1.2 

4 

442 

2262.0 

2.2 

2 

1091' 

981.4 

1.5 

2 

24000 

41.7 

4.0 

1 

1091 

981 .4 

3.4 

• 1 

14400 

69.4 

2.9 

2 

72000 

13.9 

0.5 

1 

12000 

83.3 

2.0 

NASF  Totals  6.39  156393-2 

* Because  of  system  redundancy,  the  MTTR  should  not,  except  in 
the  case  of  the  FMP,  be  taken  to  be  the  time  that  the  system  is 
down  when  the  associated  equipment  fails.  Even  in  event  of  an 
FMP  failure,  if  the  failure  is  in  a vector  pipeline  or  in  1/0 
(about  20?  of  the  time)  the  system  can  be  back  up  in  minutes. 
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GLOSSARY  OF  RELIABILITY.  AVAILABILITY  AND 
MAINTAINABILITY  TERMS 


l-o  SCOPE 

1.1  Purpose  - This  Standard  delineates  a list  of  terms  and  their  definition  as  used  in 
CDC  on  the  subjects  of  Reliability,  Availability  and  Maintainability  (RAM) . These 
definitions  are  intended  to  reduce  inconsistancxes  and  confusion  in  nomenclature. 

1.2  Applicability  - This  standard  applies  to  other  standards  in  the  CDC-STP  1.12.000 
. * series. 

1.3  Effectivity  - This  standard  is  effective  immediately  upon  release. 

1.4  Authority  - The  enforcement  of  this  standard  is  in  accordance  with  CDC-Policy  10:04:00.  - 
Waivers  from  this  standard  are  only  granted  via  the  controlling  document.  See  CDC-Policy 
10:04:30.  The  interpreting  authority  for  this  standard  is  the  General  Manager  of  CDC 
Technical  Standards. 

2.0  APPLICABLE  DOCUMENTS 

2.1  Referenced  Documents 

CDC-Policy  10:04:00  CDC  Technical  Standards 

CDC-Policy  10:04:30  Deviations  or  Waivers  from  CDC  Technical  Standards 
CDC— STD  1.12. 000  Reliability,  Maintainability  and  Availability  Standards 

2.2  Related  Documents 
None 

3.o  GLOSSARY 

Not  Applicable 

*.o  REQUIREMENTS 

Many  of  the  terms  are  composed  of  two  or  more  words.  These  terms  appear  with  the 
noun  first  followed  by  a comma  and  all  modifiers.  Thus,  " software  installation 
aids*'  would  appear  as  "aids,  software  installation"  and  would  be  found  with  the  term 
starting  with  the  letter  "a". 

action,  repair  - 

A single  maintenance  procedure  or  step  designed  to  completely  correct  a failure. 

Examples  of  repair  actions  are  "replace  module  at  Location  Bl3H  or  "perform  Procedure 
54  to  re-align  the  read  head". 

availability  - 

The  probability  that  an  item  will  perform  its  specified  operation  under  stated 
conditions  at  any  given  time. 

availability,  basic  - 

The  fraction  of  time  that  a system  or  product  is  not  'being  repaired.  It  is  also 
called  intrinsic  availability  and  inherent  availability.  Basic  Availability  in 
fractional  notation  is: 


Basic  Availability  (Ab) 


Measurement  Interval  - Active  repair  time 


Measurement  Interval 


Approved  by 


Azl&M. 

D.  L.  Bickel,  Vice  President 
Operations  Services,  Computer  Croup 
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availability , net  - 

The  fraction  of  a systems  designed  and  expected  (potential!  throughout  achievable 
on  demand  during  a given  calendar  time  period.  Potential  throughput  is  that  which 
can  be  achieved  in  the  absence  of  interruptions  and  scheduled  maintenance.  Net 
availability  is  reduced  by  all  lost  time,  both  system  down  and  degraded,  during 
scheduled  operating  time  and  scheduled  maintenance  time. 


Net  Availability  (ArO 


Calendar  time  - lost  time  - scheduled  maintenance  time 
Calendar  time 


availability,  user  - 

The  fraction  of  a system’s  designed  and  expected1  (potential)  throughput  achievable 
on  demand  during  scheduled  operating  time.  Potential  throughput  is  that  which  can 
be  achieved  in  the  absence  of  interruptions.  User  avaiJ ability  is  similar  to  net 
availability  except  that  only  events  occurring  durinq  scheduled  operating  time  are 
counted.  User  availability  is  reduced  by  all  lost  time,  both  system  down  and 
degraded,  during  scheduled  operating  time  caused  by  an  interruption. 

Scheduled  Operating  Time  - Lost  Time 

User  Availability  (Au!  = 

Scheduled  Operating  Time 

average,  running  - 

Current  month  running  average  - 

Current  month  average  +’  twice  the  previous  month’s  running  average 


where  the  running  average  of  the  first  3 months  is  defined  as  the  average  for  the 
months  being  measured.  This  is  .done  so  as  not  to  overemphasize  the  first  month 
data.  In  cases  where  the  current  month’s  value  is  very  large  compared  to  the 
previous  month’s  running  average  (e.g. , no  failures  for  the  month)  the  following 
equation  should  be  used: 

Current  month  running  average'  = 

3 

1/current  month  average  + 2/previous  month 1 s running  average 

call,  service  - 

The  response  to  a request  far  remedial  maintenance  that  is  attended  to  at  the  user 
location  by  one  or  more  persons  from  the  maintenance  organization.  A service  call 
is  normally  occasioned  by  one  or  more  incidents  such  as  failures,  misuse,  or  media 
caused  failures.  Service  call-backs  are  included.  Activities  such  as  nreventive 
maintenance  and  installation  of  modifications  are  'excluded. 

configuration,  target  - 

The  configuration  which  approaches  the  predicted  tvoical  field  application  of  the 
product. 

controlware'  - 

A processor  program  for  a particular  processing  unit  integral  to  a product  that 
provides  the  product  a set  of  functional  operating  characteristics.  Controlware  is 
supplied  as  part  of  a product  m accordance  with  applicable  Control  Data  policies 
and  procedures  and  is  necessary  for  proper  product  operation*  The  programs  are 
considered  as  programmed  functions  which  may  be  analogous  to  hardware  logic  and  are 
documented,  maintained  and  supported  m a similar  manner. 

neadstart  - 

The  initial  action  taken  to  start  a computer  system  when  no  software  is  resident  or 
m that  system.  Deadstart  normally  occurs  after  a tot?l  system  shutdown  or 
an  unrecoverable  system  error  an'd  causes  system  initialization  and  operation 
initiation. 


6-A-2 


(§§) 

CONTROL  DATA 
CORPORATION 


S5'V^ SHFESErs/1 
STANDARO 


STD  1.12.T=H 
REV  A 

DATE  August  l^fi 
PAGE  3 


degradation,  graceful  - 

The  automatic  and/or  orderly  removal  of  some  of  a system’s  capabilities  due  to  a 
failure.  This  is  accomplished  in  a manner  which  allows  continued  system  operation, 
but  with  reduced  capability. 

detection,  data  error  - 

The  process  (whether  by  software  and/or  by  hardware  means)  of  recognizing  that  one 
or  more  bits  are  incorrectly  transferred,  stored,  read  or  manipulated. 

diagram,  reliability  block  - 

A pictorial  arrangement  of  parts  (functional  blocks)  which  describes  the  separably 
identifiable  functions  of  a product,  equipment  or  system  and  their  reliability 
relationships . 

DPSR  - Diagnostic  Programming  System  Report 

A form,  AA  4329,  used  by  CDC  maintenance  software  users  to  report  maintenance  software 
failures.  The  DPSR  applies  to  released  products.  DPSRs  are  classified  the  same  as 
PSR  (for  classification  definition  see  PSR) . 

effectiveness,  maintenance  software  - 

Used  with  maintenance  software  as  a specification  of  performance  which  indicates 
the  degree  with  which  maintenance  software  produces  its  desired  result  of  detecting 
and  isolating  failures. 


error  - 

The  difference  between  an  observed  or  calculated  value  and  a true  value,  as  in  data 
error;  something  produced  by  mistake,  as  in  design  error. 

error,  system  recovered  - 

The  encountering  of  a failure  or  error  which  is  detected  and  recovered  from  without 
1)  manual  intervention,  2)  loss  of  any  system  resources,  3)  producing  incorrect 
results,  and  4)  termination  of  any  application  abnormally.  The  encountering  of  a 
failure  which  does  not  result  in  a system  down  or- degraded  interruption. 

factor,  degradation  - 

The  average  percentage  throughput  capability  lost  with  the  specific  class  of 
failures  or  interruptions. 

factor,  duty  - 

The  duty  factor  is  the  percentage  of  time  an  item  is  used.  That  is: 

Actual  Usage  Time 

Duty  Factor  =*  ■■■  ■ ■ ■■  

Scheduled  Operating  Time 


failure  - 

A state  of  inability  of  an  item  to  perform  its  intended  function.  , The  cause  may  be 
breakage  or  deterioration  beyond  specified  limits  or  design  errors.  A failure  may 
be  a data  error  rate  which  has  deteriorated  beyond  specified  limits.  Multiple 
encounters  of  the  same  fault/failure  are  a single  failure.  (See  Interruption.) 

failure,  elemental  - 

A component  failure  requiring  replacement  or  adjustment  within  a unit  whether  or  not 
the  unit  ceases  performing.  For  example  a single  bit  failure  m a single  error 
correcting  double  error  detecting  (SECDED)  memory. 

failure,  functional  - 

Any  failure  or  combination  of  failures  which  causes  a system,  product  or  equipment 
to  cease  performing  a .specif ied  function. 

failure,  maintenance  software  - 

Each  of  the  following  are  maintenance  software  failures: 

- The  inability  to  complete  testing  due  to  an  error  in  the  maintenance  software 
program  itself . 
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- The  report  of  a hardware  fault  when  no  fault  exists 

- The  incorrect  identification  of  a hardware  fault  even  though  another  fault  is 
present  in  the  hardware 

- The  inability  to  perform  an  auxiliary  function  due  to  a design  error  in  the 
maintenance  software 


fault  - 

The  cause  of  failure. 

FCO  - 

Field  Change  Order.  The  directive  to  install  changes  to  equipment  after  the  normal 
manufacturing  process  in  order  that  the  equipment  will  perform  to  its  written  or 
implied  specification. 

firmware  - . 

A physical  electronic  component  m which  a program  resides  that  is  incorporated  m 
a product  to  provide  a programmable  mode  of  operation  defining  the  product's 
functional  characteristics.  Firmware  is  not  self-modifiable,  and  is  .subject 
to  change  or  modification  only  by  physical  modification  or  replacement. 

incident,  failure  - 

An  occurrence  requiring  remedial  maintenance  to  correct  a single  railure. 
installability  - 

A characteristic  of  design  *and  environment  which  expresses  an  item's  ability  to  be 
configured  into  a system  m the  manner  specified  by  a customer  on  his  location. 

interruption  - 

The  cessation  of  productive  processing  due  to  the  encountering  of  a failure.  An 
interruption  is  not  ended  until  it  is  followed  by  15  minutes  or  longer  of  productive 
processing. 

interruption,  system  degraded  - 

The  encountering  of  a failure  which  does  not  result  m a system  down  interruption 
or  a system  recovered  error.  A -system  degraded  interruption  1)  results  in  an 
application  program  terminating  abnormally  or  producing  an  incorrect  result,  or 
2)  requires  some  manual  intervention  or  the  downing  of  some  system  capability  to 
allow  recovery. 

interruption,  system  down  - 

The  encountering  of  a failure  which  results  in  none  of  the  user  applications  being 
correctly  processed.  This  can  be  recognised  by  a deadstart  or  manual  intervention 
being  required  to  return  the  system  from  a down  state  to  a productive  state. 

isolation,  error/failure  - 

The  process  by  either  software  and/or  hardware  means  of  localizing  an  error  or 
failure  to  a specified  level. 

K-factor  - 

A translation  modifier  which  relates  various  reliability  parameters.  For  example: 
(failures) (K-factor)  - interruptions  and  (inherent  MTBF) (K-factor)  « observed  MTBF. 
Specific  K- factors  require  that  the  parameters  being  related  be  identified. 

life  - 

The  actual  use  time  before  a product  will  be  scrapped  or  require  a ma3or  refurbish- 
ment. 

mainframe  - 

An  organized  collection  of  directly  connected  hardware  products,  equipments,  parts 
and  accessories  consisting  of  a single  central  memory,  one  or  more  central  processors, 
peripheral  processors,  channels  and  control  consoles. 
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maintainability  - 

A characteristic  of  design  and  environment  which  is  expressed  as  the  probability 
that  an  item  will  be  retained  in  or  restored  to  a specified  condition  within  a given 
period  of  time,  when  the  maintenance  is  performed  in  accordance  with  prescribed 
procedures  and  resources. 

maintenance  - 

Any  activity  to  repair  a product  or  correct  supporting  documentation  in  order  to 
eliminate  or  prevent  errors  or  failures  in  a post- re lease  product. 

maintenance,  preventive  - 

A procedure  of  periodically  checking  and/or  re— conditioning  a system  or  unit  to 
prevent  or  reduce  the  probability  of  failure  or  deterioration  while  in  service. 

maintenance,  remedial  - 

Those  activities  where  a technician  is  working  on  a unit  or  system  on  a customer 
installation  to  make  the  unit  or  system  operational  except  those  activities  that  are 
considered  preventive  maintenance,-  associated  repair  or  check-out. 

management,  reconfiguration  - 

A procedure  that  manipulates  the  organization  of  system  resources  such  that  the 
system  can  continue  to  perform  useful  work  when  one  or  more  system  elements  are 
unavailable  to  the  user. 

margin  selection,  maintenance  software  - 

The  capability  within  maintenance  software  to  run  with  hardware  margins  selected 
either  manually  or  under  control  of  the  maintenance  software.  • - 

MLT  - Mean  Lost  Time  - 

The  average  lost  time  per  interruption  or  class  of  interruption  over  the  time 
period  being  measured. 

modularity,  spares  - 

Packaging  replaceable  hardware  sub-assemblies  m a manner  that  minimizes  the  sum  of 
per  unit  manufacturing  cost  plusr  field  replacement  costs. 

modularity,  system  - 

The  organization  of  system  elements  such  that  logical  functions  with  specified 
interfaces  can  be  easily  distinguished  and,  when  necessary,  logically  and  physically 
isolated  from  one  another. 

MTBF  - Mean  Time  Between  Failures  - 

The  average  time  from  the  start  of  one  fault  or  failure  to  the  start  of  the  next. 

The  specific  time  -base  used  is  to  be  indicated  m the  context  of  the  MTBF  usage. 

MTBF  is  Mean  Time  Before  Failure  in  some  reliability  prediction  equations.  In 
this  usage  MTBF  is  the  average  time  from  the  end  of  *a  failure  to  the  beginning  of 
the  next  failure.  This  meaning  of  MTBF  is  not  used  in  the  RAM  standards.  When 
non-operable  time  is  only  a few  percent  or  less  of  the  total  time,  then  the  two  uses  of 
MTBF  are  approximately  equal. 

MTBF,  inherent  - 

An  MTBF  number  derived  from  component  failure  rates  (anticipated  stress  levels 
should  be  considered) . No  considerations  are  made  for  possible  poor  design  or 
poor  manufacturing  or  inadequate  service. 

MTBI  - Mean  Time  Between  Interruptions  - 

The  average  time  from  the  start  of  one  interruption  to  the  start  of  the  next.  The 
specific  time  base  used  is  to  be  indicated  in  the  context  of  the  MTBI  usage. 
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MTBSC  - Mean  Time  Between  Service  Call  - 

The  average  time  between  service  calls  initiated  by  customer  request  (i.e.,  system 
failures,  service  call  backs,  misuse,  media  caused  failures,  etc.,  excluding  P.M* 
and  installation  of  modifications)?  obtained  by  dividing  total  time  by  the  number 
of  service  calls. 

MTTR  - Mean  Time  to  Repair  - 

The  overall  average  time  it  takes  to  diagnose  a machine  fault,  repair  it,  and 
adequately  verify  the  operation  after  repair;  obtained  by  dividing  the  total 
unscheduled  repair  time  by  the  number  of  repair  incidents.  This  calculation 
average  does  not  include  associated  repair,  travel  time  or  wait  time. 

product  - 

A hardware,  software,  or  supply  item  that  is  saleable  to  a customer, 
product  set  - 

The  complement  of  software  (excluding  the  Operating  System)  supplied  by  the  vendor 
for  use  by  the  customer  m writing  application  programs,  storing  and  manipulating 
data,  e.g.,  language  processors,  SORT/MERGE,  Data  Management. 

program,  application  - 

Software  written  by  a user  or  supplied  by  a vendor  to  solve  a particular  problem 
related  to  the' users  business,  e.g.,  payroll,  -linear  programming  package. 

program,  maintenance  software  - 

A software  program  that  detects  and/or  isolates,  that  facilitates  repair,  that 
aids  in  adjustment,  or  that  confirms  repair  of  a hardware  failure. 

PSR  - Program  System  Report  - 

A report  used  by  CDC  software  users  to  report  software  failures  and  errors.  PSRs 
are  classified  into  categories  of  criticality.  They  are  critical,  urgent,  serious, 
minor,  and  informational.  (Similar  to  TAR  for  Hardware,  firmware  and  controlware) . 

PSR,  critical  - 

A PSR  category  where  the  reported  failure  results  in  frequent  (1  or  more  per  day) 
system  downs  and/or  a major  project  stalled  through  software  problems. 

PSR,  informational  - 

A PSR  category  in  which  errors  in  comments,  coding  techniques,  or  documentation  are 
reported.  Code  change  is  not  required. 

PSR,  minor  - 

A PSR  category  where  reported  failures  result  in  inconsistencies  or  irregularities 
that  require  a code  correction.  (The  category  refers  only  to  the  urgency  of  the 
need  for  software  maintenance) . Items  of  inconvenience  or  of  minor  or  local 
consequence  should  preferably  be  m this  category. 

PSR,  serious  - 

Problems  that  definitely  need  to  be  fixed  at  once,  but  for  some  reason  are  below 
urgent  or  critical.  For  example,  a PSR  belongs  in  this  category  if  the  problem  can 
be  circumvented,  if  a local  or  temporary  fix  is  available,  or  if  it  is  an  urgent 
problem  that  only  occurs  rarely  or  under  unusual  circumstances. 

PSR,  urgent  - 

Regular  system  crashes  (more  than  1 per  week) ; substantial  user  difficulties.  High 
‘probability  of  serious  problems  (such  as  bugs  in  error  recoveries,  etc.). 

RAM  * 

Reliability,  Availability  and  Maintainability. 
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recovery/  data  error  - 

The  process  of  amending  or  repeating  a data  transfer,  store,  read  or  manipulation,  . 
which  resulted  in  a data  error,  to  produce  the  correct  result. 

release/  field  - 

A term  used  in  the  RAM  standards  to  indicate  the  poxnt  in  an  item's  life  when  it 
has  been  certified. 

reliability  - 

The  characteristics  of  an  item  expressed  as  the  probability  that  it  will  perform  a 
required  function  under  stated  conditions  for  a stated  period  of  time. 

repair,  associated  - 

The  repair  of  a replaceable  module,  subassembly,  or  product  after  it  has  been 
replaced  by  a like  module  m the  user's  system.  Example,  the  action  of  repairing 
spare  parts  after  the  product  has  been  returned  to  service. 

software,  fail- soft  maintenance  - 

Maintenance  software  which  is  an  integral  part  of  the  operating  system  software  and 
other  system  software  and  which  provides  failure  management  capabilities?  i.e., 
dynamic  hardware  failure  detection,  error  logging  or  recovery  activities. 

software,  hardware  checkout  - 

Software  designed  for  and  used  only  during  the  engineering  or  manufacturing  check- 
out of  various  hardware  devices.  It  may  be  required  when  the  checkout  requirements 
cannot  be  satisfied  by  Hardware  Design  Verification  Software. 

software,  hardware  design  verification  - 

Software  designed  for  and  used  m the  process  of  hardware  or  microcode  design 
verification  testing.  It  may  be  required  where  design  verification  requirements 
cannot  be  met  by  Off-line  Maintenance  Software. 

software,  in-line  maintenance  - 

Maintenance  software  designed  for  use  m field  maintenance  of  hardware  which  operates 
within  a subsystem  independent  of  the  operating  system  and  which  may  be  used  con- 
currently with  customer  use  of  the  subsystem. 

software,  maintenance  - 

Any  computer  program  code  and  associated  documentation,  used  for  maintenance  of 
released  products,  that  detects  and/or  isolates  failures,  facilitates  repair,  aids 
in  adjustment,  and  confirms  normal  operation  of  hardware. 

software,  off-line  maintenance  - 

Maintenance  software  designed  for  use  in  the  field  maintenance  of  hardware  and  which 
does  not  operate  concurrent  with  customer  operations. 

software,  on-line  maintenance  - 

Maintenance  software  designed  for  use  in  field  maintenance  of  hardware  and  which 
operates  under  control  of  the  operating  system  concurrent  with  customer  operations. 

subsystem  - 

An  organized  collection  of  hardware  together  with  any  necessary  software,  controlware, 
and/or  firmware  components  operating  within  a system  and  performing  functions 
assigned  to  it  by  the  system.  For  example,  a collection  of  tape  devices,  controller, 
controlware,  and  software  devices  is  a magnetic  tape  subsystem.  A processor  and 
memory  without  the  coded  instructions  necessary  to  process  data  would  not  be  a sub- 
system. 

system,  computer  - 

An  organized  collection  of  interrelated  software  and  hardware  products,  accessories 
and  parts  that  are  directly  interconnected  and  contain  only  one  mainframe  under 
control  of  a single  copy  of  an  operating  system  and  is  designed  to  perform  data 
processing  functions. 

systems,  network  of  - 

An  organized  connection  of  computer  systems,  'software  and  hardware  products, 
accessories  and  parts  interconnected  or  interrelated  in  such  a manner  as  to  perform  * 
data  processing  functions. 
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system,  operating  - 

Software  which  guides  a processing  system  in  the  performance  of  its  tasks  by  controlling 
the  execution  of  computer  programs  and  by  providing  support  services  to  programs 
and  programmers,  e.g.,  scheduling,  debugging,  input-output  control,  etc. 

TAR  - Technical  Action  Request  - 

A report  used  by  CDC  hardware,  firmware,  and  controlware  users  to  report  product 
design  failures  and  -errors.  (Similar  to  PSR  for  software) . 

test,  margin  - 

Test  performed  to  provide  information  relative  to  a system's  (unit's)  ability  to 
operate  under  the  full  range  of  design  parameters.  Normally  accomplished  by  varying 
voltages  and/or  frequency. 

test,  product  verification  - 

A test  of  a product  or  equipment  m its  operating  (system)  environment  to  determine 
that  its  operation,  maintainability,  and  reliability  meet  the  design  criteria.  The 
test  includes  the  use  of  operating  system  and  application  programs,  the  use  of 
maintenance  procedures  and  diagnostic  programs  and  operation  over  a prolonged 
period  of  time.  The  product  verification  test  is  generally  performed  on  a prepro- 
duction or  production  unit. 

testers,  maintenance  - 

Equipment  external  to  the  system  that  initiates  and  performs  fault  detection  and 
isolation  and  facilitates  repair  and  adjustment. 

time,  active  repair  - 

The  interval  during  which  activities  occur  at  the  user's  location  that  are  associated 
with  implementing  corrective  or  avoidance  actions.  Only- those  activities ^ required 
to  return  the  system  or  products  to  an  operational  state  following  the  failure  are 
included.  Sometimes  referred  to  as  unscheduled  repair  time.  For  software  this 
includes  such  things  as  dumping  files,  analysis,  PSR  documentation,  installing 
corrective  code,  etc.  The  deferred  installation  of  corrective  code  or  PSR  is 
considered  scheduled  maintenance. 

time,  actual  usage  - 

The  interval  or  accumulation  of  intervals  during  which  an  item  is  performing  one 
or  more  of  its  intended  functions,. 

time,  administrative  and  logistic  wait  - 

The  interval  during  which  support  personnel  or  materials  are  not  available. 

time,  calendar  - 

Calendar  time  is  the  elapsed  interval  of  time  during  the  measurement  period,  expressed 
in  hours,  day  or  months,  as  appropriate* 

time,  down  - 

The  sum  of  active  repair  time,  analysis  time  and  administrative'  and  logistic  wait 
time  which  takes  the  system  down  during  scheduled  operating  time.  The  interval 
during  scheduled  operating  time  when  the  item  is  inoperative.* 

time,  analysis  - 

The  interval  the  user  spends  determining  that  maintenance  service  is  required, 
time,  lost  - 

The  effective  time  that  a system  is  m a totally  unacceptable  state  for  productive 
work  as  a result  of  interruptions.  Lost  time  is  the  actual  time  lost  to  the  user 
due  to  total  or  partial  loss  of  system  processing  capability  plus  compensatory  time 
for  any  reprocessing  necessitated  by  interruptions.  The  following  times,  if 
present  shall  be  included  in  the  lost  time  calculation. 

analysis  time 

- administrative  and  logistics  wait  tune 
active  repair  time 

- reprocessing  time 
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Under  degraded  conditions , elapsed  time  does  not  represent  lost  time  since  some 
useful  work  was  processed  during  this  interval.  Lost  time  due  to  degradation 
is  the  product  of  the  degradation  factor  and  the  time  the  system  was  in  that 
degraded  condition  — i.e.,  the  time  between  the  detection  of  an  interruption  and 
the  point  in  time  the  users  work  has  been  restored  to  the  state  it  would  have 
been,  had  the  interruption  not  occurred,  NOTE:  time  in  a degraded  condition  need 

not  be  contiguous  — e.g.,  re-run  may  be  'delayed  resulting  in  a fully  acceptable 
productive  state  between  the  interruption  and  the  commencing  of  re-run. 

The  interval  that  service  personnel  are  not  allowed  access  to  the  item  needing 
service  is  not  included  in  the  lost  time  calculation.  The  effect  of  system  recovered 
errors  on  system  thruput  is  not  included  in  lost  time. 

time,  reprocessing  - 

The  sum  of  restoration  time  and  rerun  time, 
time,  rerun  - 

The  amount  of  time  required  to  return  work  in  process  to  the  state  that  it  should 
have  been  in  when  the  failure  which  caused  the  interruption  or  erroneous  result 
was  detected. 

time,  restoration  - 

The  amount  of  time  required  to  restore  the  operating  system,  and  auxiliary  sub- 
systems, because  of  an  interruption  or  erroneous  result.  The  following  activities, 
if  present,  shall  be  included  in  restoration  time. 

- restoration  of  remote  devices 

- system  reinitialization 

time,  scheduled  maintenance  - 

The  dedicated  system  time  to  perform  preventive  and  remedial  maintenance  and  to 
install  corrective  PSRs  and  FCOs.’  Where  this  scheduled  maintenance  activity  is 
performed  concurrent,  it  is  handled  like  degraded  lost  time  with  the  use  of  a 
degradation  factor.  The  installation  of  new  features  or  products  is  not  considered 
scheduled  maintenance  time. 

time,  scheduled  operating  - 

The  interval  allocated  in  advance  for  the  system  to  be  operational  for  the  user, 
unit,  accounting  - 

. A single  item  in  which  the  resources  used  by  a 30b  or  required  for  a terminal 
session  are  combined  including  memory  field  length,  CPU  time,  mass  storage  usage, 
magnetic  tape  usage,  permanent  rile  usage  and  unit  record  usage.  The  accounting 
unit  of  the  NOS  operating  system  is  the  System  Resource  Unit  (SRU)  and  its  specific 
definition  is  contained  in  Ct)C  document  60435700  "NOS  Installation  Handbook". 
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Reliability  Module  Failure  Rates 


Failure  Rate 

Total 

-6 

-6 

Qty- 

(xIO  ) 

(xIO  ) 

LSI  Device  Module 

LSI  Array 

1 

0.087 

- 0.087 

Terminators 

9 

0.001 

0.009 

Ceramic  Capacitors 

2 

0.002 

0.004 

LSI  Connector  (52  pin) 

1 

0.104 

0.104 

Solder  Joints 

4 

0.0003 

0.0012 

TOTAL 

—>0.205 

LSI  Half  Pack  Module 

Half  Pack 

1 

0.0412 

0.0412 

Terminators 

3 

0.001 

0.003 

Ceramic  Capacitor 

1 

0.002 

0.002 

Half  Pack  Connector  (26 

pin)  1 

0.048 

0.048 

Solder  Joints 

2 

0.0003 

0.0006 

TOTAL 

—>0.0948 

LSI  Board  Module 

Coax  Connections 

1,260 

0.0028 

3.528 

Vi  as 

18,500 

0.00005 

0.925 

Ceramic  Capacitors 

330 

0.002 

0.660 

Solder  Joints 

660 

0.0003 

0.198 

TOTAL 

—>5.311 

F TOOK  Module 

F100K  Device 

1 

0.0240 

0.024 

Terminators 

3 

0.001 

0.003 

Vias 

30 

0.00005 

0.0015 

Solder  Joints 

24 

0.0003 

0.0072 

TOTAL 

—>0.0357 

Average  Auxiliary  Board 

Module 

Edge  Connectors 

338 

0.002 

0.676 

Ceramic  Capacitors 

150 

0.002 

0.30 

Solder  Joints 

300 

0.0003 

0.09 

FIOOK/Board  (weighted  avg.)  45 

0.0357 

1.607 

TOTAL  -->2.673 


Failure  Rate 

Total 

-6 

-6 

Qty . 

(xIO  ) •• 

(xIO 

Bus  Board  Assembly 

• 

Tantalum  Capacitors 

15.0 

0 .-0-1 4 

2.10 

So-l"der  Joints 

300 

0.0003 

0.09 

TOTAL  —>2.19 

VII.  RAM  Module  (4096-bit  ECL) 

RAM  Device 
Solder  Joints 
Vias 

Connector  Pins 

TOTAL  —>0.0784 


1 0.07  0.07 

18  0.0003  0.0054 

22  0.00005  0.0011 

0.94  0.002  0.0019 
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Component  Elemental  Failure  Rates 
Used  in  FMP  Evalua-tion 


6 

Failures  per  10  hrs. 
0*087 
0.024 
0.07 
0.463* 

0.926** 

0.02 


Other  Components 

Ceramic  Capacitor  0.002 

Tantulum  Capacitor  0.014 

Terminators  0.001 

Vias  (Printed  Wiring  Boards)  0.00005 

Solder  Joints  0.0003 

LSI  Connector  0.104 

Edge  Board  Connection  0.002/pin 

Zero  Insertion  Force  Connector  0.113 

Coaxial  Connector  0.0028 


* MOS  failure  rate  is  based  upon  MIL-HDBK-217B  and  CDC 
experience.  **  Since  no  reliability  information  is  yet 
available  for  CCD  storage  circuits,  the  failure  rate  is 
estimated  to  be  twice  that  of  the  MOS  RAM  devices. 


Semiconductors 
LSI  Array 
F100K  Array 
ECL  RAM 
MOS  RAM  (65K) 
CCD  Array 
TTL  SSI 
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RELIABILITY.  AVAILABILITY  AND  MAINTAINABILITY 
PARAMETER  VALUES  IN  HARDWARE  ANO  SOFTWARE 


1.0  SCOPE 

1.1  purpose  - This  standard  defines  methods  of  establishing  Reliability,  Availability 
and  Maintainability  (RAM)  parameter  values  required  by  CDC  Std  1.12.006  - Specifying 
and  Measuring  RAM,  by  using  reliability  prediction  techniques.  The  use  of  the  types 
cf  predictions  described  will  provide  a consistency  and  commonality  for  evaluating 
the  predicted  RAM  performance  of  a product  during  its  evolution.  Use  of  the  rates 
and  factors  contained  in  Appendices  A and  B will  provide  a common  base  of  design 
information  for  performing  MTBF  predictions. 

1.2  Applicability  - This  standard  applies  to  all  products  intended  to  be  offered  for  sale 

or  lease  by  CDC  unless  specifically  excluded  by  customer  contractual  conditions.  The 

use  of  "products”  in  this  document  refers  to  modules,  equipments*,  software,  products, 
subsystems  and  systems. 

1.3  sf fectivity  - This  standard  is  effective  immediately  upon  its  release.  This  standard 
supersedes  Standard  Bulletin  DO 03. 

1.4  Authority  - The  enforcement  of  this  standard  is  in  accordance  with  CDC  Policy  10:04:00. 

The  interpreting  authority  for  this  standard  is  the  General  Manager,  CDC  Technical 

Standards. 

2.0  APPLICABLE  DOCUMENTS 

2.1  Referenced  Documents 

CDC— POLICY  10  t04  sO  0 - CDC  Technical  Standards 

CDC-STD  1.12.006  - Specifying  and  Measuring  RAM  (Not  yet  released) 

CDC— STD  1.12.999  - Glossary  of  RAM  Terms  (Not  yet  released) 

MIL-HDBK-217B  - Reliability  Prediction  of  Electronic  Equipment 
MIL-STD  75 6 A - Reliability  Prediction 

CDC- Tech  Memo  19  - Reliability  Growth  Prediction  Procedure 
Proceedings  of  1968  Symposium  on  Reliability 

2 . 2 Related  Documents 

CDC- Tech  Memo  6 - Reliability  Goals 
MIL-HDBK-472  - Maintainability  Prediction 
CDC  Pub-60435200  - Investment  Decision  Model 

3.0  GLOSSARY 

Refer  to  CDC-STD  1.12.999  - Glossary  of  RAM  Terms. 

4.0  REQUIREMENTS 

Expected  RAM  parameter  values,  when  specified  in  the  following  controlling  documents, 
shall  be  determined  (predicted)  using  the  types  of  predictions  and  failure  rates 
established  by  this  standard  (See  Figure  1).  Also,  where  predictions  are  required 
as  a part  of  a design  evaluation  or  system  evaluation,  the  types  established  by 
this  standard  shall  be  used  so  consistency  is  maintained  m comparative  situations. 
Note:  Design  and  Release  predictions  are  only  applicable  to  hardware  MTBF  pre- 

dictions. (See  Expository  Remarks  no.  2 and  -no.  3) 


Approved  bv 


D.L.  Bickel,  Vice  President 
Operations  Services,  Computer  Group 
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F^ure  i - TYPES  OF  RAM  PREDICTION  ASSOCIATED  WITH  VARIOUS  CONTROLLING  DOCUMENTS 
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4.1  Strategy  and  Marketing  Documents  - Reliability  parameters  to  be  specified  in  Strategy 
and  Marketing  Requirement  Documents  shall  be  based  on  a Market  Analysis.  (See  6.1) 

4.2  Design  Objectives  Documents  - Reliability  parameters  to  be  specified  m Design  Objectives 
Documents  shall  be  based  on  a tradeoff  between  capabilities  of  the  design  and  the 
market  needs  as  expressed  in  the  strategies  and  marketing  requirements*  The  RAM 
values  specified  in  Design  Objective  documents  will  give  priority  to  market  needs 
versus  capabilities  of  design.  (See  6.1,  6.2,  and  6.3) 

4.3  Design  Requirements  Documents  - RAM  parameters  to  be  specified  in  Design  Require- 
ments Documents  shall  be  based  on  the  design  and/or  extrapolated  predictions  (see 

6.2  and  6.4). 

4.4  Engineering  Specifications  Documents  - RAM  parameters  to  be  specified  in  Engineering 
Specification  documents  shall  be  design  or  release  predictions.  Should  the  design 
or  release  RAM  parameter  values  not  meet  the  Design  Requirement  values  (see  6.2  and 
6.4),  a decision  must  be  made  to  either  hold  the  manufacturing  release  and  continue 
the  design  activity  or  change  the  Design  Requirement  values  to  agree  with  the  release 
values  by  formal  DR  revision  and  approval. 

4.5  Certification  - MTBF  predictions  used  for  validating  hardware  for  release  shall  be 
Release  Predictions.  (See  6.5) 

s.n  RESPONSIBILITIES 

As  with  other  standards,  responsibility  for  implementation  and  enforcement  rests 
with  division  management.  Responsibility  for  updating  failure  rates  and  application 
factors  is  defined  in  the  last  paragraph  of  the  Preface  to  Appendix  A. 

6.o  PROCEDURE 

6*1  Market  Analysis  - The  market  analysis  approach  of  establishing  a RAM  requirement  is 

based  on  an  analysis  of  market  need  and  competition.  Analysis  of  CDC  and  competitive 
RAM  performance  trends  and  expected  technological  advancements  are  also  to  be  used 
in  this  prediction. 

6.2  Extrapolated  Predictions  - Extrapolated  predictions  are  projections  based  on  histori- 
cal data  on  similar  Control  Data  and  competitive  products.  Known  RAM  data  on 
similar  or  predecessor  products  and  the  growth  characteristic  of  such  data  are  used 
to  extrapolate  or  ’’predict"  the  RAM  values  for  the  proposed  product.  The  extra- 
polated prediction  is  not  based  on  a compilation  of  component/part  failure  or 
repair  rates. 

6.3  Allocated  Predictions  - Allocated  predictions  are  RAM  requirements  assigned  to 
individual  products  to  attain  a desired  overall  system  RAM.  These  types  of  pre- 
dictions are  suitable  where  the  overall  system  RAM  and  some  product  ram  requirements 
are  specified  and  the  remaining  product  RAM  requirements  are  to  be  determined. 

6.4  Design  Predictions  - (Applicable  only  to  hardware  MTBF  predictions)  Design  predic- 
tions are  based  upon  a design  strategy  as  represented  by  a reliability  block  diagram. 
Design  predictions  produce  inherent  MTBF  values  which  must  be  translated  into 
expected  observed  predictions  by  use  of  K factors.  The  specific  K factor  used  and 
the  rationale  for  its  selection  should  be  documented  as  part  of  the  prediction. 

(See  Expository  Remark  1)  The  procedure,  using  MIL— STD  756A  - Reliability  Prediction, 
as  a guideline  for  preparing  a design  prediction  is  as  follows s 

6.4.1  Product  Definition  - The  product  for  which  the  prediction  is  being  made  is  defined 
in  terms  of: 

- functional  and  physical  boundaries 

- conditions  which  constitute  failures 

- conditions  under  which  the  product  is  to  operate 

- required  maintenance  conditions 

6.4.2  Reliability  Block  Diagram  and  Reliability  Model  - From  the  descriptions  of  the 
product  definition,  above,  a reliability  block  diagram  is  constructed.  Each  block 
of  the  diagram  is  identified  and  any  assumptions  and  simplifications  are  clearly 
stated-  A mathematical  equation  (model)  is  derived  based  upon  the  relationships 
described  by  the  block  diagram.  (see  6.4.4  for  applicable  assumptions) 
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6*4.3  Computed  MTBF  - An  estimate  of  the  quantity  of  parts  comprising  each  functional 

block  of  the  Reliability  Block  Diagram  is  derived.  Based  upon  the  Component/Parts 
Failure  Rate  Table  (Appendix  A) , an  evaluation  of  the  failure  rate  for  each  block 
is  made.  These  functional  block  failure  rates  are  used  in  the  mathematical  equa- 
tion to  compute  the  design  prediction  of  the  subject  product. 

6.4.4  Prediction  Assumptions  - For  the  purposes  of  this  standard,  failure  rates  of 

individual  blocks  or  components/parts  within  a block  are  assumed  to  be  constant 
with  respect  to  tine  so  that  mean  time  between  failure  (MTBF)  is  the  reciprocal  of 
mean  failure  rate.  By  this  assumption,  infant  mortality  and  wear  out  are 
excluded. 

Unless  otherwise  stated  in  specific  reliability  predictions,  mean  failure  rates 
of  components/parts  and  their  application  environments  are  those  identified  an 
Appendices  A and  B of  this  standard. 

Each  device  denoted  by  a block  in  a reliability  block  diagram  is  assumed  to  be 
independent  from  all  other  blocks  with  regards  to  probability  of  failure. 

The  inherent  predictions  assume  the  design,  manufacturing  and  service  is  perfect 
and  m accordance  to  all  applicable  standards,  and/or  guidelines  unless  specifi- 
cally stated  otherwise. 

6.5  Release  Predictions  - (Applicable  only  to  hardware  MTBF  predictions)  Release  pre- 
dictions are  based  upon  the  completed  design.  A release  prediction  is  the  most 
accurate  prediction  because  it  includes  information  from  detailed  schematics , 
detailed  environmental  data,  firm  parts  selection,  and  detailed  application  data. 

Release  predictions  produce  inherent  MTBF  values  which  must  be  translated  into 
expected  observed  predictions  by  use  of  K factors.  The  specific  k factor  used  and 
the  rationale  for  its  selection  should  be  documented  as  part  of  the  release  pre- 
diction. (See  Expository  Remark  1) 

The  procedure*  using  MIL— STD  7S6A  - Reliability  Prediction,  as  a guideline,  for  developing 
a release  prediction  is  the  same  as  for  a design  prediction  (see  6.4)  with  the  following 
additional  considerations. 

6.5.1  Product  Definition  - This  definition  will  represent  the  actual  configuration  and 
include  the  conditions  of  manufacturing,  shipping  and  handling,  and  maintenance  and 
operating  procedures. 

6.5.2  Reliability  Block  Diagram  and  Reliability  Model  — The  assumptions,  constraints 
and  s implications  of  the  block  diagram  and  mathematical  model  are  based  upon  the 
detailed  schematics  and  the  conditions  in  the  product  definition.  (See  6.4.4  for 
applicable  assumptions) 

6.5.3  Computed  MTBF  — The  types  and  quantities  of  parts  comprising  each  block  are  derived 
from  the  detailed  parts  list  of  the  product.  Failure  rates ~ for  the  comoonents  are 
listed  in  the  Component/Parts  Failure  Rate  Table  (Appendix  A) . State  the  failure 
rates  used  when  the  component/parts'  are  not  listed  in  Appendix  A or  where  stress 
factors  other  than  the  nominal  stress  environment  (Appendix  B)  exist  for  particular 
componen  ts . 
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APPENDIX  A 

COMPONENT/PIECE  PART  FAILURE  RATES 
PREFACE 


The  failure  rates  listed  in  the  following  table  reflect  current  capabilities  of  the 
individual  components/piece  parts  under  nominal  stress  levels.  These  failure  rates  are 
to  be  used  in  predictions  as  required  and  discussed  in  the  prediction  standard  to  which 
this  appendix  is  attached.  Prior  to  the  use  of  the  following  tables#  it  is  strongly 
recommended  that  the  preface  be  read  in  full  in  order  to  obtain  a clear  understanding  of 
the  basis  and  underlying  assumptions  to  the  failure  rate  data. 

Failure  Definition/Units 


When  using  the  enclosed  failure  rates#  note  that  the  term  "failure1'  is  defined  as  an  open# 
short,  or  parameter  change  greater  than  specified  tolerance*  These  rates  are  based  primarily 
on  solid  failures  and  do  not  necessarily  include  the  effect  of  intermittents  and  transients. 
The  failure  rates  are  inherent  failure  rates  for  each  generic  part  type.  The  term  "inherent" 
is  defined  to  mean  the  reliability  that  will  be  observed  on  a mature  component  in  a mature 
application.  Both  the  component  and  the  application  have  had  sufficient  power-on  time 
to  have  passed  "infant  mortality”.  When  calculating  observed  failure  rates  to  compare 
to  these  inherent  numbers,  the  calculation  should  be  done  to  a 60%  confidence  level. 

The  units  of  measurement  for  failure  rate  is  "failures  per  million  hrs." 

Stress  Levels 


The  inherent  failure  rates  are  defined  for  nominal  stress  conditions.  Assumptions  include 
a junction  temperature  of  45 °C  and  unless  otherwise  specified  all  semiconductor  packages 
are  hermetically  sealed.  All  components  are  assumed  to  be  in  a ground  benign  environment 
winch  is  defined  by  nearly  zero  environmental  stress  with  optimum  engineering  operation  and 
maintenance. 

source  of  Data 


The  failure  rate  source  codes  are  A-CDC  data?  Brother  Manufacturer’s  data;  C -Component 
Industry  data?  D-Defense  (MIL-HDBK-217B)/NASA?  and  E-Engineering  judgment.  They  are 
listed  in  their  order  of  precedence.  The  roost  accurate  data  applicable  to  the  types  of 
components  and  equipment  that  CDC  uses  and  produces  is#  naturally#  data  from  existing  CDC 
equipment.  Military  data,  generally  being  compiled  from  environments  and  equipment 
different  from  those  of  CDC  and  manufacturers  of  equipment  similar  to  CDC’s  carries 
somewhat  less  weight.  When  no  data  exists  to  support  an  inherent  failure  rate  for  a 
component,  an  engineering  judgment  must  be  made.  It  is  based  on  a reliability  comparison 
with  a component  which  has  a known  failure  rate.  Factors  which  influence  this  comparison 
include  electrical  complexity,  power  dissipation,  technology  employed  with  its  associated 
strengths  and  weaknesses,  and  materials. 

Updating  Responsibilities 

As  a result  of  manufacturers  continuously  improving  their  products  {components/piece 
parts)  and  users  becoming  more  sophisticated  in  the  application  of  those  products,  a 
continual  change  m the  failure  rates  of  those  components/piece  parts  can  be  expected. 

In  order  to  stay  abreast  of  these  changes,  it’s  necessary  to  implement  a mechanism  for 
providing  periodic  updates  to  this  appendix.  The  primary  input  for  this  mechanism  will 
be  the  users  of  the  data  contained  herein.  All  such  users  are  strongly  urged  to  submit 
recommended  changes  which  they  believe  would  improve  the  validity  of  the  tables1  contents. 
Such  change  should  be  sent  to  CDC  Technical  Standards  m care  of  J.  E.  Mikkonen#  HQWllH, 
with  a discussion  of  the  recommended  changes  and  supportive  data  on  the  change.  No  more 
frequent  than  quarterly,  all  such  changes  will  be  reviewed  by  Reliability  Engineers  from 
various  CDC  divisions.  At  the  completion  of  a successful  review  process#  an  updated 
failure  rate  table  will  be  published  and  distributed. 
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COMPONENT/PART  FAILURE  RATES 


Component/Part  Failures 

_Descrip tion  ‘ Per  Million  Hours 

Section  1 Microcircuits 


ECL  10K  SSI 

* 0 1 

ECL  10K  MSI 

*01 

ECL  10K  Transmitters/ 

,02 

Receivers/ 

Interface 

Circuits 

ECL  10K 

10101 

.0094 

10102 

.0094 

10105 

,0080 

10107 

.0080 

10109 

.0065 

10110 

• 0065 

10114 

.0080 

10117 

.0094 

10121 

• 0094 

10124 

• 0094 

10125 

.0094 

10129 

.03 

10130 

.012 

10131 

.013 

10133 

.019 

10135 

.02 

10136 

.035 

10141 

.032 

10145 

.01 

10160 

,015 

10161 

.017 

10164 

.017 

10165 

.030 

10166 

,023 

10173 

. 02  X 

10176 

.018 

101-79 

.017 

10181 

.045 

10192 

.03 

10800  Micro  Processor 

.15 

10803  Interface  Memory 

.83 

ECL  10K  RAMS 

256  bits 

.03$ 

1024  bits 

.07 

Source 

Code 


A/c 

A/C 

A/C 


D 

0 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D 

D/E 

D/E 


C/D 

C/D 
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Change 

Date 


1/3/77 

1/3/77 

1/3/77 


3/7/77 

3/7/77 

3/7/77 

3/7/77 

3/7/77 

3/7/77 

3/7/77 

3/7/77 

3/7/77  ■ 

3/7/77 

3/7/77 

3/7/77 

3/7/77 

3/7/77 

3/7/77 

3/7/77 

3/7/77 

3/7/77 

5/15/78 

3/7/77 

3/7/77 

3/7/77 

3/7/77 

5/15/78 

3/7/77 

5/15/78 

3/7/77 

3/7/77 

3/7/77 

11/10/77 

11/10/77 


1/3/77 

1/3/77 
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Component/Part 

Description 

ECL  10 OK 
100101 
100102 
100107 
100112 

100114 
100117  * 

100130 

100150 

100151 

100155 

100160 

100170 

100171 

100181 

TTL  SSI 
Ceramic 

Novolac  Plastic 
tfon-»  Novo  lac  Plastic 

TTL  MSI 
Ceramic 

Movolac  Plastic 
Non-Hovoiac  Plastic 

TTL  Transmitters/ 
Receivers/ 
Interface  Circuits 
Ceramic 

Novolac  Plastic 
Non-ttovolac  Plastic 

TTL  RAMS 
256  bit 
1024  bit 

TCS 

Ceramic 

Non^Novolac  Plastic 

DTL 

Ceramic 

Non-Novolac  Plastic 

MGS  RAMS 
256  bit 
1024  bit 
4096  bit 
16394  bit 

LINEAR 
Op  Amps 
Sense  Amps 

Simple  NPN  Darlington 
AMP 

Voltage  Regulators 
Digit  Drivers 


Failures 

Per  Million  Hours 


.0080 
* 012 
.012 
c010 

.012 

.015 

.029 

.040 

.040 
.038 
© 018 
.030 

.022 

.089 


oQ2 

.04  . 

.07 


.03 

©06 

©105 


.03 

©06 

.105 


.035 

.07 


.01 

.2 


.01 

.3 


.035 

.07 

.2 

.444 


.05 

.05 

.075 

.07 

.05 


Source  Change 

Date 


D 

3/7/77 

D 

3/7/77 

D 

3/7/77 

D 

3/7/77 

D 

3/7/77 

D 

3/7/77 

D 

3/7/77 

D 

3/7/77 

D 

3/7/77 

D 

3/7/77 

0 

3/7/77 

D 

3/7/77 

D 

3/7/77 

D 

3/7/77 

A/C 

c 

1/3/77 

B/C 

1/3/77 

A/C 

c 

1/3/77 

c 

1/3/77 

D 

1/3/77 

C 

1/3/77 

C 

1/3/77 

C/D 

1/3/77 

C/D 

1/3/77 

A 

4/12/76 

A 

4/12/76 

c 

c 


C/D 

A/C 

C/D 

A/D 


1/3/77 

1/3/77 

1/3/77 

5/15/78 


E 

E 

E 

E 

E 
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Component/Part 

Description 

Failures 

Per  Million  Hours 

Source 

Code 

ROMS 

256  bit 

. 02 

D 

1024  bit 

.047 

D 

Section  2 Discrete  Semiconductors 

Silicon  Transistors 

Logic  NPN 

.006 

A 

PNP 

.009 

A/D 

Memory  NPN 

.04 

. A 

PNP 

.06 

A/D 

Power  NPN 

.1 

C 

PNP 

.15 

A/D 

| Dual  Logic  npn 

.01 

E 

| Darlington 

.08 

D 

Quad  Memory  NPN 

Novolac  Plastic 

.32 

C 

ceramic 

o 16 

m A 

u-T  Au-Al  White  Cap 

.006 

A 

u-T  Au-Au  Black  Cap 

.0015 

A 

u-T  Au-Ai  Red  Cap 

.0015 

A 

u-T  Au-Al  Yellow  Cap 

.0015 

A 

u-T  Au-Al  Blue  Cap 

c 002  6 

A 

u-T  Au-Al  Green  Cap 

.0043 

A 

Germanium  Transistors 

Logic  NPN 

.025 

A/D 

PNP 

.009 

A/D 

Memory  NPN 

.2 

A/D 

PNP 

.07 

C 

Power  NPN 

.8 

A/D 

PNP 

.3 

C 

FET 

.076 

D 

Silicon  Diode 

Logic 

.00024 

A 

Germanium  Diodes 

Logic 

.0024 

A 

Silicon  Power 

Rectifier 

.2 

C 

Saner  Diode 

.027 

D 

SCR 

.04 

C 

Thyristor 

.023 

0 

Thermistor 

.01 

c 

LED  plastic 

.2 

c 
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Change 

Date 


1/3/77 

1/3/77 


4/12/76 

1/3/77 

4/12/76 

1/3/77 

4/12/76 

1/3/77 

4/12/76 

12/1/77 


1/3/77 

1/3/77 

4/12/76 

1/3/77 

4/12/76 

4/12/76 

4/12/76 

4/12/76 


1/3/77 

1/3/77 

1/3/77 

4/12/76 

1/ 3/7-7 

4/12/76 

4/12/76 


4/12/76 


4/12/76 


4/12/76 
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Component/ Pa r t 

-Failures 

Source 

Change 

Description 

Per  Million  Hours 

Code 

Date 

Section  3 Resistors 

Carbon  Comp  1/8  w 

.00045 

A/D 

4/12/76 

1/4  w 

o 00002 

A 

1/2  w 

. 0008 

C/E 

1 w 

.0008 

C/E 

2 w 

.004 

C/E 

3 w 

.004 

C/E 

Wire  Wound  1 w 

.01 

C/E 

2 w 

.01 

C/E 

3 w 

.02 

• C/E 

5 w 

.02 

C/E 

Variable  1/2  w 

.02 

C/E 

Wire  Wound  1 w 

.02 

C/E 

2 w 

.02 

C/E 

3 w 

.04 

C/E 

5 w 

.1 

C/E 

Metal  Film  1/8  w 

.002 

C/E 

1/4  w 

• 002 

C/E 

1/2  w 

.004 

C/E 

1 w 

Terminators 

Thin/Thick 

Film 

.008 

C/E 

SIP-6  Resistors  + 
1 Capacitor 

.017 

D 

4/12/76 

DIP-12  Resistors  + 
2 Capacitors 

(TE2  & TE7  Type) 

.022 

A 

4/12/76 

DIP-12  Resistors  + 

2 Capacitors 

(R100  & R500  Type) 

.014 

A/D 

4/12/76 

Section  4 Capacitors 

Ceramic 

.002 

A 

4/12/76 

Electrolytic,  Aluminum 

.02 

A 

Electrolytic,  Paper 

.1 

A 

Mica  dipped 

.0003 

D 

4/12/76 

Mica  molded 

.003 

D 

4/12/76 

Mica  button 

.12 

D 

4/12/76 

Mylar 

.001 

D 

4/12/76 

Paper/Plastic 

.0002 

D 

4/12/76 

Paper /Plastic 

.0002 

D 

*4/12/76 

Tantalum 

.014 

A 

4/12/76 

Variable  Air 

.1 

D 

4/12/76 

Section  5 Inductive  Devices 

Indue  tor  s/Chokes 

.018 

A 

4/12/76 
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Source 

Change 

Code 

Date 

Pulse  Transformers 

Discrete 

,01 

A 

Encapsulated 

. 005/core 

A 

Hybrid  (TROO  Type) 

.02 

D 

4/12/76 

4/12/76 

4/12/76 


Power  Transformers 

.0075 

RF  Transformers 

.0096 

Contactors 

.11 

Relays,  General  Purpose 

.13 

Motors 

1.0 

D 

D 

A/E 

D 

D 


4/12/76 

4/12/76 

5/15/78 

4/12/76 

4/12/76 


Section  6 Connectors/Connections 
Edgeboard  Connector 


Mainframe  Environment 

.002  per  pin 

A 

1/3/77 

Peripheral*  Environment 

.006  per  pm 

A 

1/3/77 

PC  board  conn.  (3500  style) 

.0036  per  pin 

A 

1/3/77 

PC  board  conn.  (6000  style) 

.002  per  pin 

A 

1/3/77 

PC  board  conn.  (7000  style) 

.0017  per  pin 

E 

1/3/77 

Conn.  Pins,  cable  Connector 
Coax  Connector  (includes  inner 

.00013  per  pin 

and 

A 

outer  contact) 

.0014 

C/E 

1/3/77 

Power  Connector 

.002  per  pin 

E 

1/3/77 

DIP  Sockets,  gold 

single  contact 

.003  per  pin 

E 

1/3/77 

dual  contact 

.002  per  pin 

A/E 

1/3/77 

Multiple  contact 

.001  per  pin 

E 

1/3/77 

Solder  Joints 

Plated  thru  hole 

.00015 

A/D 

1/3/77 

Surface/lap 

.0003 

A 

1/3/77 

Won-plated  thru  hole 

.00044 

D 

1/3/77 

Other  hand  solder 

.0044 

D 

1/3/77 

Taper  Pins 

.00017 

A 

1/3/77 

Wire  Wraps 
Crimp  Joints 

.0000037 

.000132 

D 

1/3/77 

Section  7„,  Ref  rig  era  t ion  and,_CQoling 


Regulator,  Hot  Gas  Bypass 

2<  650 

Valve,  Water  Regulating 

2.650 

Valve,  Expansion 

.589 

Valve,  Angle,  Refrigeration 
Valve,  Solenoid  (MB1452) 

1.990 

Valve,  Solenoid  (MB952) 

1.990 

Condenser 

2.650 

Compressor,  2 -Ton 

1.330 

Filter,  Drier 

.300 

Fitting,  Fusible  Half-Union 

2.650 

Gauge,  Pressure 

1.300 

Control,  Dual  Pressure 

.320 

Eliminator,  Vibration 

.039 

Joints,  Flare 

.040 

Joints,  Threaded 

.040 

Quick  Disconnect 

.800 

A/E 

5/15/78 

A/E 

5/15/78 

A/E 

S/1S/78 

A/E 

5/15/78 

A/E 

5/15/78 

A/E 

5/1S/78 

* A/E 

5/15/78 

C 

5/15/78 

A/E 

5/15/78 

A/E 

5/15/78 

C 

5/15/78 

C 

5/15/78 

C 

C 
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Component/Par  t 

Failures 

Source 

Change 

Description 

Per  Million  Hours 

Code 

Date 

Thermostat 

• 250 

C 

Thermistor 

* 600 

C 

Distributor 

.140 

C 

Condensing  Unit  (2-Ton) 

20.200 

C/A/E 

Condensing  Unit  (3-Ton) 

20.200 

C/A/E 

Condensing  Unit  (5-Ton) 

20.200  . 

C/A/E 

Blower  Assembly 

6.0 

D 

4/12/76 

Muffin  Pan 

2.4 

E 

4/12/76 

Section  8 Miscellaneous 

Circuit  Breakers 

.16 

C 

4/12/76 

Delay  Lines 

.054 

A 

Fuses 

cl 

D 

4/12/76 

Lamps , Neon 

.2 

D 

4/12/76 

Lamps,  Incandescent 

1.0 

C/D 

4/12/76 

Memory  Cores 

.0000014 

A 

4/12/76 

Switches,  Rotary 

.42 

D 

4/12/76 

Switches,  Toggle 

.17 

D 

4/12/76 

Quart2  Crystals 

.2 

D 

4/12/76 

Wire  Jumpers 
Printed  Wiring  Boards 

e 00013 

A 

Multilayer 

.00005  per  plated 
thru  hole 

A 

1/3/77 

Two  sided 

.000006  per  plated 
thru  hole 

D 

1/3/77 

Multi wire  (thin) 

.0018  per  hole 

12/1/77 

Multiwire  (thick) 

♦0107  per  hole 

12/1/77 
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APPENDIX  B 

COMPONENT  APPLICATION  FACTORS 


The  standard  component  failure  rates  in  Appendix  A are  established  in  consideration  of 
standard  application  environments . Application  m either  a more  relaxed  or  more  severe 
operating  environment  normally  will  affect  the  failure  rate.  The  presentation  of  this 
data  is  that  the  majority  of  components  m any  given  equipment  will  be  operated  at  or 
below  these  conditions*  New  input  to  keep  this  data  current  with  the  state  of  the  art  is 
solicited  for  consideration  m future  revisions. 

General  - Cooling  Air  Temperature:  25°c 

Semiconductors 

Integrated  Circuits 

Operating  Junction  Temperature  45°C 

Operating  Voltage  - Digital  Circuits  +5%  of  mfg.  nominal 

- Linear  Circuits  75%  of  maximum  rating 

Transistors,  Silicon 

Operating  Junction  Temperature 
Voltage  and  Current  Ratings 

Diodes  & Rectifiers,  Silicon 

Operating  Junction  Temperature 
Voltage  and  Current  Ratings 

Resistors 


25 °C  below  maximum  rating 
75%  of  maximum  rating 


25 °C  below  maximum  rating 
75%  of  maximum  rating 


Carbon  Composition;  Carbon  Film;  Metal  Film;  and  Wire  Wound,  Power 


Power  Dissipation 
Operating  Voltage 

Capacitors 

Ceramic,  Glass,  Paper,  Mylar,  Mica 

Operating  Voltage 

Electrolytic 

Operating  Voltage 
Ripple  Current  Effect 

Tantalum 

Operating  Voltage 

Transformers  & Inductors 

Operating  Temperature 
Voltage  Rating 

Fuses 


50%  of  maximum  rating 
75%  of  maximum  rating 


75%  of  maximum  rating 


90%  of  working  voltage 
maximum  temperature  rise  of  15°C 
above  ambient 


75%  of  working  voltage 


15 °C  below  maximum  insulation  rating 
75%  of  working  dielectric  rating 


Operating  Current 


75%  of  nominal  rating 


Switches  & Relay  Contacts  (other  than  dry  circuit  conditions) 


75%  of  nominal  rating 
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Appendix  E 


FMP  Logic  Unit  Elemental  Failure  Rates 


I.  Scalar 
Modules 

Auxiliary  Boards 
LSI  Boards. 

LSI  Arrays 
Half  Packs 
Clock  Oscillator 
Bus  Board  Assemblies 


II.  Swap 

Modules 
LSI  Boards 
LSI  Arrays 

Bus  Board  Assemblies 


III.  Intermediate  Map 
Modules 

Auxiliary  Boards 
LSI  Boards 
LSI  Arrays 

Bus  Board  Assemblies 


IV.  Main  Map 
Modules 

Auxiliary  Board 
LSI  Boards 
LSI  Arrays 

Bus  Board  Assemblies 


Quantity 

Failure  Rate 

45 

121 . 19 

16 

-84.98 

,1967 

403.24 

170 

16.12  • 

1 

4.97 

16 

35.04 

TOTAL 

~ > 665.54 

Quantity  Failure  Rate 


2 

10.62 

272 

55.76 

2 

4.38 

TOTAL  — > 

70.76 

Quantity 

Failure  Rate 

10 

26.73  ' 

2 

10.62 

204 

41.82 

2 

4.38 

TOTAL 

— > 83.55 

Quantity  Failure  Rate 


10 

26.73 

3 

15.93 

304 

69.70 

3 

6.57 

TOTAL  — > 118.93 


V.  Memory  Interchange 


Modules 

LSI  Boards 

LSI  Arrays 

Bus  Board  Assemblies 


Quantity 

12 

1632 

12 


Failure  Rate 

S3T73 

334.56 

26.28 


TOTAL  — > 424.57 
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VI 


Vector  Streaming 


Modules 

Auxiliary  Boards 
LSI  Boards 
LSI  Arrays 

Bus  Board  Assemblies 


VII.  Vector 
Modules 

Auxiliary  Boards 
LSI  Boards 
LSI  Arrays 
Bus  Board  Assemblies 


VIII.  Streaming  Control 
Modules 

Auxiliary  Boards 

LSI  Boards 

Bus  Board  Assembly 


IX.  I/O 

Modules 

Auxiliary  Boards 
LSI  Boards 
LSI  Arrays 

Bus  Board  Assemblies 


Quantity 

Failure  Rate 

10 

“ 2S.73 

4 

21.25 

476 

97.58 

4 

8.76 

TOTAL 

— > 154.32 

Quantity  Failure  Rate 


200 

534.6 

45 

239.00 

476'0 

975.80 

45 

98.55 

TOTAL  — > 1847.95 


Quantity 

Failure  Rate 

20 

53.46 

1 

5.31 

1 

2.19 

TOTAL 

— > 60.96 

Quantity 

Failure  Rate 

20 

53.46 

4 

21.25 

408 

83.64 

4 

8.76 

TOTAL  — > 167.11 
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Appendix  F 

Unit  Functional  Failure  Rate 

A unit  which  has  fault  correcting  capability  will  have  a 
functional  failure  rate  different  from  its  elemental  failure 
rate  (See  appendix  A,  CDC-STD  1.12.999 

Glossary  of  Reliability,  Availability,  and  Maintainability 
Terms) . ” 

The  functional  failure  rate  for  the  unit  will  be  the  sum  of  the 
elemental  failure  rate  of  that  portion  not  included  within  the 
fault  correcting  part  plus  the  functional  failure  rate  of  the 
fault  correcting  part. 

To  determine  a unit’s  functional  failure  rate,  the  elemental 
failure  rate  is  first  computed  by  summing  the  products  of  the 
part  type  failure  rates  times  the  number  of  parts  of  each  type 
(see  appendix  E).  From  this  is  subtracted  the  elemental  failure 
rate  of  the  fault  correcting  part  of  the  unit.  To  the  remainder 
is  added  the  functional  failure  rate  of  the  fault  correcting 
part  as  determined  by  the  SECDED  model.  Three  examples  of  these 
computations  are  given  here.  It  should  be  noted  that  scheduled 
maintenance  is  assumed  to  be  once  per  week. for  all  units  except 
Backing  Store,  which  is  assumed  to  be  once  per  day. 

Backing  Store  Unit  (262K-bit  array) 


Failure  rate 


Component 

Quantity 

Unit 

Total 

Storage  Device 

36,864 

.926 

34, 136.06 

Storage  Device 
Connector 

36,864 

.048 

1,769.47 

TTL  Support 
Circuits 

14,400 

.02 

288.00 

Board  Connectors 

144 

.284 

40.90 

Capacitors 

11,520 

.014 

161.28 

Solder  joints 

1,107,856 

.00015 

166.18 

Vias 

1,254,628 

.00005 

62.73 

Unit  Total  Elemental  Failure 

Rate 

36,624.62 

The  configuration  of  the  Backing  Store  is  four  data  bits  per 
replaceable  module  (board)  and  it  is  so  arranged  that  each  data 
bit  is  in  a different  SECDED  sector.  Because  of  this 
arrangement,  the  total  failure  rate  of  the  board  is  divided  into 
four  parts,  each  essentially  totally  corrected  by  SECDED.  The 
elemental  data  bit  failure  rate  used  in  the  SECDED  model  is  the  . 
total  elemental  failure  rate  divided  by  four  times  the  number 
of  boards  (1-44)  in  the  memory.  This  yields  a SECDED  sector 

6 

elemental  data-bit  failure  rate  of  63.58  failures  per  10  hours. 
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The  SECDED  arrangement  of  the  memory  is  eight  sectors  in 
parallel,  each  sector  having  a single  rank  of  72  data  bits.  The 
SECDED  model  derives  a failure  rate  of  230.7  so  the  total 
Backing  Store  has  a functional  failure  rate  of  8 time-s  this  or 
1845.6  and  a functional  MTBF  of  541.8  hrs. 


Main  Memory  Unit 


Component 

Quantity 

Failure 

Unit 

rate 

Total 

Storage  Device 
F100K  Device 
Memory  Interface 
Cabinet 

159,744 

29,120 

(1) 

(2) 

.078 

.035-7 

12,380.2 

1,039.6 

302.2 

576.5 

Elemental  Failure 

Rate 

14,298.5 

Less  Storage  Elemental  Failure 

Rate 

12,380.2 

Remainder 

1,918.3 

Storage  Functional 

Failure  Rate 

6.0 

Main  Memory  Functional  Failure 

Rate 

1924.3 

Main  Memory  Functional  MTBF 


519..67 


The  Main  Memory  Unit  will  utilize  the  CYBER  203  memory  interface 
with  new  storage  units  which  are  now  in  development.  Therefore 
all  but  the  storage  device  elements  are  estimates  based  on 
preliminary  design  configurations. 

1 ) The  failure  rate  for  the  interface  unit  is  that  determined 

-6 

for  the  CYBER  203  _( 254  x 10  ) plus  the  failure  rate  of  156 

-6 

extra  LSI  devices  (48.2  x 10  ). 

2)  The  failure  rate  for  the  cabinet  (power  connections,  filter 
capabilities,  etc.)  is  twice  that  of  the  CYBER  203  since  the 
Main  Memory  will  use  twice  the  number  of  storage  devices  as 
for  a 1 million  word  CYBER  203  using  IK  chips.  (As  mentioned 
before,  a new  memory  chassis  is  currently  being  designed, 
thus  the  inability  to  count  the  expected  number  of  memory 
chassis  for  the  FMP.) 
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Transfer  Units  (Main  Map,  Memory  Interchange,  Vector  Streaming) 


Main  Map  Unit  elemental  failure  rate  118.3 
Memory  Interchange  elemental  failure  rate  424..  6 
Vector  Streaming  Unit  elemental  failure  rate  153-7 


Total  elemental  failure  rate  696.6 


The  transfer  pa.th  elemental  failure  rate  is  based  upon  the 
following  assumptions: 

1)  The  transfer  path  is  made  up  of  14  devices  in  series. 

2)  There  are  6 parallel  data  transfer  bits  per  device. 

3)  0.8  of  a device  comprise  the  transfer  paths;  the  other 
0.2  is  in  control  logic  (not  corrected  by  SECDED). 

4)  There  are  16  39-bit  SECDED  units  comprising  the  total 
transfer  path  (512  information- bits) . 

The  equivalent  failure  rate  of  a transfer  bit  within  a device  is 
one  sixth  of  0.8  of  the  LSI  device  module  failure  rate  plus  the 
proportionate  failure  rate  of  coax  connections  and  vias.  (See 
appendix  B,  LSI  Board  Module.  Use  the  failure  rate  of  coax  and 
vias  divided  by  150  — the  -number  of  LSI  devices  per  board.) 

device  bit  failure  rate  = (0.205  + 0.030)0.8/6  = 0.0313 

The  total  bit  transfer  path  failure  rate  is  14  times  this  value 
= 0.439-  (This  value  is  used  in  the  SECDED  model.)  There  are  39 
bits  in  a SECDED  sector,  and  16  sectors  make  up  the  width  of  the 
transfer  path. 

Transfer  path  total  elemental  failure  rate  = 0.439  x 39  x 16  = 273*7 

The  functional  failure  rate  of  the  transfer  path  is  calculated 
from  the  SECDED  model  with  one  rank  (n  = 1)  and  an  elemental 
failure  rate  of  0.439.  This  calculation  yields  a failure  rate 
of  2.73. 

The  Transfer  Units  functional  failure  rate  is: 


Total  elemental  failure  rate  696.6 

Less  the  Transfer  Path  elemental  failure  rate  - 273.7 

Remainder  422.9 

Plus  the  Transfer  Path  functional  failure  rate  + 2.7 

Transfer  Path  functional  failure  rate  425.3 
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In  a similar  manner,  the  functional  failure  rates  of  the  other 
transfer  paths  are  computed  using  the  following  assumptions: 

1)  The  Swap  Unit  transfer  path  is  512  data  bits-  wide  and 
is  composed  of  eight  72-bit  (including  check  bits)  wide 
SECDED  units  in  parallel.  The  SECDED  unit  is  three  LSI 
devices  deep  (that  is,  the  transfer  path  has  three 
devices  in  series)  but  for  model  computation  purposes 
it  is  treated  as  a single  rank  with  each  device  having 
a failure  rate  of  three  times  .that  of  a single  LSI 
device. 

2)  The  Intermediate  Map  Unit  transfer  path  is  256  data 
bits  wide  and  is  composed  of  four  72-bit  wide  SECDED 
units  in  parallel.  The  transfer  path  has  three  devices 
in  series  but  for  model  computation  purposes  it  is 
treated  as  a single  rank  with  each  device  having  a 
failure  rate  of  three  times  that  of  a single  LSI 
device . 

3)  A translation  from  a 72-bit  SECDED  sector  to  two  39-bit 
SECDED  sectors,  and  vice  versa,  is  considered  to  take 
place  at  the  interface  of  the  Intermediate  Map  Unit  and 
the  Main  Map  Unit.  The  translation  is  accomplished  by 
check  and  generation  circuits. 
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Appendix  G 
The  SECDED  Model 

The  model  for  computing  the  functional  failure  rate  of  a SECDED 
unit  is  developed  from  the  basic  reliability  formulas: 

-Xt 

1 = R + Q and  R = e 

where  R is  the  probability  of  success,  that  is,  the  probability 
of  no  failures;  Q is  the  probability  of  encountering  a failure;  X 
is  the  failure  rate  of  an  element;  and  t is  the  time  interval  in 
question.  The  probability  of  success  or  failure  for  a rank  of  c 
elements  is 


(c-2)  2 

c c (c-1)  c ( c- 1 ) R Q_  e 

( R+Q ) = R + cR  Q + 2!  + • • • +Q 

Since  the  first  term  is  the  probability  of  no  failures  occurring 
and  the  second  term  is  the  probability  of  exactly  one  failure 
occurring  (which  is  correctable  and  therefore  not  a functional 
failure) , the  probability  of  no  functional  failures  in  the  rank 
of  elements  within  a SECDED  sector  of  c bits  is 

c (o-l) 

R + cR  Q 

The  probability  of  no  functional  failures  occurring  within  a 
SECDED  unit  of  n ranks  is 


c ( e- 1 ) n 

P = (R  + cR  Q) 

This  equation  is  solved  arithmetically  with  the  values  for  X 


-Xt 

and  t (in  the  equations  R = e and  Q = 1 - R)  set  to  the 

failure  rate  of  the  component  and  the  maintenance  interval, 
respectively. 

If  P is  the  probability  of  no  failures  in  a SECDED  unit  and  F is 
the  functional  failure  rate  of  the  unit,  then 


-Ft 

P = e s 1 - Ft  (for  Ft<0 . 05 ) and 

1 - P 
F = t 

(Throughout  this  study  the  worst  case  condition  of  a whole  chip 
failing  has  been  used  for  memory  failures  since  the  predominant 
modes  of  partial  chip  failure  are  not  conclusively  known.  If  it 
is  desired  to  consider  partial  chip  failures,  the  component 
failure  rate  should  be  multiplied  by  the  value  of  the  average  or 
major  mode  of  partial  chip  failure  and  the  number  of  ranks 
divided  by  that  value.) 
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Appendix  H 


SYSTEM  FUNCTIONAL  AVAILABLITY  AND  RELIABILITY 


The  functional  availablity-reliability  of  the  NASF  system  can  be 
determined  for  a user  if  the  following  use  and  system  parameters 
are  known. 

1.  Run  or  use  time  of  the  user  program. 

2.  The  system  components  required  by  the  user  program  and 
the  portion  of  time  the  program  is  "in"  each 
component . 

3.  The  amount  of  time  of  system  overhead  (e.g.  operating 
system  or  controlware)  for  each  of  the  programmable 
components . 

4.  The  functional  failure  rate  and  mean  down  time  (MDT) 
for  each  system  component.  The  MDT  for  a non-redundant 
component  is  its  MTTR.  The  MDT  for  a redundant 
component  is  the  switch  time  (between  the  redundant 
components) , if  the  switch  time  is  extremely  small 
compared  to  the  component's  MTBF. 

An  example  is  developed  here  to  show  how  the  above  information 
is  reduced  to  an  availability  and  a reliablity  figure  for  a 
user.  Figure  1 is  the  reliability  configuration  for  a given 
user  job  or  task  and  table  1 shows  the  values  for  the  components 
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Figure  1 


Reliability  Model  Configuration 


Table  1 

System  Component  Parameters 


System 

Component 

1 Func- 
! t ional 
! Failure 
! Rate 

! 

1 

i 

1 

! User 
1 Time 

1 

I 

1 

1 

1 Over- 
1 head 

1 (AFR) 

! Applicable 
1 Failure 
i Rated  ) 

1 

1 Mean 
1 Down 
1 Time 

2551 

I 541.7 

i o . i 

mo 

B 

1 08 

vngm 

CYBER  175 

12725 

10.3 

1 0.251 

1500 

i 0 . 2(3 ) 

PDC 

100 

1 

10.2(2) 

i 0.1 

I 

i 

1 

» 

30(2) 

i 0 . 1(3) 
1 

l 

1 

1 

|o.1(2) 

1 

\ 

i 

1 

20(2) 

! 

, .ft 

FMD 

! 200 

1 m ■■  ■■  ■■■  i i 

10.15 

I 

30 

i 0 . 25(3 ) 

FMD  Controller 

i ■ MM  n 11  il 

1 125 

mm 

i o 

j 

19 

io.1(3) 

ECS 

11587.3 

io.15 

1 o 

j 

238 

ii.8 

FMP 

19373.8 

i 0 . 65 

j 0.05! 

6565 

11.5 



819  Disk 

1 357.1 

10.1 

i o 

i 

1 

36 

12.2 

819  Controller!  100(4) 

10.1. 

1 0.1 

’X* 

I 

i 

10 

10.1(3) 

NOTES: 

(1)  Applicable  failure  rate  is  the  system  component  functional 
failure  rate  times  the  sum  of  the  user  time  and  overhead. 

(2)  PDCs  associated  with  the  175  have  a 0.2  user  time  factor. 
Those  with  the  819s  have  0.1  user  time  factor. 

(3)  Mean  down  time  is  switch  time  between  redundant 
components . 

(4)  The  total  failure  rate  of  the  dual  controller  is  divided 
evenly  between  the  two  halves. 
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Further  assumptions  regarding  the  use  of  the  system  are: 

1.  Three  of  the  four'FMD’s  are  required  for  system 
operation. 

2.  The  probability  of  a failure  in  the  tape  and  system, 
disk  subsystems  is  negligible  (0.0004)  during  the 
loading  of  an  alternate  system  disk  required  upon  a 
disk  failure  (a  ten  minute  period  of  time) . 

3*  The  819  disks  have  no  back-up  (for  this  particular 
case) . 

4.  The  PDC  networks  associated  with  the  175s  and  the  819 
subsystem  are  simplified  (for  ease  of  computation)  into 
the  configurations  shown  in  figure  2. 

5.  Intuitively,  it  can  be  shown  that  the  functional 
failure  rate  of  redundant  components  with  very  short 
switch  times  is  the  same  as  the  failure  rate  of  one  of 
the  components.  (A  rigorous  proof  exists.) 

6.  The  user  time  required  is  two  hours. 


2551 

CY  175/PD  c 

SYSTEM 

DISK 

X=  108 

X = 1560 

X=  109 

MDT  = 1.6 

IMDT  = 0.2 

MDT  = 0.22 

ECS 

FMP 

819/PDC 

X = 238 

X=  6565 

X=  224 

MDT  = 1.8 

MDT  = 1.5 

MDT  = 1.41 

Note:  X is  the  failure  rate  for  a system  component. 


Figure  2.  Simplified  Reliability  Configuration 
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The  Simplified  Reliability  Configuration  (figure  2)  is  derived 
in  the  following  manner: 

175/PDC  Component 


PDC  failure  rate  = 2 times  the  applicable  failure 

rate  (AFR)  = 2x30  = 60 
PDC  MDT  = 0.1 

(for  the  network  of  4 PDC’s  in  figure  1 - see  assumption  5) 

175  PDC  Network 


i AFR=1 500  j i AFR=60  | 

1 MDT=0 . 2 ! |MDT=0.1| 


175/PDC  failure  rate  = 1500  + 60  = 1560 

2 (AFR) (MDT)  0.2x1500+0.1x60 

175/PDC  MDT  0.196 

2 AFR  1560 


System  Disk  Component 


i Ctr  | |Disk| |Disk ! !Disk  i 


— I Ctr  | — 


Controller  failure  rate  = 19 

Controller  MDT  = 0.1 

Disk  failure  -rate  = 3 -times  AFR  = 3x30  = 90 
Disk  MDT  =0.25 

System  Disk  Failure  rate  = 19  + 90  = 109 

2 (AFR) (MDT)  19x0.1+90x0.25 

System  Disk  MDT  = = 0.22 

2 AFR  109 

819  Disk  Component 

819  failure  rate  = 36 
819  MDT  = 2.2 

Controller  (1/2)  failure  rate  = 10 

Controller  MDT  . =0.1 
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Controller/819  failure  rate  = 36  + 10  = 46 

Z( AFR) (MDT)  36x2.2+10x0.1 

Controller/819  MDT  — — = 1.74 

SAFR  46 

Four  controller/819  units  have  failure  rate  of  4x46=184 
and  MDT  =1.74 

PDC  failure  rate  = 2 x AFR  = 2 x 20  = 40 
PDC  MDT  =0.1 

819  Disk  failure  rate  = 184  +40  = 224 

2( AFR) (MDT)  184x1.74+40x0.1 

819  Disk  MDT  1 .41 

SAFR  224 


NASF  user  availability-reliability  is  derived  from  the  overall 
failure  rate  and  MDT  for  the  system  for  the  user  job 
configuration.  The  pertinent  relationships  are: 

1.  Failure  rate  (X)  of  the  system  is  the  sum  of  component 
failure  rates  (see  Reduced  Reliability  Configuration). 

X=2AFR  (of  each  component) 

2.  System  unavailability  is  the  sum  of  each  component 
unavailability  which  is  the  product  of  each  component's 
failure  rate  and  MDT. 

XMDT  =Z(AFR)(MDT)  (of  each  component) 

3.  System  availability  is.  1 minus  the  system 
unavailability. 

A = 1 -XMDT  (of  system) 


4.  The  system  reliablity  (for  very  small Xt)  is 

R = 1 -Xt,  where  t = user  required  time. 
For  this  example: 
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System x = 8804  x 10  failures  per  hour  (MTBI  = 113.6  hrs) 
System  X MDT  = 0.0111 

System  Availability  = 0.9889  or  98.89% 

System  Reliability  = 1 - 0.0088  x 2 = 0.9824  or  98.24% 

The  operating  system  critical  MTBF  is  derived  on  the  assumption 
that  the  operating  system  works  non-concurrently  25%  of  the  time 
in  the  175s  and  5%  of  the  time  in  the  FMP,  and  that  ECS  must  be 
operable  during  this  time. 

0.25  x 2725.0  = 681.25 

0.05  x 9373-8  = 468.69 

0.30  x 1587.3  = 476.19 

O.S.  Critical  Failure  rate  1626. 1 3 

O.S.  Critical  MTBF  = 615  hours  = 3.7  weeks 
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MAINTENANCE  STUDY  FOR 

•THE  NUMERICAL  AERODYNAMIC  SIMULATION  FACILITY 


STRATEGY  ASSUMPTIONS 


The  maintenance  strategy  for  the  NASF  system  is  based  on  the 
assumption  that  there  are  two  categories  of  equipment:  system 
critical  and  system  non-critical.  System  critical  devices  are 
those  which  must  be  operational  before  useful  work  can  be 
accomplished.  They  consist  of  the  FMP,  the  Network  Processors 
(2551-1),  and  the  ECS.  System  non-critical  devices  are  those 
redundant  equipments  that  need  not  all  be  operational  before 
useful  work  can  be  accomplished.  They  consist  of  all  equipments 
except  those  processors  listed  above. 

Equipment  was  designated  system  critical  based  on  how  much  the 
loss  of  its  function  would  impair  the  system’s  usefulness. 
Without  the  FMP  the  system  could  continue  to  cue  jobs  and  do 
support  processing  activities,  however,  no  jobs  could  be  run  and 
the  system’s  useful  output  would  rapidly  diminish.  Loss  of  a 
network  processor  in  the  system  would  mean  half  the  interactive 
users  could  not  access  their  data  base.  ECS  is  system  critical 
because  standard  software  for  the  Support  Processing  System 
(SPS)  depends  on  this  equipment  to  coordinate  the  two  SPS 
processors . 

System  non-critical  equipment  like  the  two  CYBER-175  processors 
are  each  capable  of  doing  the  entire  SPS  task  during  a temporary 
interruption  in  one  processor  or  the  other.  Mass  storage 
subsystems  (disk  and  cartridge)  each  have  redundant  capabilities 
which  eliminate  the  possibility  of  a single  interruption 
disabling  a significant  portion  of  the  system. 

The  operating  software  developed  for  the' NASF  system  has  to 
support  this  categorization  of  the  hardware  configuration  to 
minimize  system  interruptions.  Failsoft  and  reconfiguration 
capabilities  need  to  be  an  integral  part  of  the  software  in 
order  to  take  advantage  of  the  hardware  system  redundancy. 

These  conditions  will  enhance  the  operation  and  maintenance  of 
the  system. 


FIELD  ORGANIZATION 


The  Engineering  Services  field  organization  will  be  operating 
-out  of  „a  local  service  -center  by  the  time  this  system  is 
installed.  This  type  of  organization  allows  efficient 
distribution  of  mobile  service  personnel  among  local 
installations.  The  service  options  under  this  organization  vary 
from  totally  on-call,  where  the  customer  engineer  (CE)  is  called 
when  needed,  to  on-site  coverage,  where  CEs  are  assigned  to  one 
installation . 
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Examination  of  the  maintenance  activity  required  for  the  NASF 
system  indicates  that  optimum  service  can  be  obtained  by 
assigning  CEs  to  provide  immediate  response  to  interruptions 
which  cause  the  system  to  be  down  during  the  normal  work  week 
(24  hours  per  day,  Monday-Friday) . This  will  cover  70%  of  the 
system  down  interruptions.  The  remaining  30%  and  all 
interruptions  which  do  not  cause  the  system  to  be  down  can  be 
handled  on-call  from  a local  serv.ice  center. 

Response  time  for  on-call  service  typically  averages  two  hours 
or  less.  All  of  the  PM  and  scheduled  maintenance  actions  would 
be  handle’d  by  the  service  center. 

Estimated  system  maintenance  cost  for  this  option  is  $80,000  per 
month.  Other  options  are  available  which  would  increase  the 
immediate  response  to  interruptions  from  70%  to  100%.  This 
option  would  increase  the  cost  by  approximately  40%  to  $112,000 
per  month.  Another  option  would  decrease  the  immediate  response 
to  interruption  capability  to  50%  and  decrease  the  cost  to 
approximately  $70,000  per  month.  Initial  spare  parts  cost  f,or 
the  total  NASF  are  estimated  to  be  $175,000  including  $115,000 
for  initial  FMP  spare  parts. 


PREVENTIVE  MAINTENANCE 


A program  of  preventive  maintenance  (PM)  will  be  implemented  to 
minimize  system  interruptions.  There  are  two  categories  of  PM: 
dedicated  and  concurrent.  Dedicated  PM  implies  that  a 
significant  portion  of  the  system  will  be  used  for  this  purpose 
and  other  useful  work  is  not  practical  during  this  period. 
Concurrent  implies  that  PM  will  be  performed  while  the  rest  of 
the  system  is  doing  useful  work. 

Weekly  dedicated  PM  is  expected  for  the  FMP.  During  this  period 
single  solid  Main  Memory  failures  may  be  removed  and  diagnostics 
will  be  run  with  margins  on  the  rest  of  the  CPU.  This  is 
expected  to  take  four  hours  per  week. 

Daily  concurrent  PM  requiring  less  than  an  hour  is  expected  for 
the  FMP.  This  will  be  required  to  remove  single  solid  failures 
from  the  Intermediate  Memory  and  Backing  Store. 

PM  on  all  other  equipment  will  be  performed  on  a unit  basis 
concurrently  with  system  operation.  This  requires  that  the 
system  be  reconfigured  so  it  doesn’t  use  the  equipment  on  which 
PM  is  being  performed.’  For  the  CYBER-175  equipment  a 3 hour 
period  of  concurrent  PM  will  be  required  weekly  for  each  unit. 
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It  is  expected  that  Intermediate  Memory  and  Backing  Store  solid 
failures  will  be  repaired  concurrently  with  system  operation. 
This  will  require  reconfiguring  the  memory  so  the  system  doesn’t 
use  the  portion  (512K)  being  repaired. 

PM  tasks  such  as  periodic  replacement  of  filters  and  measurement 
of  voltages  and  waveforms  will  be  performed  concurrently  without 
affecting  the  operation  of  the  system. 


COMPUTER  AIDED  MAINTENANCE 

All  PM  will  be  scheduled  with  the  aid  of  a Computer  Aided 
Maintenance  Scheduler  (CAMS)  program.  CAMS  uses  system 
configuration  and  error  log  informaton  to  optimize  the  PM 
schedule.  This  program  can  be  run  on  any  CYBER  170  system. 

An  error  log  for  the  FMP,  the  PDCs  and  the  819s  will  be 
maintained  on  the  Maintenance  Control  Unit  (MCU)  disk.  The  MCU 
will  analyze  this  log  and  provide  reports  on  errors  that 
occurred  during  system  operation,  as  well  as  diagnostic  errors. 

A similar  log  for  the  CYBER-175  systems  and  the  peripherals 
attached  to  the  SPS  will  be  stored  on  one  of  the  system  FMD  disk 
units.  The  CYBER-175s  will  provide  error  reports  similar  to  the 
one  provided  by  the  MCU. 


MAINTENANCE  SOFTWARE 


Maintenance  software  for  the  FMP,  Loosely  Coupled  Network  (LCN), 
and  attached  peripherals  will  reside  on  a disk  in  the 
Maintenance  Control  Unit-  On-line  maintenance  software  will  be 
available  for  confidence  testing  and  to  support  concurrent  PM, 
as  well  as  for  emergency  maintenance  activities.  Off-line 
maintenance  software  will  be  available  to  run  margins  and  to 
support  dedicated  PM. 

Maintenance  software  for  the  SPS  will  reside  on  magnetic  tape 
and  its  organization  will  be  -'Similar  *to  the  -EMP  maintenance 
software. ‘ 
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LOGISTICS 


Spare  parts  for  the  FMP  and  other  system  critical  equipment,  will 
be  stocked  on  site  and  in  Minneapolis.  Other  high  failure  rate 
parts  may  also  be  stocked  on  site.  Storage  space  for  these 
parts  and  their  cabinets  is  estimated  to  require  40  square 
feet. 

System  non-critical  equipment  parts  will  be  stocked  at  one  or 
more  of  the  following  locations:  local  service  center,  regional 
warehouse,  Minneapolis  distribution  center.  Distribution  and 
quantities  will  be  determined  by  part  density  and  usage. 

Emergency  parts  are  generally  available  from  the  local  service 
center  in  less  than  two  hours  and  in  less  than  4 hours  from  the 
regional  warehouse.  Emergency  orders  for  parts  at  the 
Minneapolis  distribution  center  are  filled  within  four  hours, 
however,  actual  response  is  determined  by  airline  schedules. 

To  minimize  downtime  and  achieve  the  availability  goals,  the 
replaceable  part  will  be  the  pluggable  subassembly.  To  reduce 
costs,  some  of  these  assemblies  may  be  repaired  on  site  or  at  a 
local  service  center.  The  rest  will  be  returned  to  a central 
repair  facility  in  Minneapolis. 


TECHNICAL  SUPPORT 


Technical  support  for  the  FMP  will  be  supplied  by  the  design  and 
manufacturing  division.  The  primary  method  of  support  will  be 
through  remote  technical  assistance  (RTA) . The  RTA  capability 
will  be  implemented  through  the  use  of  data  communication 
technologies  for  both  on-line  and  off-line  maintenance.  Through 
RTA  the  supporting  engineer  will  be  able  to  manipulate 
diagnostics  from  a remote  console.  The  remote  console  will  be 
connected  via  phone  lines  to  the  NASF  Maintenance  Control  Unit. 
All  of  the  maintenance  capabilities  of  the  MCU  will  then  be 
under  control  of  the  remote  console.  In  this  way  problems 
requiring  technical  assistance  can  be  analyzed  directly  by  the 
supporting  engineer. 

Technical  support  for  the  SPS  will  be  supplied  in  a similar 
manner.  A remote  console  will  be  connected  via  phone  lines  to  a 
multiplexer  in  the  CYBER-175.  Through  this  remote  link 
assistance  can  be  provided  to  the  local  customer  engineer. 

Backup  support  will  also  be  supplied  by  regional  and 
headquarters  support  groups. 


MAINTENANCE,  NON-CPC  EQUIPMENT 


Maintenance  of  non-CDC  equipment  can  also  be  supplied  in  most 
cases.  This  maintenance  is  under  control  of  each  individual 
region  within  Engineering  Services.  Maintenance  for  each 
equipment  is  subject  to  local  availability. 
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MAINTENANCE  SOFTWARE  ALTERNATIVES 
FOR  THE  1980s 


1.0  INTRODUCTION 

Reliability,  Availability,  Maintainability  (RAM)  needs  for 
computer  systems  in  the  1980s  will  focus  on  a reduction  in  the 
number  of  system  Interruptions  as  compared  with  today's  systems 
and  an  overall  lessening  of  impact  on  users  when  interruptions 
do  occur.  A requirement  of  one  interruption  per  month  is 
frequently  stated  for  systems  of  the  80s  as  compared  to  several 
interruptions  per  day. for  current  systems. 

It  can  certainly  be  debated  that  it. is  economically  feasible  to 
reach  a maximum  interruption  rate  of  one  per  month  for  medium 
size  computer  systems;  however,  super  computer  systems,  designed 
for  performance,  present  many  more  challenging  problems.  The 
key  element  is  what  the  system  does  to  modify/ease  the  effect  on 
the  user  when  an  interruption  arises.  Suggestions  are  made  to 
increase  hardware/ software  self-monitoring,  expand  automatic  (no 
manual  intervention)  system  re-initialization  and/or 
reconfiguration,  enhance  checkpoint/restart,  and  decrease 
dedicated  system  time  needs  for  hardware  and  software 
maintenance. 

With  a decided  trend  toward  more  system  time  being  available  to 
the  user  and  less  system  time  being  available  for  maintenance, 
it  will  be  necessary  to  improve  reliability  through  the 
techniques  of  fault-tolerant  design-,  such  as  redundancy  and 
self-diagnosis.  These  fault-tolerant  techniques  appear  to  be 
the  key  to  the  achievement  of  total  on-line  hardware  and 
software  maintainability  so  that  a system  would  not  need  to  be 
down  for  maintenance  of  any  kind. 

In  short,  computer  system  maintenance  in  the  1980s  will  need  to 
be  performed  -without  sign  if  Leant ly-  disrupting  the  -system 
activity.  It  may  be  acceptable  for  the  system  and  its  users  if 
response  times  degrade,  but  total  unavailability  of  the  system 
will  not  be  acceptable. 

Before  discussing  future  alternatives,  existing  features  of  CDC 
super  computer  maintenance  software  will  be  addressed.  The 
basic  architecture  includes  a super  computer,  a maintenance 
station  (control  unit)  as  a focal  point  for  all  system 
maintenance,  and  a loosely  coupled  network  (LCN)  for  I/O 
containing  Programmable  Device  Controllers  (PDCs) . 


\ 
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2.0  EXISTING  MAINTENANCE  SOFTWARE  OVERVIEW 


2 . 1  General  Features 

The  current  maintenance  software  system  supports  off-line  and 
on-line  hardware  maintenance.  The  major  components  of  the 
maintenance  software  system  are:- 

• Maintenance  Control  Unit 

• CPU  (Central  Processing  Unit)  off-line  diagnostics 

• CPU  on-line  diagnostics 

• PDC  diagnostics 

• Fault  isolation 

• Error  logging  and  recovery 


2.1.1  Maintenance  Control  Unit 


The  MCU  (Maintenance  Control  Unit)  which  is  built  around  a CYBER 
18-20  Computer,  provides  a common  user  control  point  for  all 
system  maintenance  activities.  The  MCU  supports  the  following 
on-line  and  off-line  maintenance  activities  through  a local 
and/or  remote  terminal. 


On-line  Off-line  Activity 


X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 


X 


X 

X 

X 


Remote  Maintenance 

Display  of  MCU,  PDC,  and  CPU  Memory 
Entry  of  MCU,  PDC,  and  CPU  Memory 
Monitoring  and  Control  of  MCU  and  CPU 
Maintenance  Lines 
Logging  of  Memory  SECDED  Errors 
Logging  of  Operating  System  Detected 
Errors 
PDC  Autoload 
System  Initialization 
System  Recovery 

Loading,  Displaying,  and  Modifying  CPU 
Microcodes 

Control  of  Off-line  CPU  Diagnostics 
Down-loading  of  Off-line  PDC 
Diagnostics 


2.1.2  CPU  Off-line  Diagnostics 


The  CPU  off-line  diagnostic  system  supports  manufacturing 
checkout  and  field  maintenance  of  the  CPU.  A structured  set  of 
diagnostics  are  available  to  provide  error  detection  and 
analysis.  Most  CPU  diagnostics  have  a built-in  test  mode  to 
assist  with  remedial  maintenance. 


The  object  code  of  each  diagnostic  resides  on  MCU  mass  storage. 
The  MCU  loads  each  diagnostic  into  the  CPU,  MCU,  or  PDC  memory 
as  needed.  Because  the  CPU  diagnostics  require  a dedicated  CPU, 
only  one  diagnostic  can  run  at  one  time. 
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CPU  off-line  diagnostics  consist  of  two  types:  fault  detection 
diagnostics  and  utility  diagnostics.  The  former  test 
instructions  and  CPU  resources,  and  form  a testing  hierarchy  of 
the  CPU.  The  latter  support  maintenance  activities  o.ther  than 
fault  detection,  such  as  test  point  simulators  and. error  file 
analyzers . 


2.1.3  CPU  On-line  Diagnostics 

The  CPU  on-line  diagostic  system  supports  confidence  testing  of 
the  CPU  without  shutting  down  the  system.  These  diagnostics  run 
as  normal  jobs.  On-line  diagnostics  consist  of  all  CPU  based 
off-line  diagnostics  which  do  not  execute  monitor  mode 
instructions.  Also  available  for  on-line  use  are  test  point 
simulators  and  error  file  analyzers. 


2.1.4  PDC  Diagnostics 

The  PDC  off-line  diagnostics  test  PDC  components  while  the  PDC 
controlware  is  inactive.  The  user  can  load  these  diagnostics 
from  a portable  maintenance  console  or  can  down-load  them  from 
the  MCU  to  a PDC.  Control  of  the  PDC  off-line  diagnostics  can 
come  from  the  MCU  or  a portable  maintenance  console.  PDC 
on-line  diagnostics  are  controlled  through  the  operating  system. 
PDC  functions  are  disabled  while  on-line  testing  occurs. 


2.1.5  Fault  Isolation 

Isolation  provides  a definite  means  to  reduce  checkout  time  and 
MTTR.  Fault  detection  is  required  while  fault  isolation  is 
optional  and  depends  on  cost  effectiveness.  There  are  three 
major  categories  of  isolation  applied  to  diagnostics:  physical 
isolation  to  the  failing  component,  function  isolation  to  the 
failing  group  of  components,  and  unit  isolation  generally  to  the 
failing  board. 

•Fault  isolation  to  'the -failing ‘memory  chip  ‘for  .single  solid 
faults  is  provided  for  all  memory  resources  of  the  CPU.  This 
includes  central  memory,  register  file,  instruction  stack  and 
microcode  memories.  No  isolation  is  provided  for  LSI  arrays. 
Unit  isolation  is  provided  for  critical  units  while  functional 
isolation  has  rarely  been  used.  Some  unit  isolation  is  provided 
in  the  LCN . The  structure  of  the  FMP  is  such  as  to  provide  very 
good  unit  isolation. 
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2.1.6  Error  Logging  and  Recovery 

The  MCU  serves  as  a local  focal  point  for  logging  of  all  system 
errors.  Separate  files  exist  on  the  MCU  for  on-line  and' 
off-line  errors.  Time/date  data  is  included  in  the  on-line 
error  file.  Central  memory  SECDED  errors  are  sent  by  hardware 
to  the  MCU  for  logging.  Microcode  memory  parity  errors  are 
detected  at  the  MCU.  All  errors  other  than  memory  errors  are 
passed  by  the  operating  system  to  the  MCU  for  logging. 

Central  memory  can  be  degraded  and  reconfigured,  through  manual 
intervention  from  the  MCU,  when  a solid  fatal  error  occurs.  A 
failing  Vector  Unit  can  be'  idled  and  replaced  by  a spare  through 
MCU  action.  Any  other  fatal  system  error  must  be  analyzed  and 
corrected  before  system  activity  resumes.  There  are  no 
provisions  for  reconfiguration  of  FMP  hardware  other  than  memory 
and  the  Vector  Units. 


2 . 2 Summary 

In  the  1970s  the  primary  emphasis  on  maintenance  software  has 
been  toward  development  of  fault  detection  tests.  Increased 
complexity  of  computer  systems  has  led  to  development  of  the 
maintenance  station,  which  is  a local  focal  point  for  all  system 
maintenance  activities.  With  the  development  of  complex  LSI 
circuitry  in  mainframes  and  memory,  fault  isolation  has  begun  to 
appear . 

Maintenance  software  in  general,  and  fault  detection,  fault 
isolation,  error  retry,  and  system  recovery  in  particular,  have 
been-  given  low  priority  in  design  of  syst.em  hardware  and 
software. 

In  the  1980s  hardware,  operating  systems,  and  maintenance 
software  must  be  treated  equally  if  the  number  of  s.ystem 
interruptions  is  to  be  reduced.  RAM  requirements  must  enter 
into  system  design  at  the  earliest  stage,  sharing  the  spotlight 
with  cost  and  performance. 
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3.0  ALTERNATIVES  FOR  THE  1980s 


To  rae.et  the  challenge  and  requirements  of  improved  RAM  for  super 
computers  of  the  1980s  new  alternatives  must  be  considered. 

These  alternatives,  must  involve  the  entire  system  architecture, 
hardware,  operating  system,  and  maintenance  software. 

Ways  must  be  found  to  minimize  the  mean  time  to  detect  and 
diagnose  a system  malfunction,  the  mean  time  to  repair  a 
detected  malfunction,  and  the  mean  time  to  restart  a system.  Of 
high  importance  will  be  the  ability  to  perform  maintenance  on, 
and  repair  of,  a portion  of  the  system  without  shutting  down  the 
entire  system. 


3 . 1 System  Recommendations 

The  various  levels  of  software  and  hardware  must  be  designed 
with  the  following  system  goals  in  mind  to  minimize  rerun  time 
when  system  failures  occur. 

• Minimize  the  components  required  to  continue  processing 
— i.e.,  minimize  system  critical  hardware  and  software. 

• Maximize  system  flexibility.  Provide  as  much 
redundancy  and  alternate  routes  to  accomplish  the  same 
functions  as  possible. 

• Minimize  the  restart/re.covery  operations.  Where 
possible,  utilize  the  flexibility  of  a fail-back 
position  by  disconnecting  system  non-critical  items  and 
continue  processing. 

Actions  taken  for  system  error  recovery  are  shown  in  Figure  1. 
Physical  recovery  is  completely  hardware  dependent.  All'  other 
actions  involve  use  of  on-line  or  off-line  maintenance  software, 
and  interaction  from  a maintenance  station  to  recover  from  an 
error.  In  cases  where  the  system  is  reconfigured  or  degraded, 
concurrent  maintenance  software  will  support  system  repair. 
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Figure  1 . System  Error  Recovery 


I 


8-6 


3.2  Hardware  Recommendations 


In  the  1980s  computer  systems  will  have  incorporated  into  their 
designs  many  of  the  hardware  techniques  mentioned  below.  At  a 
minimum,  10%  of  the  system  hardware  will  be  devoted  to  improved 
RAM . • 

• Semiconductor  memories  will  continue  to  make  use  of 
single  error  correction,  double  error  detection 
circuitry.  Check  bits  will  be  carried  along  with  data 
on  all  major  trunks.  Errors  will  be  collected  at  a 
maintenance  station  such  that  preventive  maintenance  and 
degradation  or  reconfiguration  can  occur. 

•'  Develop  hardware  maintenance  features  for  high-level 

self-checking  of  semiconductor  memories  under  control  of 
the  MCU.  Memory  testing  would  be  independent  of  CPU 
instruction  testing.  Memory  errors  would  be  found 
faster  under  hardware  control. 

• Microcode  control  logic  will  be  designed  such  that  it  is 
a useful  maintenance  tool.  Microcode  diagnostics  will 
use  added  hardware  features  to  assist  maintenance 
personnel  in  isolating  failures  to  the  replaceable 
circuit  level  as  quickly  as  possible. 

• Major  control  paths  may  be  encoded  in  error  detecting 
codes  to  provide  continuous  fault  diagnosis  while 
executing  programs.  Error  codes  would  aid  development 
of  fault  isolation  techniques. 

• Transient  faults  may  be  identified  by  error  detecting 
codes  and  their  effects  corrected  by  rollback.  Permanent 
faults  may  be  corrected  by  replacement  of  faulty  units. 
Replacement  may  be  automatic  or  under  operator  control 
from  the  maintenance  console. 

'•  Fault  tolerant  hardware  involving  the  use  of  redundancy, 
with  replication  of  individual  circuits  or  subsystems, 
will  appear..  .Fault  it.oler-ant  -hardware  will  mask  the 
occurrence  of  random  errors  as  they  occur  and  provide 
error-free  operation  for  large  periods  of  time. 

• Registers  and  latches  in  the  CPU  could  be  scanned  by  the 
maintenance  station  such  that  fault  isolation  to  the 
chip  is  possible. 

• Hardware  maintenance  features  will  appear  in  logic 
circuits,  as  more  gates  are  placed  inside  circuits.  The 
wafer  probe  and  vendor  testing  problem  will  accelerate 
internal  circuit  testing  needs. 
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3 . 3 Future  Maintenance  Software,  Development 

The  demands  of  the  computer  industry  are  for  improved  mean  time 
between  interruptions  and  a reduction  in  lost  time.  Maintenance 
software  must  be  treated  as  a system  working  in  conjunction  with 
hardware  and  the  operating  system  to  meet  these  demands. 

To  achieve  these  goals  maintenance  software  development  emphasis 
will  be  placed  in  the  following  areas: 

• Fault  isolation 

• Operational' summation 

• Loosely  coupled  network  I/O 

• Application  of  gate  simulation  data  base 

• On-line 

• Error  logging 

• Recovery 

• Concurrent  maintenance 


3.3*1  Fault  Isolation 


Isolation  must  be  specified  as  part  of  the  hardware  design 
requirements.  Error  detection  codes,  microcode  hardware 
features,  multiplexing  of  registers  to  the  MCU  must  be 
considered  if  fault  isolation  diagnostics  to  the  function  and 
circuit  are  to  be  developed. 


3.3.2  Operational  Summation 

Without  changes  in  hardware  design  philosophy,  operational 
summation  can  go  far  to  improve  MTTR.  With  a status  of  failing 
and  operational  CPU  instructions,  CPU  resources,  and  I/O 
resources,  maintenance  personnel  can  draw  upon  their  knowledge 
of  the  system  to  localize  the  fault.  Maintenance  action  would 
be  based  on  operational  summation  or  decision  logic  tables. 


3.3-3  Loosely  Coupled  Network  I/O 

The  MCU  must  be  capable  of  testing  selected  PDCs  and  associated 
I/O  devices  concurrently  with  CPU  testing.  Communications 
within  the  I/O  network  should  also  be  testable  from  the  MCU.  In 
view  of  the  sophisticated  protocol ■ between  PDCs,  special 
maintenance  software  considerations  must  be  made. 
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3.3.4  Application  of  Gate  Simulation  Data  Base 

Hardware  modeling  and  simulation  is  a requirement  for  super 
computer  design;  therefore,  a gate  model  of  the  CPU  i.s  available 
for  maintenance  software  applications..  The  following  lists 
possible  applications: 

• Routing/placement  information.  . . the  user  could  query 

the  model  from  the  MCU  display. 

• Simple  simulations  could  be  performed  by  the  MCU  to 
generate  test  point  states  based  on  input  operands. 

• LSI  fault  isolation.  . . compare  the  hardware  to  the 

model . 


3.3.5  On-line 

The  following  improvements  can  be  made  to  existing  fault 
detection  diagnostics: 

• Reduce  the  risk  of  diagnostics  failing  in  test  condition 

setup,  or  in  result  verification  by  developing  standard 
coding  methods. 

• Expand  on  diagnostic  data  base  concepts  where  a test 
condition  data  base  can  be  controlled  from  either  the 
CPU  or  MCU.  This  method  of  testing  should  ultimately 
replace  the  existing  computer  command  tests. 

• Develop  a high-level  test  of  the  basic  housekeeping 
instructions  used  to  control  CPU  based  diagnostics, 
including  mixed  instruction  testing.  This  level  of 
testing  should  be  controlled  from  the  MCU. 

• For  the  LCN,  provide  common  maintenance  software  and 
procedures  for  the  entire  network,  including  super 
computer,  front-end  systems  and  peripherals. 

• Develop  common  maintenance  procedures  for  all  field 
sites,  particularly  the  procedure  to  follow  when  a fatal 
system  error  occurs. 

3.3.6  Error  Logging 

Error  messages  should  be  organized  as  4 basic  types:  (1)  MCU 

detected  errors  (CPU  hardware  fault  detection),  (2)  CPU  errors 
detected  by  the  operating  system,  (3)  LCN  and  I/O  device  errors, 
and  (4)  logging  of  software  system  errors.  Common  error  files 
should  support  error  logging  for  multi-CPU  systems. 
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3.3.7  Recovery 


More  emphasis  should  be  placed  on  automatic  recovery  and  error 
logging  for  deferred  maintenance.  Since  most  system  .errors  are 
transient  or  intermittent,  recovery  with  degradation  is  a viable 
alternative  to  increase  system  availability.  System  software 
must  be  enhanced  to  promote  automatic  restart.  Only  fatal 
errors  in  the  operating  system  should  force  emergency 
maintenance- 

Automatic  degradation  and  reconfiguration  should  be  provided  for 
central  memory,  I/O,  and  hardware'  pipelines.  The  CPU  could  be 
temporarily  stopped  by  the  MCU  until  degradation/reconfiguration 
takes  place.  The  following  degradation  alternatives  are 
offered : 

• Page  flawing  for  central  memory 

• Central  memory  degradation  by  physical  sections 

• Dynamic  testing/flawing  of  819  tracks,  particularly 
on  initial  file  creation 

• Provide  a spare  pipeline  which  can  be  switched  to  an 
active  pipe  by  the  MCU 

• Spare  PDCs  between  the  trunk  and  central  memory 


3.3.8  Concurrent  Maintenance 

Before  concurrent  maintenance  of  CPU  units  (memory)  pipelines) 
can  become  a reality,  hardware  must  be  designed  such  that 
maintenance  actions  can  occur  on  degraded  units  without 
affecting  operating  units. 

Concurrent  maintenance  of  degraded  PDCs  interfaced  with  the  CPU 
from  the  MCU  seems  realistic.  Concurrent  maintenance  of 
critical  I/O  devices  would  have  the  greatest  impact  but  unless 
the  system  can  tolerate  downed  devices,  this  alternative  is 
unlikely. 
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4.0  IMPLEMENTATION  GOALS  AND  STRATEGY 


The  following  goals  and  strategies  will  be  pursued  to  improve 
super  computer  RAM  in  the  1980s. 


4.1  Goals 


• For  system  availability,  improvements  to  MTBI  are  deemed 
more  effective  than  improvements  to  MTTR;  therefore, 
super  computers  will  stress  improvements  to  MTBI. 

• MTTR  of  less  than  0.5  hours  for  all  levels  of  memory. 

• MTTR  of  less  than  1.0  hour  for  CPU.  (excluding  memory) 
and  I/O. 

• Achieve  a system  MTBI  of  greater  than  100  hours. 

• Fault  isolation. 


? of  Single  Solid 

Isolation 

Hardware 

Faults  Isolatable 

Level 

Memories 

100? 

Board  & Circuit 

PDC 

90? 

Board 

LSI  Logic 

50? 

16  or  less  Circuits 

LSI  Logic 

90? 

Functional  Unit 

Fault  detection,  on-line. 

— 99%  of 

solid  hardware  faults 

are  detectable  by  the 

operating  system,  maintenance  software,  and  hardware 
self-checking  features. 

— 50?  of  transient  faults  are  detectable  by  the 
operating  system  and  hardware  self-checking  features. 

• Fault  detection,  off-line. 

— 99.5?  of  solid  faults  are  detectable  by  maintenance 
-software  and- --hardware  -sel-f— .check  i-ng  --fe.atur.es  . 

— 85?  of  intermittent  faults  are  detectable  by 
maintenance  software  and  hardware  self-checking 
features . 


4.2  Strategy 

The  following  strategy  will  be  followed  to  satisfy  the  previous 
goals.  New  development  projects  will  emphasize,  but  not  be 
limited  to  these  areas,  and  efforts  must  be  made  to  improve 
existing  products  in  these  areas. 
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4.2. 1 


Hardware  Strategy 


• Develop  hardware  maintenance  features  for  fast,  high- 
level  self-testing  of  large  semiconductor  mem.ories. 

• Design  microcode  control  such  that  it  is  a useful 
maintenance  tool  placing  emphasis  on  fault  isolation. 

• Develop  hardware  to  multiplex  CPU  registers  to  the  MCU. 

• Develop  fault  detection  techniques  in  CPU  and  LCN 
hardware  modules  and  all  data  paths. 

• Configure  CPU  and  LCN  hardware  modules  such  that  it  is 
possible  to  remove  faulty  modules  from  operation  while 
minimizing  impact  to  the  operational  system. 

4.2.2  Operating  System  Strategy 

• Improve  error  detection  and  error  logging  techniques. 

• Improve  system  error  recovery  techniques,  stressing 
fail-soft  recovery  with  system  reconfiguration. 

4.2.3  Maintenance  Software  Strategy 

• Develop  fault  isolation  diagnostics,  using  added 
hardware  features. 

• Improve  on-line  maintenance  software. 

• Develop  concurrent  maintenance  diagnostics. 

• Improve  remote  maintenance  capabilities. 

• Reduce  time  required  to  verify  system  operation. 


4 .3  Attainability 

A high  priority  effort  in  the  design  of  new  hardware  systems 
(including  the  FMP)  is  the  provision  for  integral  maintenance 
"hooks"  throughout  such  machines.  Cost  and  design  resource 
factors  have  taken  this  feature  into  account.  The  degree  to  • 
which  these  facilities  will  be  exploited  will,  however,  depend 
on  the  resources  committed  to  sophisticated  maintenance 
strategies  by  the  various  software  developers.  The  inclusion  of 
features  in  the  various  levels  of  software  (from  device  driver 
all  the  way  up  to  applications  program  instrumentation)  is 
feasible  and  within  the  range  of  known  software  techniques.  The 
probability  that  the  NASF  will  possess  the  maximum  of  these 
capabilities  rests  solely  on  management  commitment  by  NASA  and 
its  contractors  to  assigning  these  facilities  a high  priority  in 
the  implementation  program. 
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DIVISION  9 

. INSTALLATION  ORGANIZATION/OPERATION 


DIVISION  9 


installation' organization/operation 


The  information  in  this  division  of  the  report  contains  a 
recommended  data  cen.ter  organization  for  NASA  planners  t.o  aid  in 
the  formulation  of  an  accurate  life-cycle  model  for  the  NASF 
installation.  Data  presented  in  this  division  was  gathered  from 
the  personnel  of  Control  Data’s  STAR-100  Data  Center  in  Arden 
Hills,  Minnesota,  a data  center  possessing  similar 
characteristics  to  the  proposed  NASF  facility. 

In  setting  up  an  effective  new  data  center  a key  point  is  the 
pursuit  -of  extensive  research  on  the  users,  types  and  frequency 
of  jobs,  and  projected  increases  in  work.  Once  the  user  base 
has  been  established,  as  well  as  whether  remote  stations  will  be 
employed,  data  center  personnel  can  more  accurately  plan  the 
installation. 

The  following  information,  which  is  provided  to  assist  in  the 
planning  of  NASF  Operations,  is  broken  down  into  manpower, 
supplies,  services,  and  an  overall  scenario  that  will  attempt  to 
show  typical  considerations  in  data  center  management.  It  is 
hoped  that  this  information  will  enable  NASA  planners  to  set  up 
a NASF  Data  Center  with  an  eye  for  efficiency,  reliability,  and 
stability. 


MANPOWER  REQUIREMENTS 

Based  on  information  obtained  from  Control  Data  large  system 
data  center  activities,  it  is  recommended  that  NASA  adopt  an 
organization  similar  to  the  one  shown  in  figure  1.  This 
suggested  organization  has  four  managers  controlling  the 
operations,  system  support,  techniques  support,  and 
administrative  and  technical  support  — all  reporting  to  the 
•overall  NASF  'c-enter  manag-er . 
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NASF  CENTER 
MANAGER 


V3 

I 

ro 


— Secretary 


First 

Shift 

• Shift  Leader 

9 Computer 
Operator 
(3  REQUIRED) 


OPERATIONS- 

MANAGER 


i 


Administrative  Assistant 


• Consultant 
(4  REQUIRED) 


• Technical  Consultant 
{Hardware) 

• Administrator 


Second 

Shift 

ft  Shift  Leader 

• Computer 
Operator 
(3  REQUIRED) 


Third 

Shift 

« Shift  Leader 
• Computer 
Operator 
{2  REQUIRED) 


Vendor  • FMP  Analyst 
Analyst  (2  REQUIRED) 

Support 

o SPS  Analyst 
<2  REQUIRED) 

o Programming 
Aid 


• Statistics  Clerk 

• Possible  telecom- 
munications expert 
if  many  remotes 


9 Production 
Control 
Clerk 

9 Librarian 


Customer 

Services 


o Analyst 

(4  REQUIRED) 


Vendor 

Customer 

Engineering 


Figure  1 


Suggested  NASF  Operations  Organization 


The  Operations  Manager 

l 

The  operations  manager  is  responsible  for  ensuring  the  day-to- 
day  flow  of  customer  jobs  through  the  data  center  in  .a  timely 
manner.  The  main  duties  of  the  operations  manager  are: 

• to  set  up  operating  procedures  for  efficient  data  center 
operation; 

• to  schedule  addition  of  local  modifications  or  Field 
Change  Orders  with  customer  engineering  staff; 

» customer  or  user  support  scheduling; 

• customer  service  dealing  with  customer  problems  related 
to  operations; 

• to  monitor  daily  operations  attempting  to  foresee  both 
hardware  and  software  problems; 

• to  deal  with  vendor  customer  engineers. 

Within  the  operations  organization,  the  manager  must  provide 
leadership  to  the  following  subordinates. 

Shift  Leader  — The  shift  leaders  (3  in  the  organization  chart) 
are  the  most  experienced  computer  operators  on  the  shift.  They 
are  usually  higher  pay-grade  levels  than  the  other  operators  on 
the  shift  and  could  act  as  assistant  operations  manager  because 
of  the  amount  of  experience  they  have. 

A good  shift  leader’s  experience  would  allow  him/her  to  be 
familiar  with  all  aspects  of  the  various  jobs  run  in  the  center 
and  he/she  should  have  extensive  training  on  the  center’s 
equipment. 

Computer  Operator  — The  operators  (eight  in  the  organization 
chart)  should  be  trained  on  the  NASF  and  be  able  to  complete  the 
tasks  related  to  efficient  customer  job  throughput. 

Process  Control  Clerk  — The  process  control  clerk  is 
responsible  for  keeping  track  of  the  input  and  output  of 
customers'  jobs  within  the  data  center.  Often  times  the  process 
control  clerk,  in  addition  to  scheduling  duties,  will  function 
as  the  requisitioner  of  supplies  needed  within  the  data  center 
for  its  day-to-day  operations,  i.e.,  tab -cards,  line  printer 
paper,  office  supplies,  etc. 

Librarian  — The  librarian  for  the  data  center  sets  up  and 
maintains  a filing  system  for  magnetic  tapes,  disk  files,  and 
card  decks  that  are  often  used',  thus  freeing  user  time  normally 
spent  in  this  function. 
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Customer  Service  Analyst  — Two  to  four  analysts  should  be 
available  to  troubleshoot  problems  that  customers  may  have  in 
getting  their  jobs  successfully  completed.  The  number  of 
analysts  employed  at  the  data  center  will  be  determined  by 
whether  or  not  several  remote  sites  are  used  and  whether  the 
major  part  of  the  customer  input  will  be  at  the  data  center 
itself. 

The  cus.tomer  service  analyst  is  the  first  person  in  the  data 
center  the  customer  should  contact  if  problems  arise.  These 
analysts  should  be  of  several  grade  levels  so  that  more  complex 
problems  can  be  addressed  by  more  senior,  experienced  analysts. 


The  Systems  Support  Manager 

The  systems  support  manager  oversees  high-level  analyst  support 
of  the  system  and,  along  with  his  systems  analysts,  gets  the 
system  operational  and  solves  problems  the  customer  may  have 
that  go  beyond  those  encountered  in  operation. 

Responsibilities  of  the  systems  support  manager  include: 

• building  and  maintaining  the  operating  system,  or 
systems,  used  in  both  the  FMP  and  SPS  sections  of  the 
system; 

• ensuring  that  Program  Trouble  Reports  (PTRs)  have  been 
properly  resolved; 

• isolating  problems  in  the  system  so  that  Customer 
Engineering  or  an  analyst  can  correct  it; 

• providing  vendor  analyst  support  if  needed. 

In  order  to  effectively  deal  with  the  analysts  reporting  to 
him/her,  the  systems  support  manager  should  be  software 
knowledgeable. 

The  systems  support  manager  must  supervise  the  activities  of: 

FMP  Analyst  — These  analysts  should  be  familiar  with  the  total 
system  but  should  be  most  familiar  with  the  FMP.  They  would 
deal  with  customer  job  problems  of  an  intermediate  nature  that 

have  been  localized  in  the  FMP.  They  would  also  build  and 

maintain  the  FMP  operating  system  and  be  familiar  with  the  SPS 
operating  system  as  backup. 

SPS  Analyst  — These  analysts  should  be  familiar  with  the  total 
system  but  should  be  most  familiar  with  the  SPS.  They  would 
deal  with  customer  job  problems  of  an  intermediate  nature  that 

have  been  localized  in  the  SPS.  They  would  also ‘build  and 

maintain  the  SPS  operating  system  and  be  familiar  with  the  FMP 
operating  system  as  backup. 

Programming  Aide — The  programming  aide  assists  the  analysts  in 
the  successful  completion  of  their  jobs. 
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Techniques  Support  Manager 


The  techniques  support  manager  should  be  a high-level  analyst 
fully  capable  of  solving  the  most  complex  problems  the  customer 
could  have.  Likewise,  his  crew  of  consultants  should  be 
top-notch  people  of  the  highest  level. 

The  techniques  group  is  responsible  for: 

• working  with  customers  on  setting  up  their  basic 
software; 

• acting  in  a quality  assurance  function  for  customer’s 
software  to  make  it  more  efficient  if  necessary; 

• providing  education  so  that  customers  may  make  efficient 
use  of  the  system; 

• setting  up  benchmarks  for  vendors; 

• generating  an  algorithm  base. 


Consultants  --  Reporting  to  the  techniques  manager  are  four 
consultants  who  should  be  experts  in  at  least  one  area  of 
responsibility  of  the  techniques  group,  e.g.,  physics, 
aerodynamics,  structures,  meteorology.  Generally,  the 
techniques  consultants  provide  direct  support  to  the  user 
groups . 


Administrative,  Technical  Support  Manager 

The  administrative  and  technical  support  manager  is  basically 
the  business  manager  for  the  data  center.  Functions  that  fall 
into  this  area  of  responsibility  include: 


• initial  configuration  and  revision  of  existing 
configurations ; 

• reports  and  statistics  needed  for  various  management 
reports; 

• billing  and  other  transactions  with  accounting 
personnel ; 

• technical  support  — primarily  for  evaluation  and 
purchase  of  new  equipment.. 
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Reporting,  to  this  manager  are  the  following  personnel: 

Technical  Consultant  (Hardware)  — This  consultant  must  be 
familiar  with  all  facets  of  hardware  so  as  to  be  the  -hardware 
resource  person  for  data  center  management.  The  ability  to 
configure  and  reconfigure  a wide  variety  of  hardware  is 
important,  especially  at  the  time  of  the  initial  data  center 
setup.  If  it  is  expected  that  the  data  center  will  be  static  as 
far  as  new  equipment  is  concerned,  this  function  may  be 
eliminated.  However,  if  several  remote  locations  are  to  be  tied 
into  the  data  center,  this  technical  expert  perhaps  should  at 
least  be  familiar  with  telecommunications,  which  will  become 
increasingly  more  important  as  the  amount  and  sophistication  of 
the  remote  equipment  grows.  In  addition,  this  consultant  should 
be  able  to  develop  both  short-  and  long-range  budgets,  and  deal 
with  the  technical  aspects  of  moves  in  the  data  center. 

Administrator  — The  administrator  would  probably  have  direct 
responsibility  for  ensuring  that  reports-,  billing,  and  other 
tasks  get  completed.  This  person  is  often  the  interface  between 
the  data  center  and  other  supporting  departments  such  as  plant 
maintenance  or  accounting. 

Statistics  Clerk — This  person  would  generate  reports  based  on 
data  furnished  by  others  within  the  data  center. 

The  job  functions  previously  discussed  are  not  meant  to  be  only 
as  described.  The  exact  functions  should  be  flexible  enough  so 
that  they  overlap.  All  data  center  personnel  should  complement 
each  other  to  assure  a smoothly  functioning  organization. 

The  cost  of  personnel  .to  adequately  staff  a data  center  of  the 
size  proposed  to  NASA  will  be  dependent  on  NASA’s  pay 
structures.  A recent  study  of  the  data  processing  industry  has 
shown  that  personnel  costs  are  as  high  as  50  percent  of  a data 
center  operating  budget. 

Increases  to  personnel  wages  are  constrained  by  U.S.  Government 
wage  guidelines,  hardware  costs  are  decreasing,-  and  increasing 
shortages  of  good,  high-quality  people  will  make  accurate 
forecasting  difficult  or  impossible  for  the  near  future. 


DATA  CENTER  SUPPLIES 

Any  discussion  of  supply  usage  will,  of  course,  depend  on  the 
way  the  data  center  is  used  and  placed  among  its  users.  If  it 
is  to  be  in  or  near  the  greatest  number  of  users,  more  supplies 
such  as  printer  paper,  punched  cards,  and  magnetic  tapes  will  be 
used.  If  the  center  will  be  separated  from  the  bulk  of  users, 
more  remote  stations  will  be  utilized  thus  reducing  supply 
expenditures  at  the  center  itself. 
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In  general,  Control  Data  recommends  stocking  an  initial  amount 
of  magnetic  tapes.  After  the  data  center  is  functioning 
efficiently,  CDC’s  data  center  staff  estimates  that  a monthly 
tape  replacement  of  about  10-15  tapes  would  be  likely.. 

Control  Data’s  Mass  Storage  Sytem  (MSS)  is  recommended  for  the 
NASF  installation.  Use  of  the  MSS  results  in: 

• decreased  use  of  disk  space, 

• decreased  operator  time  or  possibly  requirements, 

• decreased,  tape  expenditure. 

The  MSS  concept  is  relatively  new  and  CDC  has  not  yet'  compiled 
enough  information  on  its  data  center  utilization  to  accurately 
predict  cartridge  replacement  frequency;  as  with  magnetic  tape, 
an  initial  supply  should  be  stocked. 


The  other  big  supplies  expenditures  would  be  in  line  printer 
paper,  printer  ribbons,  and  punch  cards.  The  following  chart 
lists  NASF  installation  projected  monthly  usage  of  supplies  for 
both  a center  without  many  remote  stations  and  a typical  remote 
station  that  orders  its  own  stock  of  supplies. 


Item 


Data  Center 
Use/Month 


Remote  Station 
Use/Month 


Printer  Ribbons  25 


7 


Printer  Paper.  225  boxes 


50  boxes 


Punch  Cards 


Magnetic  Tapes 


120  boxes 

(5  boxes  per  case) 
10  to  15 


30  boxes 

(5  boxes  per  case) 
N/A 


Mass  Storage  Data  not  available  Data  not  available 

Cartridge 


The  other  major  expenditure  for  a functioning  data  center  would 
bTe  in  capi'bol  equipment  replacement  and  purchase.  Th-is  will 
include  the  purchases  of  new  updated  equipment  to  make  the  data 
center  more  efficient,  as  well  as  replacement  of  the  often-used 
old  equipment. 
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SERVICES 


Other  projected  needs  of  the  users  that  may  be  provided  by  the 
data  center  include: 


• user  communications  newsletter 

• keypunching,  interpreting,  etc. 

9 monitoring  of  remote  sites 

• special  delivery  services  to  include: 

- personal  delivery  to  the  airport 

- packaging  for  shipment 

- interfacing  with  shippers 

• listing,  binding,  collating,  and  bursting 

• microfilm/replication  services 


DATA  CENTER  SCENARIO 

The  planning  of  the  data  center  staff  must  include  a mix  of 
position  levels,  as  indicated  previously,  to  allow  growth  from 
within  the  organization.  Also,  a good  mix  of  low-level  to  high- 
level  technical  content  positions  give  room  for  personal 
growth. 

One  can  expect  impact  on  the  daily  functioning  of  the  data 
center  due  to  vacation,  sickness,  tardiness,  etc.  A backup 
strategy  can  be  accomplished  in  one  of  two  ways. 

1)  Staff  "lean-and-thin"  which  will  require  overtime  by 
others  during  times  of  personnel  shortages. 

2)  Over-staff  so  that  absence  of  a couple  people  will  not 
noticeably  impact  schedules. 

In  place  of  distinct  eight-hour  shifts,  it  is  possible  to  define 
a variety  of  shifts,  allowing  the  data  center  to  attract 
computer  operators  who  prefer  to  work  unusual  hours.  This 
method  also  provides  better  transition  of  data  center  operators 
throughout  the  day.  Refer  to  figure  2 for  an  example. 
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By  use  of  overlapping  shifts,  operators  are  more  flexible  and 
the  data  center  can  be  more  efficiently  run  with  less  difficulty 
adjusting  for  absences.  Also,  the  overlapping  of  computer 
operator  hours  allows  for  more  communications  betweea  the 
operators  than  does  a static  eight-hour  shift. 

Computer  operators  at  such  a center  should  be  considered  as 
professional  or  semiprofessional  — not  as  blue  collar 
automation.  Thus  the  level  of  system  responsibility  and 
understanding  is  higher. 

Reliability  and  stability  data  must  be  provided  via  the- 
operating  system  software.  Since  this  will  be  an  ongoing 
concern,  this  should  be  addressed  immediately  upon' startup  of 
the  installation. 

The  design  of  the  NASF  center  with  regard  to  storage  and  office 
space  will  have  to  be  considered  in  terms  of  NASA  policies.  CDC 
recommends  an  operator's  desk  be  in  the  center  and  that  one  desk 
be  supplied  for  every  two  operators  on  a shift.  Care  must  be 
taken  in  designing  adequate,  well-lighted  space  for  visitors  to 
work  on  their  jobs  as  well. 

Controlled  storage  space,  preferably  within  the  range  of  the 
computer  room  air-conditioning,  should  also  be  provided. 
Supplies,  especially  paper  products,  need  to  be  stored  in  a 
constant  temperature,  low  humidity  environment. 

Other  considerations  for  space  allocations  that  CDC  believes  are 
important  are: 

• Limited-  or  controlled-access  storage  for  cards,  tapes, 
etc . 

• Room  for  several  users  to  lay  out  their  work  and  use 
terminals . 

• Adequate  counter  space  for  several  users  to  discuss  jobs 
with  center  personnel. 

• Keypunches  for  quick  "fixes"  of  user  jobs. 

• Offices  for  the  support  or  customer  services  analysts 
with  offices  that  open  into  the  center  itself. 

• Local  terminal  capabilities  so  that  users  may  be  able  to 
make  minor  modifications  to  their  work. 

More  definitive  information  on  floor  layouts  and  environmental 
considerations  will  be  found  in  Division  10. 


SUMMATION 


In  addition  to  the  data  already  presented  here,  the  following 
points  should  also  be  considered  by  NASA. 

1)  A hardware  calendar  clock  is  recommended  by  CDC.  This 
is  an  aid  in  reducing  purged  files  caused  by  an 
operator' mistakenly  typing  in  the  wrong  date.  Several 
-large  Government  Data  Centers  have  this  clock  installed 
in  their  systems. 

2)  Because  of  the  complexity  of  the  NASF  system, 
short-term,  part-time  operators  are  discouraged.  The 
return  on  the  training  effort  is  most  often  poor. 
Part-time  operators  that  are  employed  should  be  long 
term  ones  for  this  reason.  Part-time  operators  do, 
however,  lend  a good  deal  of  flexibility  to  manpower 
scheduling  in  the  data  center. 

These  points,  plus  the  other  information  in  this  division, 
should  enable  NASA  planners  to  begin  to  visualize  the  structure 
of  the  NASF  facility.  As  the  NASF  plan  further  materializes, 
more  specific  recommendations  and  estimates  can  be  made  by 
Control  Data. 
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DIVISION  10 

NASF  PHYSICAL  REQUIREMENTS  UPDATE 


DIVISION  10 


NASF  PHYSICAL  REQUIREMENTS  UPDATE 


The  report  for  the  first  study  of  this  project  (ref.  1) 
presented  size,  power,  and  cooling  requirements  for  the  NASF. 
This  report  provides  an  update  of  those  requirements;  it 
consists  primarily  of' two  tables.  Table  1 s,hows  a detailed 
listing  of  all  the  elements  that  make  up  the  SPS,  the  disk 
station,  and  the  MCU,  including  all  the  anticipated  peripheral 
equipment.  All  the  equipment  shown  are  products  today.  Table  2 
includes  all  the  separate  parts  that  make  up  the  FMP  computer 
system.  The  motor-generator  sets  and  the  condensing  units  exist 
today  but  the  numbers  for  the  parts  of  the  FMP  — computer  bay, 
Main  Memory,  Intermediate  Memory,  and  Backing  Store  — are 
today’s  best  estimates  since  these  items  have  yet  to  be  built. 

All  the  numbers  in  the  tables  are  subject  to  change  as  design 
proceeds  and  details  of  the  FMP,  as  well  as  the  system,  become 
more  clearly  defined. 
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Table  1.  Standard  Product  Physical  Requirements 
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(LRS) 

HEAT 
PISS  TP 
IBTU/HR) 

**"-*!  INI  I 
400M? 

KVa 

5Q/60H7 

P 

W 

R 

400H2  50/6W2 

208V. 3p  70BV.3P 

amperes  amperes 

0 

N 

N 

50/6 OH? 

nsv.io 

AMBERFS 

n 

N 

Kl 

.CENT  COMPUTER  BAY 

1 

CENT  COMPUTER  BAY 

I 75-1 16 
2 

2 

93.70 

35.00 

45. S5 

79.80 

4500 

366ft 

10.8 

- 

R 

50 

CONSOLE 

175-116 

2 

101*90 

35.00 

49*53 

79.60 

360  0 

5960 

17.3 

- 

70 

condensing  UNIT 

175-116 

2 

32*50 

47*00 

21.22 

46,50 

390 

3030 

0.6 

o,3 

15 

15(08) 

<07) 

MAG  TAPE  CONTROL 

175-116 

2 

72*00 

26.00 

26.00 

48.00 

1460 

174000(13) 

- 

1 4 « 4 

7010  ') 

(0?) 

: 

7021-32 

remote  processop  cab 

1 

29*30 

30.00 

6 • 1 0 

60.00 

750 

?75ft 

0.6 

0,2 

15 

15(08) 

(07) 

7021-32 

MAG  TAPE  TRANSPORT 

1 

29*30 

30*00 

6.1ft 

60.00 

350 

7750 

0.6 

0.2 

15 

15 (OB) 

(0?) 

677-4 

MAG  TAPE  TRANSPORT 

2 

30.50 

30.00 

12.71 

63.50 

boo 

7920 

- 

2.9 

15 < ft  *) 

(03) 

t 

679-7 

EXTENDED  CORE  STORAGE 

2 

30.50 

30.0  0 

12.7) 

63.50 

90  0 

7920 

- 

2.9 

1 5 ( ft  " > 

1 03) 

: 

PERIPHERAL  CONTROLLER  B CAB 

STORAGE  CABINET  1 

7O30-lO4r 

1 

42.00 

20.50 

S.9M 

56,9ft 

6?5 

3B0o 

n. 9 

0.4 

IS 

is 

I 071 

POP  controller 

7030-104C 

1 

70*00 

40*90 

19.63 

72.50 

1 6ft  0 

34400(12) 

7.2 

3.6 

30 

20 

(02) 

PO  ECS  CONFIG. 
CHANNEl  converter 

7030-1040 

1 

29,00 

25.00 

5.03 

66.00 

500 

140ft 

0.3 

0.1 

15 

15 

(07) 

<30ftft> 

10315-1 

4 

channel  converter 

** 

R 

(3000) 

1031  51-2 

4 

«» 

transfer  Sw  cont 

• 

5 

TRANSFFP  SWITCH: 

3270A 

1 

22.90 

20.50 

3.26 

56.90 

4SO 

200ft 

- 

ft. 6 

R 

15 

(ft?) 

IN  3270 A/B 
NETWORK  PROCESSOR 

6271-2 

2 

“ 

" 

- 

- 

- 

- 

- 

0.6 

R 

put)  Fo  M 

3270 

card  punch 

2551-1 

2 

24*00 

34.50 

n .so 

75.0ft 

700 

645ft 

- 

1.9 

7ft 

(07) 

250  CPM  415 

PERIPHERAL  CONTROL 

1 

P1.50 

39*50 

5.90 

45.00 

5«,8 

300ft 

- 

1.1 

15 

(ftl) 

1446-2 

CARD  READER/CONTROLLFR 

1 

42.00 

20.50 

5.90 

56.90 

6S0 

270ft 

0.7 

0.1 

9 

15 

15 

(ft?) 

1200  CRM 

card  reaoer  cont 

405 

2 

57.00 

33.00 

26*13 

46*00 

l?oo 

9000 

- 

3*4 

B 

IS 

#03) 

IN  40S 

3447-2 

? 

P^Q  po  U 

LINE  PRINTEp/COMT 

- 

** 

R 

405  CP 

2000  l PM 
MOTOR  GfNfcRATOR 

550-200 

4 

62*00 

31.50 

54.25 

51  *50 

1600 

1500ft 

- 

5*2 

R 

30 ( ft  * ) 

(0?) 

00  KVA  ,<01>6S045-1KC 

1 

32*00 

32.00 

7.11 

60.30 

3975 

4 TftOft  (11) 

- 

- 

IN /OUTPUT 

CflNM 

TO  *'G  COmt 

Table  1 


Standard  Product  Physical  Requirements  (Continued) 
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Table  1.  Standard  Product  Physical  Requirements  (Continued) 
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Table  2.  FMP  Physical  Requirements 


Unit  Dimensions  Unit 

inches  Dissipated 

(cm)  Unit  Heat 

kVA  BTU/hr 


Qty 

Cabinet  Name 

Width 

Depth 

Height 

60  Hz 

(kcal/hr ) 

Notes 

1 

FMP  Computer 
Bay 

146 

(370) 

102 

(259) 

76 

(193) 

331K 

(83K) 

(1) 

1 

FMP  Main 
Memory 

111 

(282) 

63 

(160) 

76 

(193) 

576K 

(145K) 

(1) 

1 

FMP  Interme- 
diate Memory 
— 32M  words 
(65k  DRAM) 

200 

(508) 

130 

(330) 

76 

(193) 

1 40K 
(35K) 

(1) 

2 

FMP  Backing 
Store 
65M  words 
256k  CCD 

65 

(165) 

29 

(74) 

76 

(193) 

26. 8K 
(6.8K) 

(1) 

22 

Prog.  Device 
Controller 

18 

(46) 

13 

(-33) 

18 

(46) 

1.2K 

(0.3K) 

5 

Condensing 
Unit  30  ton 

90 

(229) 

34 

(86) 

48 

(122) 

40 

290K 

(73K) 

(2,3) 

4 

Co ndensing 
Unit  5 ton 

7 

55K 

(13K) 

(2,3) 

3 

Motor-Gen 
250  KVA 

93 

(236) 

41 

(104) 

43 

(109) 

160 

133K 

(34K) 

3 

MG  Control- 

56 

(142) 

20 

(51) 

78 

(198) 

Notes  for  Table  2 

1)  The  Freon-cooled  units  all  dissipate  about  1 0—1 5 % of 
their  total  power  into  the  room  ambient.  The  balance 
is  dissipated  into  the  Freon  refrigerant.  The  portion 
dissipated  into  the  Freon  is  included  in  the  total  for 
the  condensing  units. 

2)  The  condensing  units  dissipate  about  5%  to  the  room 
ambient  and  the  balance  to  water.  The  total  heat 
dissipated  includes  internal  losses  as  well  as  heat 
taken  from  the  Freon  system. 

3)  The  condensing  units  are  normally  in  a separate  room. 
The  maximum  lengbh  refrigerant  lines  are  100  ft  (30 
m) . 
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NASF  Physical  Requirements  Summary 


• Total  input  power  of  approximately  1000  kVA. 

•-  Total  floor  space  requirements  of  approximately: 

- 6250  square  feet  for  Computer  Room. 

- 450  square  feet  for  Compressor  Room. 

400  -square  fee.t  for  Motor-Generator  Room. 

• Total  heat  dissipation  of  approximately: 

- 715,000  BTU/hr  (180,000  kcal/hr)  to  Computer 
Room  ambient  air. 

- 115,000  BTU/hr  (29,000  kcal/hr)  to  Compressor 
Room  ambient  air. 

- 445,000  BTU/hr  (112,000  kcal/hr)  to 
Motor-Generator  Room  ambient  air. 

- 1,775,000  BTU/hr  (447,000  kcal/hr)  to  water. 
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DIVISION  11 


SYSTEM  SIMULATOR 
SUMMARY  AND  RESULTS 


DIVISION  1-1 


SYSTEM  SIMULATOR 
SUMMARY  AND  RESULTS 


1-.0  DEFINITION  OF  SYSTEM  TO  BE  SIMULATED 

The  Numerical  Aerodynamic  Simulation  Facility  (NASF)  as  studied 
by  CDC  is  a set  of  five  (5)  stations  tied  together  by  a 
communications  trunk  system  called  a Loosely  Coupled  Network 
(LCN) . Figure  1 shows  the  generalized  system. 


\ 


Figure  1 . Generalized  NASF 

One  constraint  has  guided  the  design  of  the  proposed  NASF 
system:  to  meet  the  user’s  computational  need  a computing 

engine  (FMP)  should  be  dedicated  to  executing  flow  code  at  a 
sustained  rate  of  1 billion  floating-point  operations  per 
second  (gigaflop).  Thus  it  seems  obvious  that  significant 
portions  of  the  -problem  need  to  be  carried  out  elsewhere. 

Typical  job  runs  have  been  dissected  to  find  basic  functions 
lending  themselves  to  modularization.  With  the  job  types  so 
specialized  and  similar,  such  modularization  can  result  directly 
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in  corresponding  modular  hardware.  Jobs  may  now  run  " in 
parallel”.  When  a job  occupies  a given  module,  say  the  FMP,  the 
other  modules  are  busy  working  on  other  jobs  (i.e.,  setup  and 
post-processing  tasks) . With  proper  balancing  of  module  tasks 
the  FMP  execution  can  "hide”  all  other  station  functions.  If  • 
this  is  true,  the  FMP  would  be  100%  utilized.  Job  throughput 
would  equal  FMP  throughput  (neglecting  the  system’s  startup  to 
steady  state) . 

Now  in  addition  to  improved  throughput,  the  distributed  module 
concept  allows  designers  to  make  some  or  all  of  the  stations 
particularly  useful  entities  on  their  own.  In  other  words, 
aside  from  increasing  processing  efficiency  and  bandwidth, 
modules  can  provide  storage  capability,  workstation  processing, 
and/or  significant  CPU  power,  etc. 

Though  these  principles  were  formed  on  the  assumption  of  a 
specialized  job,  the  hardware  modules  can  match  an  apparently 
general  job.  For  example,  the  following  run  - 

a)  job  set  up 

1)  input  setup 

2)  code  compilation 

3)  pre-processing  manipulation  of  data  to  generalized 
coordinate  space 

4)  transfer  load  module  to  computing  engine 

b)  execution  of  code  and  storage  of  memory  snapshots 

c)  post-execution  functions 

1 ) store  temporary  results 

2)  store  long  term  results 

3)  process  result  files  for  analysis 

4)  produce  graphical  -files 

can  be  satisfied  by  a very  versatile  set  of  stations. 

These  hardware  modules  have  been  assigned  the  following  rather 
canonical  functions: 

a)  The  SPS  is  the  system  controlling  processor.  It 
interfaces  with  the  user  community  as  a timesharing 
device  with  a powerful  processing  unit,  and  sets  up 
and  post-processes  jobs  for  the  FMP.  It  is  expected 
that  such  a device  will  require  the  capability  of 
between  one  and  two  times  that  of  a CDC  7600. 

b)  The  DSK  serves  as  the  data  transfer  pipe  between 
stations.  These  disks  serve  as  temporary  storage  and 
large  buffer  for  the  FMP  engine. 
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c)  The  FMP  is  the  computation  engine  for  flow  code  or  other 

lengthy  set  of  calculations  that' the  SPS  cannot 
reasonably  handle.  Code  compilation  and  data 
manipulation  may  also  occur  here. 

d)  The  GRF  is  the  display  station  for  user  interaction. 

Bo.th.igraphical  input  and  output  are  manipulated  here. 
Limited  processing  power  is  available  locally,  plus  a 
tie  to  the  system  network. 

The  actual  hardware  contents  of  these  modules  depends  upon  many 
things:  job  sizes,  turnaround  needs,  storage  requirements,  etc. 
Simulation  then  becomes  a powerful  design  tool:  a workload  is 
outlined  from  a job  scenario,  the  parameterized  system,  model 
then  simulates  the  job.  Simulation  results  may  then  be  used  to 
determine  improvements  to  the  hardware  or  software.  Hopefully 
such  a process  converges  to  a reliable  design. 


1.1  Stations 

A station,  or  .d.e-yic.e  .class,  is  a set  of  hardware  (processors, 
disks,  memory,  etc.)  which  acts  as  a functionally  unique  unit 
within  the  system.  The  classes  are: 

1)  Support  Processor  System  (SPS) 

2)  Flow  Model  Processor  (FMP) 

3 ) Remote  Storage  Disks- (DSK) 

4)  High  Speed .Graphics  (GRF) 

5)  Maintenance  Control  Unit  (MCU) 

Details  of  the  stations  as  presently  proposed  follow. 

Note:  The  MCU  is  not  included  in  the  simulation,  and  will  not  be 
referenced  again  in  this  simulator  discussion. 


1.1.1  The  SPS 

The  SPS  repr-esents  ..the  ,g;ener.al  purpose  manager  .of  th.e  system. 
Composed  of  two  CDC  CYBER  175/116  computers  and  supporting  an 
extended  set  of  peripheral  devices  (local  disks,  communication 
controllers,  mass  storage  system,  etc.),  it  controls  the  flow  of 
jobs  among  all  stations.  Basic  responsibilities  assigned  to  the 
SPS  are: 

1)  Control  and  execute  NASF  operating  system. 

2)  Compile  FMP  code. 

3)  Massage  grid  and  configuration  data  for  the  FMP. 

4)  Process  result  files  for  display  output, 

5)  Supply  intermediate  and  long  term  storage. 

6)  Control  all  LCN  file  transmissions. 

7)  Timeshare  local  users. 

8)  Interface  remote  users  to  NASF. 
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One  CDC  CYBER  device  acts  as  the  leader,  holding  and  managing 
the  mass  storage  directories..  Otherwise  each  mainframe  acts  as 
a stand-alone  processor  working  on  its  private  job  load.  The 
CDC  CYBER  devices  must  contend  for  shared  local  hardware. 
Specifications  for  the  proposed  SPS  are  summarized  below.  Note 
that  word  sizes  (in  the  SPS)  are  60  bits. 

1)  Two  mainframe  processors,  each  with  262K  words  of 
central  memory,  20  PPUs,  24  I/O  channels,  and  3-MFL0P 
sustained  computation  rate. 

2)  Four  FMD  disks — 0.5  billion  words  total,  6-Mbit/sec 
transfer  rate  sustained.  Each  disk  cabinet  contains 
two  disk  spindles. 

3)  ECS — 0.5  million  words. 

4)  MSS — 8 cartridge  storage  units,  each  with  two 
cartridge  tape  transports,  holding  a total  of  16 
billion  words  active,  cartridges  removeable,  seconds 
access  time,  16-Mbit/sec  transfer  rate. 

5)  12-Mbit/sec  effective  channel  rate  to  LCN. 

The  main  responsibility  of  the  SPS  station  is  to  keep  the  FMP 
well  fed  with  new  jobs.  All  computations  done  in  the  SPS,  e.g.,' 
code  compilation,  coordinate  space  transformations  (grid  and 
patch  data),  post-processing,  are  done  with  the  intent  that  the 
FMP  need  not  be  weighted  down  with  extra  work.  In  addition 
each  job  can  spend  a large  part  of  its  processing  or  active  life 
"near"  the  user.  This  is  important  for  the  interactive  user 
both  during  code  and  input  debugging,  and  post-processing 
analysis . 


1.1.2  The  FMP  ' 

The  huge  computational  load  of  the  fluid  dynamics  problem  (or 
other  numerical  tasks  which  lend  themselves  to  vectorization) 
is  assigned  to  the  FMP.  With  an  estimated  computation  rate  of  1 
gigaflop  sustained,  keeping  the  FMP  waiting  for  other  stations 
is  expensive.  Up  to  14  I/O  channels  (each  50  Mbit/sec)  may  be 
connected  to  the  LCN.  The  FMP  acts  as  a slave  to  the  SPS  and 
has  no  system  responsiblities  other  than: 

1)  receiving  files  from  DSK, 

2)  job  computation, 

3)  sending  results  back  to  the  DSK  station. 

The  FMP  might  also  have  the  capability  to  compile  source  code 
and  do  complicated  pre- flow-code  processing  tasks.  For  example, 
some  grid  generation  computations  are  too  lengthy  to  assign  to 
the  SPS.  In  fact,  simulation  may  show  that  the  FMP  has  time  for 
considerable  non-flow-code  processing,  if  the  SPS  is  too  heavily 
loaded . 
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1.1.3  The  DSK 


The  DSK  acts  as  a storage  buffer  available  to  all  system 
stations.  The  sixteen  819-21  disks  presently  proposed  provide  1 
billion  words  of  storage,  or  a total  of  about  one  day's  worth  of 
input/output  for  the  FMP.  Thus  as  a relatively  large,  fast 
access,  fast  transfer  storage  station,  the  DSK's 
responsibilities  are  to: 

1)  act  as  a backup  queue  to  the  FMP; 

2)  hold  snapshots  of  intermediate  solutions  of  large 
problems; 

3)  hold  runs  for  possible  same  day  restart; 

4)  transfer  files  to/frora  all  other  stations; 

5)  relieve  other  stations  of  current  jobs'  data  bases. 

The  819  disks  are  assigned  to  a number  of  dual-headed  disk 
controllers  (two  channels  per  controller).  Each  half  of  a 
controller  acts  independently  (with  interlocks)  allowing  for 
increased  bandwidth. 


1.1.4  The  GRF 

The  GRF  station  allows  visual  setup  and  solution  assessment  at  a 
sophisticated  graphics  terminal.  These  terminals  are  tied  into 
individual  minicomputers  with  processing  capability.  Several 
these  terminals  are  concentrated  together  by  a higher  bandwid 
computer.  Each  concentrator  is  a GRF  device  with  one  channel 
interfacing  the  LCN.  The  GRF  responsibilities  are  to 

1)  allow  user  construction  of  configurations 
(aeronautical  test  vehicles  or  parts  thereof); 

2)  allow  user  to  specify  and  construct  flow  fields; 

3)  analyze  post-execution  graphics  frames; 

4)  be  used  interactively  in  the  system; 

5)  transfer  data  to/from  SPS  and  DSK. 

Because  this  class  of  computer  is  much  smaller  than  that  of  the 
FMP  or  "SPS,  data  -is  sent  -in  quarter— .b’lock-s  using  les,s-  of  its 
central  memory  instead  of  full,  32K-word -blocks  (64-bit  words). 
This  station  is  intended  mainly  for  the  interactive  aspect  of 
the  aerodynamics  input  preparation/result  analysis. 
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1.2  The  Loosely  Coupled  Network 


The  Loosely  Coupled  Network  (LCN)  is  a communications  scheme 
which  allows  both  large  data  bandpass  and  versatile  station  to 
station  connectability . The  LCN  centers  on  a number  of  bit- 
serial  data  trunks  each  with  50  Mbits/sec  transfer  capability. 
Programmable  Device  Controllers  (PDCs)  communicate  with  each 
other  via  the  trunk  system.  Each  PDC  can  connect  with  up  to 
four  trunks,  (each  connection  to  a trunk  by  a PDC  is  called  a 
drop.)  Each  PDC  connects  to  one  device  (via  the  PDC’s  backend) ♦ 
In  this  way  a geometry  configuration  can  be  set  up  to  suit 
nearly  any  designer’s  system  philosophy.  Figure  2 summarizes 
the  hardware  involved. 

The  responsibility  of  the  LCN  is  straightforward,  i.e.,  to 
handle  all  the  communications  load  within  NASF . For  the  job 
load  involved,  this  is  a major  task.  The  usage  scenerio 
dictates  typical  runs  of  very  large  data  base  jobs  originating 
away  from  the  computational  engine  (the  FMP).  In  many  cases 
significant  portions  of  a job  are  passed  between  the  GRF  and 
SPS  for  setup  or  post-execution  analysis.  Long-term  storage 
also  resides  far  from  the  FMP  in  keeping  with  the  FMP 
philisophy.  Thus,  to  meet  turnaround'  requirements  and  to  keep 
the  FMP  ’’well  fed”,  the  LCN  must  be  somewhat  robust.  For  a 
detailed . description  of  the  LCN  hardware  please  refer  to 
Division  4 of  Volume  II. 
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FMP  CHANNELS 


SPS  CHANNELS 


GRF CHANNELS 


DSK  CHANNELS 


NOTE: 

ONE  TO  FOUR  DROPS  PER  PDC 
A MAXIMUM  OF  16  DROPS  PER  TRUNK 


Figure  2.  NASF  Loosely  Coupled  Network 


1.3  System  Philosophy,  Principles,  and  Groundrules 

The  NASF  is  a distributed  system  with  major  functional 
capability  in  4 discrete  stations.  The  basic  princ-iple  of 
using  this  design  effectively  is  to.  perform  parallel  operations 
in  these  stations,  i.e.,  simultaneous  use  of  large  amounts  of 
hardware . 

Processing  may  be  done  simultaneously  in  the  FMP,  SPS,  and 
numerous  stand-alone  workstations.  Parallel  data  transfers  can 
potentially  include 

FMP  < > DSK 

SPS  < > DSK 

GRF  < > SPS 

GRF  < > DSK 

such  that  from  1 to  12  (if  the  LCN  has  12  trunks)  transfers  can 

be  moving  on  the  LCN  at  the  same  time;  six  transfers  at  a time, 

8 

for  an  effective  bandpass  of  about  1.2  x 10  bits/ sec,  would  not 
be  unusual  during  peak  demand.  It  should  be  noted  that  data  is 
organized  into  large  blocks,  matching  the  block  structure  of  the 
FMP  Backing  Store.  Presently,  such  blocks  are  envisioned  to 
have  32,768  64-bit  words  (plus  SECDED). 

A simple  groundrule  which  allows  this  effectiveness  is  the  lack 
of  a central  supervisor  or  controller  on  whose  word  everything 
awaits.  Instead,  each  station  governs  its  own  action  via  its 
private  "operating  system".  There  is  no  need  for  one  station  to 
know  what  is  happening  in  any  other  station.  Data  transfers 
between  stations  are  preceded  by  short  request  messages.  The 
FMP  relies  on  messages  from  the  SPS  as  to  file  locations  and 
destinations  but  the  operations  are  asynchronous  and 
independent.  Therefore  devices,  designed  to  be  independent,  see 
only  their  respective  PDC  channels  and  the  messages  which  go 
through  them. 

System  control,  which  resides  in  the  leading  SPS  device, 
assigns  and  schedules  jobs  as  they  enter  the  NASF.  After  this 
point  the  job  flows  from  one  station  to  the  next  when  the  job 
is  ready  to  proceed  and  the  receiver  permits  it.  The  control 
is  clearly  not  centralized.  A system  such  as  this,  with  much 
concurrency  and  capability,  can  still  be  overloaded  by  huge 
data  base  problems  all  crashing  in  the  FMP.,  or  mean  loads  whose 
data  transfer  characteristics  change  suddenly.  In  principle 
the  system  can  be  configured  to  handle  nearly  any  workload  as 
long  as  the  usage  is  reasonably  understood  and  generally 
predictable.  In  practice  it  would  be  enviable  to  have  a 
workload  which  has  an  assortment  of  data  transfer-processing 
time  characteristics  spread  out  uniformly  through  the  day  (i.e., 

the  prime  shift).  In  any  case,  the  more  accurate  the  usage 
model,  the  more  appropriate  a resulting  system  configuration  is 
likely  to  be;  and,  the  more  simulation  at  different  workloads, 
the  more  reliable  a system  design. 
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System  reliability  against  breakdown  is  the-  last  basic 
groundrule  for  the  NASF,  though  not  the  least  important.  With 
significant  amounts  of  hardware  in  each  station  and  the  vitality 
of  each'  to  the  whole  system,  hardware  redundancy  is  required. 
Except  for  the  FMP,  each  station  necessary  for  system  operation 
has  redundant  devices,  e.g.,  2 CDC  CYBER  175s,  4 disk 
controllers,  etc.  LCN  breakdown  must  not  be  fatal  to  the  system. 
Redundancy  of  device-to-device  connections  through  the  LCN  can 
easily  be  three  deep.-  The  connection  geometry  must  be  designed 
to  cover  any  single  hardware  failure  (device,  trunk,  PDC,  drop), 
and  will,  in  fact,  usually  cover  several  multiple-breakdown 
conditions . 

The  loss  of  one  support  processor,  2 disks,  and  a PDC,  for 
example,  should  not  exclude  the  use  of  a healthy  FMP.  A good 
system  design  must  continue  to  service  the  users,  though  perhaps 
at  a diminished  effectiveness.,  under  such  conditions. 
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2.0  SIMULATOR  CHARACTERISTICS 


The  system  simulators  (SYS82  and  SYS83)  are  written  in  a 
traffic-oriented  simulation  language,  General  Purpose.  Simulation 
System  V (GPSS),  in  which  transactions  are  serviced  by  the 
functional  blocks  through  which  they  pass.  Statistics  may  travel 
with  the  individual  transactions;  they  may  be  compiled  within 
each  block;  and/or  they  may  apply  to  the  whole  system  varying 
only  with  the  flow  of  time.  GPSS-  is  appropriate  here  because  1) 
the  programs  can  be  developed  to  nearly  any  desired  degree  of 
detail  and  2)  the  language  is  a standard  simulation  tool  that 
can  be  used  by  Ames  or  nearly  anyone  with  a CDC6600  class 
computer.  Simulation  is  non-continuous  at  time  resolutions  near 
1 clock  period  or  less.  For  system  simulation,  a clock  unit  of - 
10  microseconds  is  used.  This  simulation  should  appear  very 
smooth  and  continuous  to  the  user,  accustomed  to  experiencing 
the  passage  of  time  in  seconds.  Details  of  how  to  use  the 
simulators  are  found  in  Volume  IV,  Division  1 and  2 (Simulator 
User  Manuals) ; examples  of  using  them  as  an  analysis  tool  are 
shown  in  sections  3 and  4 below. 


2.1  Code  Structure 


2.1.1  Central  Theme  - LCN  Mechanics 

The  GPSS  source  code  is  centered  on  the  operations  of  the  LCN. 
The  code  is  generalized  so  that  the  number  of  trunks,  PDCs , and 
drops  per  each  PDC,  and  the  network  connection  scheme  are  all 
parameterized.  These  parameters  are  initialized  at  the 
beginning  of  the  run  and  cannot  be  changed  during  simulation. 

A message  transfer  begins  by  entering  the  sending  PDC  if 
available.  The  PDC,  probably  one  of  many  on  a given  trunk, 
waits  its  turn  and  then  seizes  the  trunk.  While  the  trunk  is 
taken,  no  other  PDC  can  use  it.  After  the  message  is  sent  on 
the  trunk,  the  trunk  is  released.  Before  the  trunk  is  dropped 
the  receiving  PDC  answers  "message  received",  "busy",  or 
nothing.  No  reply  is  sent  if  the  PDC  is  out  of  operation  or  if 
there  was  an  error  in  the  message  transmission.  Messages 
receiving  busy  responses  are  retried  next  time  around  unless 
preempted  by  a higher  priority  message  in  the  sending  PDC. 
Transmissions  that  receive  no  reply  are  tried  several  times  and 
if  still  unsuccessful  the  system  is  notified  of  a perceived 
hardware  breakdown.  This  should  not  occur  in  simulation,  though 
statistically  it  could. 

Heavy  loads  may  create  a queue  of  messages  for  a given  sending 
PDC.  This  queue  is  ordered  according  to  message  priority,  and 
is  first-in,  first-out  within  a given  priority.  GPSS  "keeps  the 
books"  for  the  queues,  and  of  hardware  contention;  no  accuracy 
is  lost  as  the  run  becomes  complicated  (though  CPU  time  can 
grow)  . 
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PDC  clocks  are  simulated  at  10-raicroseoond  increments.  This 
represents  the  typical  time  increment  for  the  internal  PDC 
pointer  that  counts  whose  turn  it  is  to  take  the  trunk.  If  a 
particular  trunk  goes  inactive,  the  appropriate  clocks  are 
turned  off  until  needed,  saving  GPS5  a lot  of  needless 
simulation  effort. 


2.1.2  Code  Modules  for  Device  Classes 

Each  device  class  is  coded  as  a module.  The  modules  contain  a 
library  of  functions  and  capabilities,  which  define  the  internal, 
workings  of  a class.  This  includes  reactions  of  a class  to  the 
requests  of  other  classes. 

The  DSK,  FMP,  and  GRF  modules  are  single,  or  nearly  single, 
function  stations. 

The  DSK  stores  and  transfers  data.  The  simulation  module  allows 
for  one  to  eight  dual-head  disk  controllers,  each  with  a 
stipulated  number  of  attached  disks.  Disk  specifications  are 
initialized,  at  the  beginning  of  the  code.  Each  disk  must  be 
reserved  for  a specific  transfer  and  then  will  allow  only  that 
data  transfer.  Other  requests  will  receive  ’’function  busy” 
responses  until  the  awaited  disk  transfer  is  completed. 
Contention  for  the  disks  can  get  quite  complicated  for  heavy 
loads.  The  "disk  access  time”  graph  and  table  (see  appendix  A, 
pages  123  and  131  respectively,  for  examples)  are  sensitive 
indicators  of  the  level  of  contention. 

The  FMP  receives  jobs,  processes  them,  and  returns  them  to  the 
DSK.  Limited  communications  between  the  FMP  and  SPS  are  also 
carried  out.  This  module  sets  up  the  parallel  transfers  to/from 
the  DSK.  Maximum  parallelism  is  exercised.  This  means  if  there 
are  three  I/O  channels  between  the  FMP  and  DSK,  file  transfers' 
are  split  up  into  three  groups.  The  FMP  processor  facility  is 
monitored  automatically  by  GPSS.  A queue  buffers  jobs  awaiting 
processing,  i.e.,  a backing  store.  Only  one  job  is  processed  at 
a time. 

The  GRF  acts  very  nearly  like  the  FMP.  It  transfers  files  and 
can  be  seized  for  processing.  The  GRF  can  transfer  files  to/ 
from  the  SPS  in  addition  to  the  DSK.  In  processing  mode  it  can 
timeshare  among  users.  The  main  difference  is  that  a block 
transfer  is  done  in  pieces  instead  of  all  at  once.  This  is 
simply  because  a 16-bit  GRF  concentrator  most  likely  cannot  hold 
an  entire  data  block  in  its  memory.  The  size  of  the  transfers 
are  stipulated  and  appropriate  transfer  times  calculated.  There 
can  be  from  1 to '4  GRF  concentrators. 

The  SPS  code  is  not  nearly  so  modular.  The  SPS  functions  mingle 
with  the  system's  operating  system,  and  so  characteristically 
the  respective  code  fills  the  spaces  between  the  LCN  code  and 
the  stations'  code.  The  basic  functions  are  modularized: 

.s.eizing  .a -percentage  of  a mainframe  processor  and  setting  up 
data  transfers  to  the  GRF  or  DSK.  The  details  of 
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the  data  transfers  are  carried  out  in  the  "driven”  devices,  the 
GRF  and  DSK.  Control  responsibilities  which  permeate  the  entire 
source  code  include  all  look  up  directories  (e.g.,  message  path 
connections,  disk  allocation  directory,  etc.)  and  assignment  of 
jobs  to  specific  hardware  devices. 


2.2  Macroscopic  Assumptions:  Special  Notes  Conc.er.ning  the  SPS 

Contention  for  shared  hardware  within  the  SPS  is  not  modeled. 
Such  a model  is  a separate  project  that  eventually  needs  to  be 
done.  In  the  meantime  the  results  of  such  a simulation  has  been 
estimated  (carefully  guessed),  and  used  for  input  to  the  general 
system.  These  are  called  macroscopic  assumptions.  A four 
parameter  family  then  becomes  the  performance  capability  of  the 
SPS  station. 

1)  Flop  (computation)  rate — This  is  the  effective 
computation  speed  of  each  processor.  For  CYBER  175s  a 
rate  of  3 Mflops  is  assumed.  Compilation  speed  is  also 
included  here.  An  accepted  speed  is  100,000  lines  per 
minute . 

2)  Effective  channel  rate — The  PPUs  have  well  known  data 
rates,  but  under  a scheme  of  shared  local  disks,  ECS, 
and  MSS,  determining  the  effective  channel  rate  for 
large  data  blocks  is  not  an  easy  problem.  The 
contention  scheme  is  comparable  in  principle  to  the 
total  system  contention  scheme  modelled  in  the  LCN  and 
DSK.  The  PPU  1/0  rate  is  assumed  to  be  the  effective 
channel  rate;  thus  it  is  assumed  that  most  of  the 
overhead  will  be  hidden. 

3)  Program  or  task  load--Each  SPS  processor  is  a time 
sharing  device.  The  order  of  task  servicing  is  a 
complicated  question.  Jobs  get  rolled  in  and  out 
depending  on  job  memory  and  processing  needs  and  a list 
of  other  state-of-the-system  (SPS)  factors.  The 
macroscopic  assumption  is  vastly  simplified. 
Parameterized  separately  is  the  continuous  load  due  to 
timesharing  (workshop)  users,  load  due  to  a data  block 
transfer,  and  load  due  to  program  compilation  or 
execution.  These  loads  are  percentages  of  each 
mainframe’s  capability.  For  example,  the  simulations 
in  section  4 assign  20%  for  continuous  workshop  and 
operating  system  load,  10%  for  data  block  transfer  load 
when  such  transfers  occur,  and  from  15%  to  70%  for  the 
various  compilation  and  execution  loads.  Demand  on 
memory  is  the  main  factor  used  in  estimating  these 
loads . 
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4)  SPS  response  time — this  represents  the  time  it.  takes 
the  SPS  as  a system  to  respond  to  internal  device 
•requests,  and  to  communicate  the  external  requests  to 
its  internal  hardware.  Thus,  it  is  a macros.copic 
representation  of  SPS  overhead  time  to  requests  and 
commands.  It  has  not  been  determined  if- such  overhead 
is  of  a significant  time  span  and  has  been  assumed  to 
be  zero. 

Clearly  the  simulation  results  rest  heavily  on  these 
assumptions.  If  later,  more  detailed  SPS  simulation  shows 
estimates  to  be  incorrect  it  is  reasonable  to  expect  that 
changes  could  be  made  in  the  SPS  design  to  compensate. 
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3.0  THE  SIMULATOR  AS  A TOOL 


This  section  describes  the  different  levels  at  which  the 
simulator  can  analyze  a system  configuration  alternative. 


3.1  Simulator  Input 

Three  sets  of  data  can  be  manipulated. 

1)  The  system  hardware,  via  a deck  of  card  images,  as 
described  in  the  User  Manual  (Volume  IV) — this  deck 
allows  the  user  to  describe  communications  between 
stations,  network  versatility,  and  hardware 
duplication. 

2)  A set  of  input  commands,  another  card  deck,  which 
represents  a job  workload — each  system  job  is 
constructed  from  the  following  commands: 

a)  Transfer  a file  of  blocks. 

b)  Send  a very  short  message  ( = 20  usee)  . 

c)  Send  a random  length  message  (0  to  1000  usee). 

d)  Seize  FMP  for  processing. 

e)  Seize  a percentage  of  SPS  or  GRF  device  for 
processing . 

f)  Change  priority  of  inpat  which  follows. 

g)  Assign  arrival  time  for  the  next  job  of  the  same 
class. 

Typically  from  10  to  20  input  commands  describe  each 
job.  Up  to  99  jobs  can  be  input  in  one  simulation 
run . 

3)  A set  of  system  parameters  found  at  the  beginning  of 
the  GPSS  source  code: 

a)  Hardware  parameters  - DSK  specifications,  channel 
rates,  buffer  sizes  within  the  PDCs,  and  guidelines 
for  hardware  duplication. 

b)  Software  and  firmware  assumptions  - block  size, 
interstation  block  transfer  time  statistics, 
workshop  load  on  SPS  and  GRF  devices,  load  demanded 
from  SPS  and  GRF  for  block  transfers. 

Data  sets  1)  and  3)  represent  a system  design  to  be  tested.  The  - 
user  should  be  careful  to  understand  that  the  simulated  results 
represent  the  input  designs  and  assumptions  made  in  these  data 
sets.  Thus  a large  responsibility  rests  with  the  user:  to 
understand  and  note  the  assumptions  made,  and  to  acknowledge  the 
inherent  shortcomings  and  analytical  shortcuts  that  result.  For 
example  assigning  one  number,  say  10£,  to  represent  the  load  put 
upon  an  SPS  processor  to  transfer  a 32K-word  data  block  is  an 
oversimplification.  The  sensativity  of  the  results  to  such  a 
macroscopic  parameter  should  be  understood.  Extrapolation  of 
results  can  only  be  suggested  after  several  similar 
simulations . 
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3.2  Two  Simulators 


There  are  two  levels  of  simulation  detail  (see  Volume  IV). 
Source  code  SYS83  is  a general  purpose  simulator  whic.h  studies 
the  whole  system.  In  this  code,  system  functions  are  modeled 
macroscopic ally : block  transfers,  seizing  processors  for 
seconds,  contention  by  several/many  jobs  of  the  various  system 
resources.  Functional  detail  in  the  SPS,  FMP,  and  GRF  is  no 
better  than  tenths  of  seconds.  Detail  in  the  DSK  station  is  at 
the  millesecond  level  (seek  times,  rotation  rates). 

Source  code  SYS82  models  message  transfers  in  much  greater 
detail.  Block  transfers  are  done  at  a higher  level  of  detail, 
i.e.,  each  sector  is  modeled.  Buffering  of  sectors  in  the  PDCs 
is  performed  when  station  channel  rates  do  not  match,  e.g., 
CYBER  175  and  819  disks.  Thus  the  detail  of  the  transfers  is 
nearly  at  the  10-microsecond  level  within  the  LCN.  This 
simulator  yields  accurate  macroscopic  specifications  used  in 
SYS83  for  block  transfer  times.  In  addition  disk  assignment 
algorithms  within  the  DSK  can  be  compared. 

Thus  though  the  two  simulators  are  used  in  tandem,  the 
responsibility  of  system  analysis  rests  within  SYS83. 


3.3  Simulation  Techniques 


3.3.1  Full  Run  - Truncated  Run 
Simulation  runs  are  performed  in  two  modes. 

Mode  A : Simulation  to  completion  of  all  jobs.  This  acts  as  a 
full  master  listing,  of  an  entire  simulation.  The  system  is 
potentially  seen  under  several  conditions:  start  up,  smooth 
throughput,  backed  up,  and  clearing  out  at  the  end.  Because  of 
the  random  nature  of  job  arrivals,  the  end  of  such  a run  can  be 
greatly  extended  by  a few  jobs  which  arrived  late.  This 
situation  distorts  the  mean  statistics  of  the  simulation  --  in 
-some  case  quite  badly  (-20%)  . Yet  such  -an  ' overview  o-f  the  run  is 
a good  start. 

Mode  B:  Simulating  until  an  initially  stipulated  number  of  GPSS 
transactions  have  been  sent.  This  allows  the  user  to  stop  the 
simulation  while  the  system  is  in  a specifie  condition.  For 
example,  with  the  help  of  the  first  master  run  (a  Mode  A 
simulation) , the  user  can  stop  the  simulation  at  virtually  the 
minute  chosen  — perhaps  after  85%  of  the  jobs  have  run  and 
another  10%  are  at  various  stages  of  completion.  In  this  case, 
the  mean  statistics  are  more  valid.  See  User’s  Manual  (Volume 
IV,  Division  1)  for  implementation. 
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In  some  cases,  there  may  be  an  anomaly  in  stopping  the  system  in 
full  flight  in  that  some  ,,facilityM  output  may  be  incorrect, 
i.e.,  "average  utilization"  and  "average  time  per  transaction" 
for  the  FMP  and  SPSs  may  be  wrong.  In  this  case  a simple  hand 
calculation  from  the  individual  job  histories  should  yield  both 
the  average  sieze  time  per  transaction  (A)  and  the  number  of 
transacations  (N).  Then,  with  the  simulator  stop  time  (S)  from 
the  chronological  history,  the  facility  utilization  is  easily 
determined . 

Average  utilization  = (A*N)/S 

A scan  of  the  simulation  history  should  make  clear  whether  this 
correction  is  needed. 


3.3.2  Light  Load  - Heavy  Load 

Experience  has  shown  that  the  first  step  in  an  analysis  of  a 
given  NASF  design  should  be  a set  of  simple  problems.  A general 
analysis  involves  an  understanding  of  a complicated  set  of 
coupled  resources  and  is  simply  not  possible  without  first 
understanding  some  of  the  basic  principles  that  come  out  of  each 
system  design.  The  light  load  - heavy  load  technique  isolates 
the  interconnection  design.  It  assesses  the  potential  of  the 
trunk  system  and  the  conflicts  therein. 

A)  Light  Load 

A light  load  is  defined  as  a set  of  data  transfers 
which  take- less  time  than  the  mean  time  between 
transfer  requests.  This  can  occur  either  because  of  a 
generally  light  workload,  or  because  the  workload  is 
dominated  by  processing  time.  -In  these  cases  disk 
conflicts-,  PDC  busy  replies,  and  trunk  busy  replies  are 
rare.  The  user  sees  the  network  reaction  in  best  case 
mode . 

The  relative  interstation  bandwidths,  trunk  loads,  and 
PDC  loads  show  clearly.  Communications  balancing 
problems  should  then  become  evident. 

Appropriate  data  for  these  runs  are  parts  of  the 
workload  to  be  modeled  later,  e.g.,  Model  #-1  of  the 
Ames  Usage  Model,  alone.  These  runs  can  also  be  used 
to  debug  the  workload  data. 


1 1-16 


B)  Heavy  Load 

A heavy  load  is  a workload  dominated  by  data  transfers 
numerous  enough  to  saturate  at  least  part  of.  the  LCN 
hardware.  For  example  take  the  above  light  load  input 
and  decrease  all  the  job  interarrival  times. 
Communications  hardware  with  average  utilizations  of 
70?  or  more  are  usually  considered  saturated  or 
partially  saturated.  If  potential  bottlenecks  in  the 
LCN  were  not  apparent  before,  they  surely  show  here. 
More  importantly  though,  the  system  shows  just  how 
heavy  a load  it  can  stand.  The  user-  should  note 
decreased  communication  efficiency  through  a range  of 
loads . 

At  this  point  system  reconfiguration  may  be  deemed 
necessary.  If  so,  the  light  load  - heavy  load 
technique  is  begun  again.  By  the  time  this  process  is 
complete  the  user  should  have  a good  understanding  of  a 
proposed  system. 


3.3*3  Key  Diagnostics 

A completed  simulation  yields  a history  of  all  the  jobs 
executed.  File  transfers,,  processing  times,  start  job  and  end 
job  annotations  are  listed.  A wealth  of  information  is  provided 
in  these  listings.  These  provide  a feeling  for  how  the  system 
progresses  through  its  various  states.  This  running  time 
history  helps  the  designer  isolate  particular  resource  demand 
problems.  System  wide  software  algorithms,  e.g.,  job  priority 
assignments,  can.be  assessed.  When  all  the  information  is. 
digested , the-  simulation  can  be  a powerful  tool. 

The  general  simulation  results  are  summarized  by  a few  key 
statistics.  These  can  be  scanned  and  digested  easily. 

a)  FMP  and  SPS. utilizations.  Hopefully  the  utilization  of 
the  FMP  is  quite  high  which,  as  noted  in  section  1,  is 

“the* 'whO'l-e-vafd'ea  -of  -the  NASF  s.ys.t.em..  On  the  .other  hand., 
the  SPS  should  not  be  over-saturated.  Overhead  time 
due  to  job  conflicts  would  slow  down  the  feeding  and 
finishing  of  jobs;  .system  throughput  would  diminish. 

b)  FMP  and  SPS  queues.  The  FMP  may  build  up  a significant 
job  queue  depth  as  long  as  the  depth  is  not 
monotonically  increasing  in  time.  A steady  state  FMP 
queue  will  not  slow  down  throughput.  This  is  not  true 
of  the  SPS  queues.  Such  a queue  represents  an 
inability  for  the  SPSs  to  keep  up  with  the  system 
demands;  thus  slower  system  startup,  finish, 
turnaround,  and  throughput. 
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c)  Trunk  utilization.  This  should  show  if  the  LCN  had  any 
trouble  keeping  up  with  the  message  and  data  traffic 
workload . 

d)  Disk  access  time.  The  greater  the  number  of  cylinder 
seeks  required,  the  more  the' data  transfer  overhead, 
i.e.,  the  less  efficient  the  DSK  station.  Such  seeks 
are  due  to  file  request  conflicts  to  the  disks,  a 
characteristic  of  a heavy  communications  load. 

e)  Mean  block  transfer  time.  Again  this  shows  overhead  due 
to  heavy  data  transfer  loads.  In  this  case  transfer 
time  increases  as  a block  awaits  an  open  line  on  the 
network.  File  transfer  times  also  show  backups  in 
extreme  cases. 

f)  Throughput  statistics.  This  is  the  bottom  line  of 
performance  to  every  simulation.  Did  the  system  finish 
jobs  as  quickly  as  it  gets  them? 


3.4  Trial  Runs  on  Three  Different  LCNs 

Three  different  NASF  configurations,  all  with  the  same  device 
class  hardware,  have  been  tested.  Figures  3»  4,  and  5 show  the 
respective  connection  schemes  for  LCN1 , LCN2,  and  LCN3 
respectively.  Trunks  1 through  4 are  dedicated  to  FMP  < — > DSK 
transfers  (if  4 are  used).  This  bandwidth  is  a response  to  the 
principle  that  a pipe  to/from  the  FMP  always  be  clear . This 
includes  the  peak  loads  of  checkpoint  dumps,  typically  millions 
of  words.  Trunk  5 is  for  the  high  priority  SPS  < — > FMP 
messages  and  SPS  <-->  GRF  data  transfers  (relatively  rare). 
Trunks  6 and  7 (when  used)  are  for  SPS  <— > DSK  and  GRF  •<-->  DSK 
data  transfers.  Clearly  not  all  the  network  hardware  is  used  in 
all  three  cases.  The  differences  are  simple:  LCN2  has  twice  the 
SPS  < — > DSK  and  GRF  < — > DSK  bandwidth  of  LCN 1 . LCN3  has  the 
same  SPS  < — > DSK  and  GRF  < — > DSK  improvement,  but  half  the  FMP 
<— > DSK  bandwidth. 
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Simulation  assumptions: 


Block  size:  64  sectors  (each  512  words), 


1 .e . 


32K  words  (64-bit) 


CYBER  PP  rate:  12  Mbits/sec 

Disk  (819)-  transfer  rate  (sustained): 

Trunk  rate: 

GRF  channel  rate: 

PDC  buffer  size  for  data  transfers: 

? load  on  SPS  d-evice  for  data  transfers:  10? 
? load  on  GRF  device  for  data  transfers:  80? 


21  Mbits/sec 
50  Mbits/sec 

2 Mbits/sec 

3 sectors 


LCN1 


8 


Under  relatively  light  loads  (input  = 1.4  x 10 


words/ hr) 


it 


was  immediately  obvious  that  the  SPS  < — > DSK  bandwidth  is  not 
balanced  with  that  of  the  FMP  < — > DSK  which  is  5 times  faster. 
Utilization  of  PDCs  14  and  18,  the  SPS’s  prime  channels  to  DSK, 
is  about  twice  that  of  all  other  PDCs.  PDCs  1-7  and  21-29  and 
trunks  1-4  all  have  very  comparable  utilization  averages. 


Under  heavier  loads  the  SPS  <-->  DSK  imbalance  relative  to  the 
FMP  < — > DSK  grows,  until  trunk  6 begins  to  saturate  at  around 
70?.  At  this  stage  the  SPSs  are  utilized  19%  and  14? 
respectively.  With,  mean  block  transfer  times  doubled,  the  SPS 

8 

station  is  clealy  1/0  bound  by  trunk  6.  At  4.8  x 10  word/hr 
all  LCN  hardware  is  less  than  50?  utilized  except  trunk  6 (71?). 
This  data  load  exceeds  the  needs  stated  in  the  Ames  Usage  Model. 
Though  trunk  6 is  almost  saturated  the  effective  transfer  rate 
is  well  within  data  throughput  goals. 

LCN2 


Now  trunk  6 and  7 share  the  SPS  <-->  DSK  and  GRF  < — > DSK  Load 
originally  on  trunk  6.  Now  SPS  < — > DSK  is  only  2.5  times 
slower  then  FMP  < — > DSK.  This  alleviates  much  of  the  excessive 
load  seen  on  trunk  6 of  LCN1.  Otherwise  system 

8 

balance  is  identical  to  LCN1.  At  an  input  load  of  4.3  x 10 

words/hr  (output  = 1?  of  input;  FMP  processing  times  = 60 
sec/job  Usage  Model-Model#2 ) , rio  part  of  the  network  has  begun 
to  saturate!  Trunk  6 is  about  50?  utilized;  trunk  7 is  about 
30-35?  utilized.  SPS  utilizations  have  dropped  to  7?  and  3? 
respectively.  Job  throughput  and  turnaround  times  improve  by 
about  10?  for  heavy  workloads. 

LCN3 


Cutting  the  FMP  < — > DSK  bandwidth  in  half  (otherwise  identical 
to  LCN2)  does  not  degrade  system  throughput  or  job  turnaround  at 
all.  The  LCN  hardware  now  looks  well  balanced  with  the  FMP  and 
SPS  having  comparable  bandpasses  into  the  DSK.  Even  so,  extra 
system  reliability,  versatility,  and  the  possibility  of  larger 
checkpoint  dumps  prompt  a preference  for  LCN2  over  LCN3  though 
at  slight  extra  cost. 
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4.0  RESULTS  FROM  SIMULATING  THE  n NASF  USAGE  MODEL" 


Two  to  three  hour  slices  of  the  NASF  Usage  Model  (version 
79.001,  from  NASA-Ames)  have  been  simulated  on  the  three 
proposed  systems  described  in  section  3.4.  The  multi- job,  high- 
level  simulator,  SYS83  has  been  used. 

Below,  one  example  is  presented  in  detail  to  show  how  simulation 
analysis  may  proceed.  Several  other  examples  are  referenced  in 
passing  to  help  clarify  basic  points.  It  is  important,  though, 
to  understand  that  these  represent  first  passes  at  using 
simulation  tools  for  the  NASF.  Much  time  and  effort  will  be 
required  for  a complete  analysis. 


4.1  Translation  of  Usage  Model  into  Workload  Input  for 
Simulator 

The  Usage  Model  translates  fairly  easily  into  simulation  input. 
Model  guidelines  are  followed  as  closely  as  possible  with  one 
exception.  Model  4,  "Complex  Design  Simulation"-,  jobs  are 
assigned  entirely  to  the  prime  shift  instead  of  1/2  prime,  1/2 
night.  This  choice  is  made  with  the  intent  of  loading  toward 
worst-case  simulation. 

Fifty-nine  Model  #1 , twenty-three  Model  #2,  six  Model  #3»  and 
eight  Model  #4  jobs  were  simulated.  This  represents  the  average 
job  load  of  2 hours  during  the  prime-time  shift.  Specifications 
are  summarized  below.  Within  each  class  of  jobs  the  major 
commands  that  represent  that  class  are  listed  with  letter 
headings.  For  some  letter  headings  job  scenarios  branch  out  into 
one  or  more  variations.  Such  branching  is  represented  by  a 
multi-level  number  sequence  added  onto  that  letter  (similar  to 
section  or  paragraph  heading  numbers) . 

The  letters  represent  major  steps  in  a job  flow.  The  first 
digit,  if  present  after  a letter,  represents  a branch  or  split 
of  jobs  in  that  class.  The  second  digit,  if  present,  indicates 
a sequence  within  the  leg  of  the  branch  represented  by  the  first 
digi-t. 

The  flow  of  a job  through  the  system  is  actually  very  similar 
for  all  jobs.  The  variation  is  in  the  number  and  sizes  of  the 
files  involved,  and  the  processing  time  required.  Figure  6 
summarizes  the  basic  scenario. 
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{1}  (11)  (1)  (11) 


Notes : 

(1)  ”Job  execute”  request  enters  NASF  through  SPS  or  GRF . 

(la)  GRF  files  may  go  to  SPS. 

(2)  SPS  compiles  source  code  and/or  preprocesses  input  data. 
(2a)  Continue  to  (3)- 

(3)  SPS  and/or  GRF  files  transfer  to  DSK. 

(4)  DSK  stores  input  files;  load  moule  and  input  data. 

(5)  Input  files  sent  from  DSK  to  FMP. 

(6)  FMP  executes  job. 

(7)  Result  files  sent  from  FMP  to  DSK. 

(8)  DSK  stores  result  files. 

(9)  Some/all  result  files  transfer  from  DSK  to  the  SPS  and/or 
GRF. 

(10)  SPS  post-processes  result  files  for  user  analysis. 

(10a)  Post-processing  results  may  go  to  GRF  for  display/ 

analysis . 

(10b)  Continue  to  (11). 

(11)  Job  returns  to  user  at  workstation;  further  analysis  may 
proceed  on  graphics  hardware,  a local  processor,  or  the 
SPS. 

Figure  6.  Typical  Job  Flow  through  NASF. 
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Model  if  1 Method  Development  (59  jobs)  . These  jobs  have  small 
processor  demands  (both  SPS  and  FMP)  but  relatively  large  data 
bases.  Typically  this  is  a three  million  word  job  which  runs  in 
the  FMP  for  10  seconds,  followed  by  the-  retrieval  of  .a  dump  file 
or  diagnostics. 

a)  • Job  execution  request  arrives;  interarrival  mean 

of  120  sec. 

b)  SPS  compiles,  prepared  source  code.  30%  of  one 
C.YBER  mainframe  seized  for  1 sec;  then 

c.T)  No  wait  - go  to  step  d)  (1-4  of  49  jobs). 

c.2.T)  Wait  10  minutes  ("think  time")  due  to  compilation 

error  and  recompile  as  in  b)  (for  45  of  the  59 
jobs);  then 

c.2.2)  No  further  wait  - go  to  step  d)  (30  of  45  jobs); 

wait  5 minutes  ("think  time")  due  to  recompilation 
error  and  recompile  as  in  b)  (for  15  of  the  45 
jobs);  then 

d)  Send  Filel  (load  module  - 1 block)  to  DSK ; then 

e)  Send  Filel  from  DSK  to  FMP,  and 

f)  Send  File2  (configuration  - 1.  block)  from  GRF  to 

DSK;  then 

g)  Send  File2  from  DSK  to  FMP,  then, 

h)  Request  FMP  for  execution.  The  FMP  checks  for 

arrival  of  files  1 and  2 and  processes  them  for 
10  sec  as  soon  as  allowable. 

1.1.1)  Send  File9  (debug  dump  file  - 90  blocks)  to  DSK 
(for  20  of  the  59  jobs),  then 

1.1.2)  Send  File9  .-from  DS.K  -to-  SPS  ,(>same  .20  jo’b.s)  . 

1.2.1)  Send  File8  (edited  results  file  - 2 blocks)  to 

DSK  (remaining  39  of  the-  59  jobs)  , then 

1 .2.2)  Send  File8  from  DSK  to  SPS  (same  39  jobs). 

1.2.3)  Request  SPS  processor  for  output/pictorial  post- 
processing. Seize  25%  for  40  sec  (same  39  jobs). 

j)  End  job. 
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Model  #2  Code  Development  (23  jobs).  Similar  to  Model  #1 , but 
the  processor  demand  and  data  base  is  larger.  Half  of  the  jobs 
require  post-processing  for  graphics  use.  Typically  an  eight 
million  word  job  which  may  run  in  the  FMP  for  60  seco.nds. 

a)  Job  execution  request  arrives;  interarrival  mean  of 
300  sec. 

b)  SPS  compiles  prepared  source  code.  50%  of  one 
CYBER  mainframe  seized  for' 1 second;  then 

c.1)  No  wait  - go  to  step  d)  (6  of  23  jobs). 

c.2.1)  Wait  10  minutes  (“think  time")  due  to  the 

compilation  error  and  recompile  as  in  b)  (for  17  of 
the  23  jobs) ; then 

c.2.2)  No  further  wait  - go  to  step  d)  (11  of  17  jobs); 

wait  5 minutes  (“think  time”)  due  to  recompilation 
error  and  recompile  as  in  b)  (for  6 of  the  17 
jobs) . 

d)  Send  Filel  (load  file  - 2 blocks)  to  DSK ; then 

e)  Send  Filel  from  DSK  to  FMP,  and 

f.1.1)  Send  File2  (configuration  data  - 2 blocks)  from  GRF 
to  DSK  (19  of  23  jobs),  then 

f.1.2)  Send  File2  from  DSK  to  FMP  (same  19  jobs) 

f.2.1)  Send  File2  from  GRF  to  SPS  (4  of  23  jobs),  then 

f.2.2)  Request  SPS  device  for  configuration  manipulation. 
Seize  30%  of  one  CYBER  for  70  seconds;  then 

f.2.3)  Send  File2  (resulting  transformed  configuration 
data  - 2 blocks  to  DSK;  then 

f.2.4)  Send  File2  from  DSK  to  FMP  (same  4 jobs). 

g)  Send  File3  (grid  data  - 19  blocks)  from  SPS  to  DSK, 

then 

h)  Send  File3  from  DSK  to  FMP. 

i)  Request  FMP  for  execution;  FMP  checks  for  arrival 
of  files  1,  2,  and  3 and  processes  them  for  50 
sec.,  as  soon  as  possible. 
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j . 1. 1 ) Send  File9  (debug  dump  - 125  blocks)  from  FMP  to 
DSK  (for  3 of  23  jobs),  then 

j.1.2).  Send  File9  from  DSK  to  SPS,  and  . 

j .1.3)  Send  the  rest  of  File9  (125  blocks  more)  from  FMP 
to  DSK  (same-8  jobs),  and 

j.1.4)  Send  this  part  of  File9  from  DSK  to  SPS. 

j.2.1)  Send-  File8-  (edited  result  files  - 6 blocks)  from 
FMP  to  DSK  (12  jobs  of  23),  then 

j.2.2)  Send  FileS  from  DSK  to  SPS  (same  12  jobs). 

j.2.3)  Request  SPS  for  output/pictorial  post-processing. 
Seize  70%  of  one  CYBER  for  120  sec.  (same  12 
jobs) ; 

j.2.4)  Send  File7  (output  file  - 4 blocks)  from  SPS  to 
GRF  (same  12  jobs); 

j . 3 - 1 ) Send  File8  (edited  result  files  - 12  blocks)  from 
FMP  to  DSK  (remaining  3 of  23  jobs) , then 

j.3.2)  Send  file  from  DSK  to  SPS  (same  3 jobs). 

j.3.3)  Request  SPS  for  output/pictorial  post-processing. 
Seize.  70%  of  one  CYBER  for  240  seconds  (same  3 
jobs) , then 

j.3.4)  Send  File7  (output  file  - 8 blocks)  from  SPS  to 
GRF  (same  3 jobs)  . 

k)  End  job. 
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Model  #3  Simple  Design  Simulation  (6  jobs).  Engineer’s 
simulation  job.  20%  of  the  jobs  have  full  blown  configur ation 
and  grid  files.  Some  pre-processing  short  FMP  run-60  seconds. 

20%  restart.  Heavy  post-processing  for  graphical  use.. 

a)  Job  execution  request  arrives;  interarrival  mean 

of  24  minutes. 

b . 1)  Proceed-  to-  step  c)‘  ('5  of  6 jobs). 

b.2)  SPS  compiles  prepared  source  code.  70%  of  one 
CYBER  seized  for  2 seconds  (1  of  6 jobs). 

c)  Send  Filel  (Load  file  - 4 blocks)  to  DSK,  then 

d)  Send  Filel  from  DSK  to  FMP. 

e.1.1)  Send  File2  (configuration  patch  - 4 blocks)  from 

the  GRF  to  the  SPS,  (3  of  6 jobs). 

e.1.2)  Request  SPS  for  configuration  and  grid 

manipulation.  Seize  70%  for  240  sec  (same  3 jobs), 
then 

e.1.3)  Send  File3  (transferred  patch  and  grid  data  - 92 
blocks)  from  SPS  to  DSK  (same  3 jobs);  then 

e.T. 4)  Send  File3  from  DSK  to  FMP. 

e.2.1)  Send  File2  (patch  and  grid  setup  - 4 blocks)  from 
SPS  to  DSK  (3  of  6 jobs);  then 

e.2,. 2)  Send  File2  from  DSK  to  FMP  (same  3 jobs);  then 

e.2.3)  Request  FMP  processing  of  patch  and  grid 

manipulation.  Seize  FMP  for  10  seconds  (same  3 
jobs) . 

f)  Request  FMP  processing  for  flow  code  for  60 

seconds . 

g.1)  No  File9,  go  to  step  h)  (3  of  6 jobs). 

g.2)  Send  File9  (restart  file  - 220  blocks)  to  DSK  for 

temporary  storage  (1  job  of  6) 

g.3.1)  Send  File9  (raw  results  - 150  blocks)  to  DSK  (2  of 
6 jobs) , then 

g .3.2)  File9  from  DSK  to  SPS  (1  of  6 jobs). 
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n)  Send  File8  (edited  results  file  - 3 blocks)  to  DSK, 

then 

i)  ' Send  File8  from  DSK  to  SPS. 

j)  Request  SPS’  processing  of  file  8 for  pictorial 
results.  Seize  60%  of  one  CYBER  for  200  sec. 

k)  Null  - reserved  for  Model  #4. 

l)  Send  File7  (display  file  - 2 blocks)  from  SPS  to 

GRF  for  graphics  study. 

m)  End  job. 
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Model  #4  Complex  Simulation  Design  (7  jobs).  Engineer's 
simulation  jobs  requiring  significant  processing  time  — 10 
minutes  in  the  FMP,  several  rainubes  in  the  SPS  for 
pre-processing  or  post-processing  or  both.  This  model  has  the 
heaviest  total  demand  of  time  on  the  FMP  (6.5  hrs/day) . 

Steps  are  identical  to  Model  #3  except  as  noted  below. 

a.)  Mean  job  interarrival  time:  15  min.  (900  sec.) 

f)  Request  FMP  processing  flow  code  for  600  seconds. 

g.2)  Restart  file  - 310  blocks, 
h)  Edited  results  file  - 3 blocks. 

j)  Seize  60%  of  one  CYBER  for  240  sec, 

k)  Seize  60%  of  one  CYBER  for  240  sec.  again. 

l)  Display  file  - 10  blocks. 

The  above  represents  two  simulated  hours  of  input  during  prime 
shift.  Mean  job  interarrival  times  are  based  on  the  assumption 
that  the  prime  shift  is  10  hours  long.  Estimates  for  SPS 
processing  times  have  been  made  for  code  compilation,  pre-  and 
post-processing  tasks.  The  main  difficulty  is  counting  the 
number  of  calculations  required.  An  estimate  of  compilation 
rates  from  past  experience  with  CYBER  170  family  is  100,000 
lines  of  code/min.  For  grid  and/or  patch  generation/ 

10  6 

transformation,  10  calculations  per  10  points  is  assumed 
(quoted  from  Ames’  Usage  Model).  For  post-processing  of  result 
7 

files  6 x 10  calculations  per  4000  point  contour  plot  (i.e.,  one 
frame)  is  assumed  (again  from  Ames’  Usage  Model).  Each  CYBER  175 

6 

is  estimated  to  run  at  3 x 10  calculation/sec  when  the  entire 
job  is  in  its  central  memory.  A 50%  reduction  in  speed  is 
assumed  if  only  1/2  the  job  is  in  the  central  memory  at  a given 
time. 

At  several  junctures  of  the  input  design,  estimates  were 
assigned.  Examples  are  20%  continuous  load  on  each  SPS 
mainframe  for  workshop  timesharing,  high  estimates  for  SPS 
computation  times,  and  more  restart  and  raw  result  files  than 
expected  on  average  (by  60%).  Thus,  it  appears  likely  that  a 
heavier  than  average  priraeshift  workload,  is  being  simulated, 
though  not  an  unlikely  load. 


4.2  An  Example  Simulation 

A truncated  run  (Mode  B) , lasting  7650  seconds,  is  described 
here  as  a typical  example  of  a system  evaluation  via  simulation. 
LCN2  was  used  as  the  baseline  configuration.  The  run  follows 
all  specifications  listed  in  section  3.4  and  section  4.1  with 
one  exception:  SPS  compiling  and  processing  times  have  been 
lengthened  by  50%  as  a tradeoff  for  demanding  half  as  great  a 
processor  resource  load.  For  example,  a 120  second  job  requiring 
70%  of  an  SPS  processor  is  converted  to  a 180  second  job 
requiring  35%  of  the  processor.  This  allows  much  greater 
processing  versatility  within  the  SPS,  but  at  the  same  time 
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implies  a much  greater  SPS  computation  power.  Specifically, 
instead  of  a pair  of  3-niegaflop/sec  machines  as  described  in 
section  1.1.1,  now  a pair  of  4.5  to  5-megaflop/sec  machines  are 
being  modeled.  This  SPS  "horsepower”  parameter  is  varied 
throughout  the  family  of  simulations  from  this  high  rate  down  to 
a minimum  of  2 megaflops/sec. 

This  simulation  took  approximately  700  CPU  seconds  on  a Cyber 
175.  For  a full  listing  of  the  results  see  appendix  A.  The 
amount  of  information  contained  in  a run  like  this  is  quite 
large,  though  not  unmanageable.  With  time  it  is  reasonably 
digestible,  as  hopefully  the  reader  will  see  in  the  following 
presentation . 


4.2.1  Characteristics  of  the  Run 


4.2. 1.1  Job  Arrivals 

Though  job  arrival  specifications  are- quoted  in  the  usage  model, 
actual  job  arrival  times  have  a random  nature.  Thus  for  a given 
run  these  arrival  times  are  unique.  Figure  7 shows  the  job 
arrival  rate  distribution  throughout  the  2 hour  simulation.  This 
distribution  is  plotted  by  taking  mean  arrival  rates  each  15 
minutes.  The  mean  of  20.2  jobs  per  30  minutes  is  16$  less  than 
the  24  jobs  expected;  but  by  far  the  most  demanding  job  class, 
Model  #4  "Complex  Design  Simulation”,  was  fully  represented. 
Perhaps  a more  characteristic  number  is  the  actual  load  demand 
for  the  FMP  versus -the  expected  demand:  93$.  This  is  not  to  be 
confused  with  the  FMP  utilization.  Arrivals  of  these  demanding 
and  important  Model  #4  jobs  are  marked  by  arrows  in  figure  7. 
Note  - 1 ) the  close  arrival  of  two  of  these  jobs  near  clock  time 
1100  seconds,  and  2)  the  arrival  of  three  of  these  jobs  within 
10  minutes  of  each  other  at  1 hour  wall  clock  time. 


Figure  7.  Job  Arrival  Rate 
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4. 2. 1.2  SPS  Utilization 

Figures  8 and  9 summarize  the  utlization  of  the  SPS. resources 
due  to  program  compilation  and  execution.  Three  characterist ics 
of  interest  are  clear: 

1)  The  spacings  in  time  of  general  loads  shows  the  results 
of  the  job  to  device,  assignment  algorithm.  This 
algorithm  is  quite  simple:  When  a job  enters  the  NASF 
it  is  assigned  to  the  SPS  device  whose  central 
processor  and  memory  are  least  loaded.  Under  equal 
loads  SPS1  wins  the  honor.  So,  in  general,  without 
deference  to  looking  ahead,  the  SPSs  ping-pong  the 
responsibility  back  and  forth.  In  this  run  the  SPSs 
complement  each  other  well. 

2)  The  sharp  upward  spikes  seen,  especially  in  the  SPS1 
utilization  graph,  show  the  quick  response  it  has  to 
demands.  The  general  lack  of  broad  blocks  along  the 
time  axis  for  large  loads  represents  very  good  CPU 
availability.  Arrows  point  to  times  when  a job  .enters 
the  processor  after  having  been  blocked  out.  They  are 
rare  and  short  lived. 

The  continuous  block  of  time  at  20%  represents  the 
timesharing  load. 

3)  The  required  load  assumed  for  block  data  transfers, 
when  they  occur,  is  10%.  The  near  absence  of  SPS 
utilization  greater  than  90%  shows  that  file  transfers 
are  rarely  held  up  by  the  CPUs. 
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Figure  9.  Utilization  of  SPS2. 

-Arrows  represent  jobs  which  were  originally  blocked  out  of  the 
processor. 
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4, 2. 1.3  The  FMP  Execution  Queue 

The  driving  philosophy  for  a well-used  NASF  is  to  keep  the  FMP 
busy.  A view  of  the  FMP  execution  queue  is  a good  diagnostic 
for  seeing  if  the  workload  is  going  to  adhere  to  this  point. 
Figure  10  shows  the  queue  for  this  run.  In  general,  the  queue 
is  well  fed  with  a mean  depth  of  5.33  jobs. 

The  graph  shows'  that,  on  this  job  mix,  the  FMP  can  keep  up  with 
the  job  load  by  emptying  the  job  queue  several  times. 

The  driving  force  in  building  up  the  FMP  queue  is  undoubtedly 
the  beginning  of  an  FMP  execution  on  a Model  #4  job.  Arrows  in 
figure  10  show  these  execution  start  times.  The  executions  are 
10  minutes  long,  and  can  easily  cause  the  queue  to  grow  by  10 
jobs.  Notice  also  how  these  Model  4 jobs  have  now  spread  out 
from  one  another  in  time  This  is  inevitable,  though  the  actual 
spacings  can  be  considerably  widened  or  partially  thinned  by 
using  the  job  priority  cards  mentioned  in  section  3-1.2. 


4. 2. 1.4  FMP  Utilization 

As  the  reader  should  be  able  to  predict  from  seeing  the  FMP 
queue  results,  utilization  of  the  FMP  processor  should  be 
relatively  high.  Utilization  is,  in  fact,  a healthy  86%.  Please 
note  figure  11.  Startup  time  accounts  for  5%  of  the  unused 
resource;  this  overhead  need  not  occur  again  during  the  day.  Of 
the  FMP  time  not  used,  7%  is  due  to  the  less  than  expected 
demand  caused  by  the  job  arrival  statistics  (93%).  Thus  at 
” simulation  stop”  the  FMP  is  about  7%  behind.  Such  a number  is 
somewhat  sensitive  to  stop  time;  at  7000  seconds  the  number  is 
about  4%,  Only  during  the  period  from  5400  to  67'00  seconds  does 
the  FMP  load  get  "seriously”  behind. 

The  reader  should  note  that  in  appendix  A (page  120)  the  FMP 
utilization  statistic  has  been  corrected  by  hand.  This 
simulation  run  stopped  in  "full  flight”  (i.e.,  a truncated  run) 
and  thus  the  46%  FMP  utilization  printed  seemed  suspect.  After 
checking  individual  job  histories  as  described  in  section  3.3.1, 
this  utilization  was  appropriately  corrected.  ‘ Under  such 
circumstances  other  facility  statistics  must  also  be  checked  for 
consistency.  In  the  case  cited  only  the  FMP  utilization 
statistic  was  spurious. 


4. 2. 1.5  Throughput  and  Turnaround  Statistics 

Figure  12,  showing  the  throughput  graph,  reflects  the  results  of 
the  previous  5 graphs.  In  addition,  it  shows  vividly  the  one 
discouraging  point  in  this  example:  job  turnaround  times  are 
neither  consistent  nor  very  fast.  With  the  throughput  rates 
varying  as  they  do  here,  it  must  seem  at  times  as  though  the 
system  has  gone  to  sleep.  The  fact  is  that  at  these  lull  times 
in  the  throughput  (clock  time  from  4000  to  6000  seconds),  the 
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Figure  10.  FMP  Execution  Queue.  Arrows  Mark  the  Beginning 
of  FMP  Execution  on  a Model  4 Job. 


FMP 


WALL  CLOCK  TIME  (SECONDS) 

Figure  12.  Job  Throughput.  Arrows  Mark  the  Completion  of 
Model  4 Jobs. 
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FMP,  as  shown  in  FMP  queue,  is  very  effectively  running  at  full 
tilt.  Throughput  has  slowed  because  three  Model  //4  jobs,  1800 
FMP  seconds,  are  being  processed.  This  blocks  out  many  jobs,  as 
manifested  by  the  growing  queue.  Near  clock  time  300.0  and  7000 
seconds  notice  how  quickly  the  system  finishes  jobs  after  the 
FMP  has  stopped  queuing  them.  This  shows  the  rapid  response  of 
the  communications  network,  DSK  and  SPS,  and  is  very 
encouraging . 

Arrows  in  figure  12  denote  job  completion  times  for  the  Model  4 
jobs.  Comparison  with  figure  7 shows  the  turnaround  time  for 
these  jobs:  34.3  + 8.0  minutes.  This  time  includes  10  minutes 
of  FMP  processing  and  13  minutes  of  SPS  pre-  and  post- 
processing. Such  an  impressive  turnaround  statistic  is  dearly 
paid  for  by  the  turnaround  rate  of  the  other  three  job  classes. 
Note  table  1 below. 


Table  1.  Turnaround  Statistics 


Job 

Class 

Turnaround  time 
+ sample  standard 
deviation 

CPU  time 
required 
(FMP  and  SP: 

Model 

1 

18.5  + 8.7  min 

51  Hh  1 sec 

Model 

2 

23.8  + 10.8  min 

3.9  +• 2 min 

Model 

3 

29.7  + 11.1  min 

8.0+2  rain 

Model 

4 

34.-3  + 8.0  min 

23+2  min 

The  final  throughput  mean  for  the  run,  16.5  jobs/30  rain  (or  33 
job/hr;  see  last  page  of  listing  in  appendix  A)  is  somewhat 
misleading  for  two  rather  coupled  reasons.  First,  some  ten  jobs 
are  well  into  the  system  and  are  partially  completed.  They  are 
not  included  in  this  statistic,  nor  in  the  last  point  on  the 
throughput  graph.  Second,  a Model  #4  job  finished  FMP  execution 
at  clock  time  7533  seconds,  2 minutes  before  "simulation  stop", 
and  has  left  a building  FMP  execute  queue  behind.  Thus,  just  as 
an  FMP  blocking  condition  was  showing  its  bad  side,  i.e., 
diminished  system  throughput,  the  simulator  stopped. 


4.2.2  General  System  Response 

During  2 hours  of  simulation  forty-four  Model  1 , fifteen  Model 
2,  four  Model  3f  and  seven  Model  4 jobs  were  begun  and 
completed.  An  additional  fourteen  jobs  had  begun  of  which  10 
were  well  on  their  way  to  completion.  A total  of  approximately 
8 

1.5  x 10  64-bit  words  traveled  within  the  LCN;  in  most  cases 

12 

they  traveled  twice  - both  to  and  from  the  DSK.  Over  6x10 
floating-point  operations  were  performed  in  the  FMP  and  another 
10 

5 x 10  floating-point  operations  within  the  SPS.  These 
numbers,  according  to  the  Ames’  Usage  Model,  represent  a typical 
load  during  a two-hour  period. 
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Aside  from  the  FMP,  no  system  hardware  is  backed  up.  The  SPS 
mean  utilizations  are  47%  for  SPS1,  and  45%  for  SPS2.  GRF 
utilization  is  entirely  due  to  workshop  usage.  The  bit-serial 
data  trunks  are  in  no  case  more-  than  1 0% . utilized . PDCs  ranged 
from  2%  to  9%  usage.  The  majority  of  disk  seeks  are  sector 
selects  or  minimum  cylinder  selects.  In  short,  there  were  no 
traffic  complications  due  to  data  transfers.  Files  of  up  to  10 
million  words  were  transferred  in  14  seconds  (e.g.,  Job  #97;  FMP 
— > DSK) . The  longest  time  for  a file  transfer  was  100  seconds 
for  5 million  words  from  the  DSK  to  SPS  (Job  #96). 


4.2.3  Variations  on  the  Example 


4.2.3. 1 Different  Arrival  Statistics 

Simulations  were  run  with  a different  set  of  actual  arrival 
times;  all  interarrival  mean  times  were  left  unchanged.  Though 
basic  results  were  the  same,  one  point  was  greatly  clarified. 

The  arrival  profile  of  Model  4 jobs  is  the  driving  force  in  the 
system  utilization.  When  these  jobs  are  sparse,  the  FMP 
utilization  drops  to  a value  necessary  to  meet  needs.  For 
example,  in  one  case  an  arrival  rate  for  Model  4 jobs,  3*0 
jobs/hr  (compared  to  4.0/hr  in  the  above  example),  resulted  in 
an  FMP  utilization  of  only  70%.  In  that  case  the  FMP  queue 
averaged  only  2.3  jobs,  and  the  system  never  had  trouble  keeping 
up  - nor  should  it  have. 


4. 2. 3. 2 Different  LCN  Geometry 

Comparable,  in  some  cases  identical,  workloads  and  arrival  times 
were  run  through  LCN1  and  LCN3.  Since  the  LCN  is  so  lightly 
utilized,  no  appreciable  difference  on  system  response  is 
expected  (see  light-load/heavy-load  description  in  sections  3.3 
and  3.4).'  LCN  3 showed  jio  difference  in  general  system 
utilization.  Throughput  turnaround,  and  processor  utilization 
were  virtually  identical.  Utilization  of  Trunks  1 and  2 doubled 
to  4%  along  with  the  utilization  of  PDCs  4 and  5.  LCN1  showed 
slight  degradation  in  throughput,  and  file  transport  times 
between  the  SPS  and  DSK.  These  transfer  times  were  increased 
because  Trunk  6 has  to  service  both  SPS1  and  SPS2  paths  to  the 
DSK.  Trunk  6 utilization  went  up  to  17%.  General  system 
response  was  still  very  similar. 


4.2. 3. 3 Effect  of  Change  in  SPS  Performance  and  Load 

The  SPS  processing  load  was  arbitrarily  decreased  by  50%.  This 
lead-  to  an  interesting  result:  The  only  differences  in  system 
response  were: 

1)  SPS  utilization  diminshed  by  the  appropriate 
amount , 

2)  turnaround  times .were  slightly  decreased. 

Throughput,  FMP  utilization,  and  the  FMP  queue  profile  were 
essentially  unchanged.  This  shows  that  the  SPS  setup  and 
post-processing  work  is  entirely  hidden  by  the  FMP  workload. 
Support  work  done  elsewhere  in  the  NASF  does  not  degrade  the 
efficiency  of  the  system,  except  during  system  startup.  Thus, 
in  this  case,  system  efficiency  is  synonymous  with  FMP 
utilization . 

SPS  performance  was  then  degraded  by  varying  amounts:  2 devices 
of  3-megaflop/sec  computation  rates  each,  then  computation  rates 
of  2.5  megaflops/sec  each  and  2.0  megafl'ops/see  each.  Though 
the  demands  on  the  SPS  devices  increased,  the  SPS  did  not 
saturate.  For  2.0-megaflops/sec  devices  the  utilization  bulged 
to  71%  for  the  lead  SPS  device  and  66%  for  the  backup.  The 
average  depth  of  the  SPS  execution  queues  were  1.1  and  0.7  jobs, 
respectively.  The  job  throughput  and  FMP  utilization  were 
essentially  unchanged.  Average  turnaround  per  job  was  longer 
due  to  the  slower  pre-  and  post-processing  times,  as  expected. 
The  interesting  point  is  that  no  added  system  overhead  was 
injected.  The  SPS  work  is  still  almost  entirely  hidden  under 
the 'FMP  work.  As  the  SPS  computational  horsepower  falls  below  2 
megaflops/sec  this  will  no  longer  be  true,  for  at  that  point 
saturation  is  about  to  set  in. 


4. 2. 3* 4 Effect  of  Changing  the  Priority  of  a Job  Class 

One  simulation  was  done  with  Model  #4  jobs  given  lowest  priority 
relative  to  the  other  prime-shift  users.  Two  obvious  results 
were  noticed.  Total  job  throughput  went  up  by  some  30%  at  the 
expense  of  Model  #4  throughput  which  decreased  by  about  20%. 
Turnaround  times  for  jobs  of  models  #1,  #2,  and  #3  were  also 
improved  significantly  at  the  expense  of  Model  #4  jobs.  Demands 
on  the  SPS  data  trunks,  PDCs , and  disks  were  unchanged.  But  the 
FMP  utilization,  and  thus  the  use  of  the  system,  decreased  to 
75%  (down  from  86%) . Whether  this  trend  is  general  or  is  a 
statistical  fluctuation  that  would  disappear  with  several  runs 
is  simply  not  clear  at  this  time.  The  tradeoffs  between  the 
Model  #4  jobs  and  the  other  jobs  is  clear,  though  more  runs 
should  yield  more  accurate  performance  tradeoffs.  In  any  case, 
such  hypotheses  are  easily  tested  via  liberal  use  of  the 
simulator. 
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4.2. 3-5  Simulation  of  the  Night  Shift  Workload 

A two-hour  simulation  of  the  night  shift  (Usage  Model  job 
classes  5,  6,  and. 7)  has  also  been  done.  All  data  transfers 
were  modeled  (e.g.  75  million-word  restart  files).  Post- 
processing of  the  Model  #6  and  Model  #7  “contour  movies"  was 
left  out.  A simple  calculation  shows  that  during  a 10-hour 
night  shift,  the  movie  processing  demand  on  the  SPS  is  simply 
too  great: 


7 

movie  flops  = 7500  frames  x 10,000  pts  x 6 x 10  flops  x night 
night  night  frame  4,000  pts.  10  hr 


12 

- 1.125  x 10  flops/10  hr  or  31.3  megaflops/sec. 

Obviously  this  user  demand  causes  concern  for  it  outbalances  any 
other  SPS  demand  stated  by  the  Usage  Model  by  at  least  an  order 
of  magnitude.  A system  that  meets  this  demand  outside  of  the 
FMP  will  have  excessive  horsepower  for  the  remainder  of  the  day. 

And  it  is  not  clear  at  this  time  that  such  a task  does  not 
belong  in  the  FMP. 

With  this  one  point  aside,  the  system  had  no  problem  with  the 
traffic  flow  problem. 

FMP  Utilization 
SPS1  Utilization 
SPS2  Utilization 
Trunk  6 Utilization 
All  other  trunks 

In  other  words  the- system  was  wide  open  and  the  FMP  was  well 
stocked  with  work. 


4.3  Conclusions 

This  family  of  examples  addresses  only  the  -’first  .pass  of  system 
evaluation.  The  results  pose  new  questions.  For  example  at 
what  cost  can  turnaround  times  for  the  more  numerous  "simple" 
problems  ’oe  shortened?  Can  throughput  be  more  consistent  in 
time?  How  heavily  utilized  can  the  SPSs  be  before  system 
efficiency  is  significantly  diminished?  Clearly,  the  system 
designers  could  simulate  for  years  playing  with  job  priority 
algorithms,  workload  arrival  scenarios,  keeping  the  number  of 
jobs  executed  unchanged.  At  some  juncture  the  tradeoffs 
demanded  by  the  needs  of  different  job  classes  will  be  assessed, 
invariably  yielding  some  new  questions  and  tradeoffs. 

Some  truths  have  come  from  this  first  pass  simulation  which  are 
maxims  to  the  Ames  concept  of  the  task  to  be  done  and  the 
machine  that  is  to  do  them. 


87 % 

12%\  No  workshop  usage. 
2%/ 

11% 

n 
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1) 


The  NAS?  as  proposed  in  this  paper  has  no  system 
bottlenecks  other  than  the  FMP.  Job  functions 
peripheral  to  the  FMP  processing  are  entirely 
hidden  by  the  FMP  operations  so  long  as.  the 
workload  is  sufficiently  heavy  to  keep  it  busy. 
Thus,  for  the  present  Usage  Model,  system 
efficiency  is  the  FMP  utilization. 

2)  Twenty  hours  of  FMP  computations  cannot , in 
practice,  be  done  in  twenty  hours.  Aside  from 
system  start-up  and  wind-down  time,  aside  from 
breakdown  possibilities,  if  the  FMP  ever  goes  idle 
during  the  running  day  that  time  is  lost,  never  to 
be  recaptured.  According  to  the  present  Usage 
Model  a certain  random  nature  in  job  arrivals 

seems  evident.  This  simply  implies  a high 
probability  that  at  some  time(s)  during  the  day 
the  job  arrival  profile  and  the  load  within  the 
system  will  not  keep  the  FMP  busy. 

3)  To  obtain  high  throughput  the  FMP  must  be  highly 
utilized.  In  practicality  this  requires 
substantial  queuing  activity  for  the  FMP,  i.e.,  a 
healthy  FMP  execute  queue.  Thus  for  a system 
workload  which  demands  high  FMP  utilization,  there 
is  a tradeoff  between  throughput  and  job 
turnaround.  Simulation  shows  that  the  greater  the 
extent  to  which  the  FMP  queue  is  kept  non-empty, 
the  greater  the  system  throughput.  Such  queuing 
clearly  cuts  down  on  job  turnaround. 

A particular  class  of  jobs  may  occupy  the  queue 
for  relatively  long  periods  of  time  (a  good 
possibility)  or  the  general  user  community 
(average)  job  may  occupy  it  for  a somewhat  shorter 
period.  Unfortunately,  high  throughput  for  one 
class  of  jobs  may  create  long  turnaround  for  jobs 
of  another  class.  Conversely,  large  volume  of 
short  turnaround  jobs  decrease  FMP  utlization  and 
throughput . 

This  simulation  has  also  identified  some  possible  system 
difficulties.  Though  the  system  concept  seems  very  encouraging, 
playing  the  devil’s  advocate  is  always  fun:  two  thorns  are 
foreseeable.  First,  results  to  date  are  based  on  a very  sketchy 
understanding  of  the  capabilities  of  the  SPS  system  and  the  load 
it  must  carry.  Assumptions  and  guesses  have  been  clearly  stated 
in  sections  2,  3>  end  4,  but  it  is  conceivable  that  they  are  not 
better  than  50%  accurate  and  perhaps  worse.  Second,  what  if  one 
SPS  device  should  break  down?  This  is  certain  to  occur  on 
occasion.  According  to  present  simulation  runs,  .one  SPS  could 
not  handle  the  entire  load.  It  could,  however,  do  a reasonable 
job  if  the  workload  were  diminished  somewhat.  Simulation  of  such 
a situation  remains  to  be  done. 
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SUMMARY  OK  SYSTEM  CONF 1 QUHaT ION  INPUT  DATA 


I 

> 


X. 

01 

14 

1 

23 

1 

6 

1 

2. 

01 

13 

2 

23 

2 

7 

2 

3 4 

01 

13 

1 

22 

2 

i> 

3 

4' 

02 

14 

1 

25 

1 

6 

1 

5. 

02 

13 

2 

25 

2 

7 

2 

6* 

02 

13 

1 

24 

2 

* 

3 

7. 

03 

14 

1 

27 

1 

6 

1 

8. 

03 

13 

2 

27 

2 

7 

2 

9* 

03 

13 

1 

26 

2 

t> 

3 

10. 

04 

14 

1 

29 

1 

6 

1 

11. 

04 

13 

2 

29 

2 

7 

2 

12. 

04 

13 

1 

28 

2 

6 

3 

13. 

01 

18 

l 

23 

2 

7 

1 

14. 

01 

17 

2 

23 

1 

6 

2 

15. 

01 

17 

1 

22 

2 

b 

3 

16. 

02 

18 

1 

25 

2 

7 

1 

17. 

02 

17 

2 

25 

1 

6 

2 

ifl. 

02 

17 

1 

24 

2 

5 

3 

19. 

03 

18 

1 

27 

2 

7 

1 

20. 

03 

17 

2 

27 

1 

6 

2 

21. 

03 

17 

1 

26 

2 

5 

3 

22. 

04 

18 

1 

29 

2 

7 

1 

23. 

04 

17 

2 

29 

1 

6 

2 

24. 

04 

17 

1 

28 

2 

b 

3 

25. 

11 

04 

1 

22 

1 

1 

1 

26. 

11 

>02 

1 

22 

2 

,5 

2 

27. 

11 

,02 

2 

23 

2 

,7 

3 

28. 

12 

,05 

1 

24 

1 

,2 

1 

29. 

12 

, 02 

1 

24 

2 

,5 

2 

30. 

12 

,02 

2 

25 

2 

,7 

3 

31. 

13 

,06 

1 

26 

1 

,3 

1 

32. 

13 

,02 

1 

26 

2 

,5 

2 

33. 

13 

,02 

2 

27 

2 

,7 

3 

34. 

14 

,07 

1 

28 

1 

,4 

1 

35. 

14 

,02 

1 

28 

2 

,5 

2 

36. 

14 

,02 

2 

29 

2 

,7 

3 

37. 

10 

,13 

1 

01 

1 

,5 

1 

38. 

10 

,13 

1 

02 

1 

,b 

2 

39. 

10 

,14 

1 

01 

2 

,6 

3 

40. 

10 

,17 

1 

01 

1 

,b 

1 

41. 

10 

,17 

1 

02 

1 

,5 

2 

42. 

10 

,18 

1 

02 

2 

,7 

3 

43. 

21 

,37 

2 

23 

2 

1 

44. 

21 

,37 

1 

22 

2 

>b 

2 

45. 

22 

,37 

2 

25 

2 

,7 

1 

46. 

22 

,37 

1 

24 

2 

, b 

2 

47. 

23 

,37 

2 

27 

2 

n 

1 

48. 

23 

,37 

1 

26 

2 

, b 

2 

49. 

24 

,37 

2 

29 

2 

► 7 

1 

FE 1 /DISK  1 

FE1/OISK  z 

FEI/OISK  3 

FE1/OISK  4 

FE2/DISK  1 

FE2/DISK  2 

FE2/DISK  3 

FE2/DISK  4 

FMP/DISK  I 

FMP/DISK  2 

FMP/DISK  3 

FMP/DISK  4 

FEI/FmP 

FE2/FMP 

GRF1/DISM 

GRFI/OISK2 

GHF1/DISK3 


GHF/OISK4 


SYSTEM  SIMULATOR  OUTPUT  EXAMPLE 


50c 

24*37*1,28,2*6.2 

51. 

21 *36. 2*23* l #6* I 

GRF2/DISK 1 

52. 

2 i » 38  » 1 1 22*2*5, 2 

53. 

22*38*2*25* 1,6*1 

54  * 

22*38,1,24*2,5*2 

55. 

23*38*2*27*1*6*1 

56* 

23* 38*1.26*2* 5*2 

57. 

24*38*2*29*1*6*1 

58, 

24*38*1*28,2*5*2 

59, 

20*13*1*37*1.5*1 

FE1/GHF1 

60. 

20,13*2*37*2*7*2 

61. 

20*17*1*37*1*5*1 

FE2/GRF1 

62. 

20*18*1*37*2*7*3 

63  . 

20*13*1*38*1.5*1 

FE1/GHF2 

64. 

20*14*1*38*2*6*3 

65. 

20,17*1*38*1.5*1 

FE2/GHF2 

66  . 

20,17*2*38*2*6*2 

67. 

0*0*0*0*0*00*0 

SUMMARY  OF  MESSAGE  TRAFFIC  INPUT  DATA 


I 

> 

I 

ro 


1* 

10*0*120*2*0*0 

MODEL  1-lNltRARBJ YAL  TIME  MEAN  OF  1?0 

ST C000100 

2. 

10*61*1* 15*  0 **600 

1 SEC  ABORTED  SPS  C0MPIl*N  - WAIT  10  min.  0001  10 

3. 

10*61*1*15*0**1 

SPS  compilation  OF  SOURCE  CODE-1  SEC. 

000120 

4. 

11*1*0. O.lt-l 

FILE  L-LOAO  MODULE  ISK»  SPS  < — > OSK  • 

000130 

5. 

11,10*0*1*1*0 

FILE1  DSK  < — > FmP, 

00ol*0 

6 « 

12,21*0*0*1**1 

F ILE2-C0NF  IGATJON  1 OK  I GRF  < — > L)$K  . 

000150 

7. 

12*10*0*1*1**1 

FUE2  DSK  < — > FrtP * 

oonlfco 

6 i 

10*60*10*0*2**1 

FMP  FLOW  CODE  PROCESSING  * 10  SFC, 

000170 

9. 

16,10*0*0*2**1 

FILER-RESULTS  FILE  60K1  FMP  < — > DSK • 

000i«0 

10* 

16,1*0*1*2**! 

FILER  DSK  <-->  SPS, 

000190 

11. 

10*61*60*12*1**1 

SPS  POST-PROCESSING!  4 0 SEC-25%  Ulan. 

000200 

12. 

10,0*0*0*0*0 

JOB  RUN  COMPLETE. 

000210 

13. 

20,0*120*1*0.0 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  1?U 

SFC000220 

14. 

20, 61*1*15*0* *6 00 

1SEC  ABORTED  SPS  C0MP1L  * N * WAIT  10  MIN.  000230 

15. 

20*61*1*15*0**300 

. ABORTED  COMPILATION  AGAIN*  WAIT  5 MT  N < 

000240 

16. 

20*61*1,15*0,-1 

SPS  COMPILATION  OF  SOURCE  COOE-1  SEC, 

000250 

17* 

21*1*0*0, lt*l 

FILE  1 -LOAD  MODULE  15KI  SPS  > DSK. 

000260 

18. 

21*10*0*1*1,0 

FILE!  DSK  < — > FMP, 

000270 

19. 

22*21*0*0*1**1 

F ILE2-CONF  1 GAT  ION  10KI  GRF  <-->  DSK. 

0002RO 

20. 

22,10*0*1,1**1 

FILE 2 DSK  < — > FMP, 

000290 

21c 

20,60,10,0*2**1 

FMP  FLOW  CODE  PROCESSING  * 10  SEC. 

000300 

22* 

26,10*0*0*2**1 

FILES-RESULTS  FILE  60KI  FMP  < — > DSK . 

000310 

23. 

26, 1.0*1, 2**1 

FILER  DSK  < — > SPS, 

000320 

24. 

20,61*60,12,1*-1 

SPS  POST -PROCESS INGI 40  SEC-25%  LOAD, 

000330 

25. 

20, 0*0,0, 0,0 

JOB  RUN  COMPLETE, 

000340 

26. 

30*0*120,1*0*0 

MODEL  ,1-lNTEW ARRIVAL  TIME  MEAN  OF  120 

SEC 00 0350 

27. 

30*61*1*15*0,-1 

SPS  COMPILATION  OF  SOURCE  CODE-t  SFC, 

000360 

28. 

31,l*0*0*l**l 

F ILE1-LOAD  MODULE  15KI  SPS  <— > DSK, 

000370 

29. 

31*10*0.1*1*0 

FILE  1 DSK  <—  ► FMP, 

000380 

30. 

32,21*0*0,1,-1 

FILE2-C0NF  I GAT  ION  1 OK  1 GRF  < — > DSK, 

000390 

31. 

32*10,0,1*1**1 

FILE2  DSK  < — > FMP. 

000400 

32* 

30,60,10,0,2,-1 

FMP  FLOw  CODE  PROCESSING  - 10  SEC. 

000410 

33. 

3B,10,0*Of2*-l 

FILE8-RESULTS  FILE  60M  FMP  <—>  OSK , 

000420 

34. 

38*1*0* 1,2. -1 

FILER  DSK  < — > SPS, 

000430 

35. 

30,61*60,12*1,-1 

SPS  POST -PROCESSING  140  SEC-25%  LOAD, 

000440 

36. 

30,0,0,0,0*0 

JOB  RUN  COMPLETE, 

000450 

37. 

40,0*120,1,0*0 

MODEL  IrlNTEHARRlVAL  TIME  MEAN  OF  120 

SEC000460 

36. 

40,61*1,15,0,-600 

1 SEC  ABORTED  SPS  COMPILE  - WAIT  10 

MIN, 000470 

I 

> 

I 

uu 


39. 

4Q 

61.1.15.0.-1 

40. 

41 

1.0*0. l.-l 

41. 

41 

10.0.1.1.0 

42. 

42 

21.0.0. 1 *-l 

43. 

42 

10. 0.1. 1.-1 

44. 

40 

60. 10.0.2.-1 

45. 

49 

10*0.0.90.-1 

46. 

49 

1 » 0* 1. 90.-1 

47. 

40 

61.60* 12.11-1 

46. 

40 

0.0. 0.0*0 

49. 

SO 

0*120*1*0.0 

50. 

50 

61*1.15*0.-600 

51. 

50 

61*1*15*0.-1 

52. 

51 

1*0*0. l.-l 

53. 

51 

10.0*1.1*0 

54. 

52 

21*0*0. 1«-1 

55. 

52 

10*0.1. 1.-1 

56. 

50 

60*10*0*2.-1 

57. 

58 

10.0.0. 2.-1 

58. 

50 

1*0.1. 2.-1 

59. 

50 

61.60*12.1.-1 

60. 

so 

0*0.0. 0.0 

61. 

60 

0*120.1*0.0 

62. 

60 

61^*  1 . 15*0.-600 

63. 

60 

61 1 1 * 15*  0 *-300 

64  * 

60 

61*1.15*0.-1 

65. 

61 

1*0*0. l.-l 

66. 

6i 

10.0.1.1*0 

67. 

6* 

21*0*0.1.-! 

60  « 

62 

10.0.1*1.-) 

69. 

60 

60.10.0.2.-1 

70  i 

68 

10. 0*0*2. -1 

71. 

68 

L.0.1.2.-1 

72. 

60 

61.60.12* li-l 

73. 

60 

0 • 0. 0 * 0 * 0 

74. 

70 

0.120*1*0.0 

75. 

70 

61.1.15.0.-1 

76. 

71 

1*0.0. l.-l 

77. 

71 

10.0.1.1.0 

7fl. 

7* 

21*0.0. l.-l 

79. 

72 

10*  0.1*1. -1 

SO* 

70 

60.10.0.2.-1 

01. 

76 

10.0.0.2.-1 

82. 

78 

1 . 0 . 1 • 2»- 1 

83. 

70 

61.60. 12* 1*-1 

64. 

70 

o*o»o»o.o 

65. 

80 

0.120.1.0.0 

66. 

80 

61*1.15.0.-600 

67. 

SO 

61*1.15.0.-1 

80. 

81 

1. 0*0*1. -1 

89. 

Si 

10.0.1.1.0 

90. 

62 

21.0.0*1*-! 

91* 

62 

10*0*1*1»-1 

92. 

80 

60  * 10*  0?  2*-l 

93. 

89 

10*0.0. 90.-1 

94. 

89 

1.0.1. 90.-1 

95. 

ao 

61.60*12.1.-1 

96. 

80 

0*0. 0.0.0 

97. 

90 

0.120.1. 0.0 

98. 

90 

61.1.15*0  *-600 

99. 

90 

61.1.15*0.-1 

100. 

91 

1.0.0. l.-l 

101. 

91 

10*0.1.1*0 

102. 

92 

21 *0.0. l.-l 

SPS  COMPILATION  OF  SOURCE  CODE-1  SEC,  000480 
FILE1  -LOAD  MODULE  15KI  SPS  < — > L> S K • 000490 

FILE1  DSK  < — > FMP.  000500 

FILE2-CONFIGATION  10K|  GRF  <— > OSK,  000510 

FILE2  DSK  <— > FMP*  000520 

FMP  FLOW  CODE  PROCESSING  -10  SEC*  000530 

FILE9-DEBUG  DUMP  3MI  FMP  <— > OSK,  000540 

FILE9  DSK  <-->  SPS*  000550 

SPS  POST-PHOCESSiNGUO  SEC-25*  LOAD*  000560 

JOS  RUN  COMPLETE*  000570 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SECOOO50O 
1 SEC  ABORTED  SPS  COMPIL’N  - WAIT  10  MIO0O59O 
SPS  RECOMPILATION  OF  SOURCE  COOE-1  SEC*  000600 
FILE  1-LOAD  MODULE  15KI  SPS  <-->  DSK « 000610 

FILE1  DSK  < — > FMP.  000620 

FILE2-CONFIGATION  10KI  GRF  <-->  OSK.  000630 

FILE2  DSK  <— > FMP  » 000640 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  0006&0 

FILEfl-RESULTS  FILE  60KI  FMP  <— > OSK • 000660 

FILE8  DSK  <«*>  SPS.  000670 

SPS  POST-PROCESSING  I 4 0 SEC-25*  LOAO*  0006B0 

JOB  RUN  COMPLETE.  000690 


MOOEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SEC000700 
1 SEC  ABORTED  BPS  COmPIL'N  - WAIT  10  MI000710 
ABORTED  COMPIL'N  AGAIN  - WAIT  5 MlNi  TH000720 


SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC.  000730 
FILE1-LOAO  MODULE  15K)  SPS  <-->  DSK.  000740 

FILE1  DSK  > FMP.  000750 

FILE2-CQNFIGATI0N  \QK%  GRF  <— > DSK.  000760 

FILE2  DSK  <-->  FMP.  000770 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  0007H0 

FILEfl-RESULTS  FILE  60KI  FMP  <— > DSK.  000790 
FILES  OSK  <-->  SPS.  OOOflOQ 

SPS  POST-PROCESSING l 40  SEC-25*  LOAD,  OOOfliO 

JOB  RUN  COMPLETE.  * 000820 

MODEL  1-lNTERAftftIVAL  TIME  MEAN  OF  120  SECOOO&30 
SPS  COMPILATION  OF  SOURCE  CODE-l  SEC,  000840 
FILEl-LOAO  MODULE  15K»  SPS  < — > DSK,  000850 

FILE1  DSK  < — > FMP*  000060 

FILE2-C0NFIGATI0N  10KI  GRF  <-->  DSK.  000670 

FILE2  OSK  < — > FMP.  OOOflflO 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  „ 000090 

FILES-RESULTS  FILE  60KI  FMP  <— > OSK,  000900 
FILES  DSK  < — > SPS,  000910 

SPS  POST-PROCESSING 1 40  SEC-25*  LOAD,  000920 

JOB  RUN  COMPLETE.  000930 

MODEL  1-lNTERARRlVAL  TIME  MEAN  OF  120  SEC000940 
l SEC  ABORTED  SPS  COMPIL'N  - WAIT  10  MI000950 
SPS  RECOMPILATION  OF  SOURCE  CODF-i  SEC.  000960 
FILEl-LOAO  MODULE  15KI  SPS  <— > DSK,  000970 

FILE!  OSK  <-->  FMP,  000900 

FILE2-C0NF IGATJON  l OK  f GRF  <— > DSK.  * 000990 

FILE2  DSK  < — > FMP,  OOlOOO 

FMP  FLOW  CODE  PROCESSING  - 10  SEC*  001010 

F1LE9-DEBUG  DUMP  FILE  3MI  FMP  <— > DSK.  001020 
FILE9  DSK  <— > SPS.  001C30 

SPS  POST-PROCESSING 1 40  SEC-25*  LOAD.  001040 

JOB  RUN  COMPLETE.  001050 

MODEL  1-1NTERARP1VAL  TIME  MEAN  OF  120  SEC001060 
1 SEC  ABORTED  SPS  C0MPIL*N  - WAIT  10  MIOQ107O 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC.  001000 
FILEl-LOAO  MODULE  1SKI  SPS  <— > DSK.  001090 

FILE1  DSK  <— > FMP.  001100 

FILE2-CONF; IGATION  iOKI  GRF  <— > OSK.  001110 


103. 

92* 

iq#o*i#i#-i 

104* 

90* 

60,10*0,2**1 

105* 

98* 

10»0*0*2*-1 

106. 

98* 

1*0, 1.21-1 

107* 

90, 

61  *60* 12, 1 *-l 

108* 

90* 

0*0*0*0»0 

109. 

100 

0*120*1*0*0 

110* 

100 

61* 1* 15*0.-600 

111* 

100 

61*1*15, 0> -300 

112. 

100 

61*1*15,0*-! 

113* 

101 

1*0»0»1*-1 

114* 

101 

10*0*1*1*0 

115* 

102 

21*0*0*1 *-l 

116* 

102 

10,0. 1*1, -1 

117* 

100 

60, 10*0*2*-1 

116* 

loa 

10  * 0*  0*  2*-l 

119. 

loa 

1 * 0 * 1 *2#«1 

120* 

100 

61*60,12*1*-! 

121* 

100 

0 • 0*  0*0 , 0 

122* 

110 

0*120*1*0*0 

123* 

11 0 

61*1*15,0#-! 

124* 

111 

1 #0#  D * 1 *-i 

125* 

111 

10*0*1*1*0 

126* 

112 

2l*0*0#lfl 

127. 

112 

I0.0*l#l*-i 

128* 

110 

60*10*0, 2**1 

129* 

119 

10*0*0*901-1 

130. 

119 

1*0*1* 90.-1 

131. 

no 

61*60*12*1 ,-l 

132. 

no 

0*0*0* 0*0  ‘ 

133* 

120 

0*120*1*0*0 

134. 

120 

61*1*15*01-600 

135. 

120 

61*1*15*0*— 1 

136. 

121 

1 * 0 *0* 1 *-l 

137* 

121 

10*0, 1 ♦ 1 t 0 

138* 

122 

21*0*0*1 *-l 

139* 

122 

10*0*1*1*-! 

140* 

120 

60*10*0*2.-1 

141. 

129 

10*0*0*901-1 

142* 

129 

1*0*1, 90*-l 

143* 

120 

6l *60 • 12* 1 *-l 

144* 

120 

0*0*0, 0*0 

1*5* 

130 

0*120*1,0*0 

1*6* 

130 

61*1*15, 0.-600 

147* 

130 

61*1*15, 0*-l 

148* 

131 

1 * 0*  0 » 1 *-l 

149* 

131 

10*0*1*1,0 

150* 

132 

21«0*0#1»-1 

151. 

132 

10*0*1. l.-l 

152* 

1,30 

60.10*0*2.-1 

153* 

138 

10*0*0*2. -1 

154* 

138 

l*0*l*2*-l 

155* 

130 

6t*60*12*l#-l 

156* 

130 

0*0, 0*0*0 

157* 

1*0 

0*120*1*0*0 

156* 

1*0 

61*1# 15*  0* -600 

159* 

1*0 

61  * 1 * 15  * 0»-300 

160* 

1*0 

61*1*15,0.-1 

161* 

1*1 

1 *0*0* 1 ,-l 

162. 

1*1 

10*0# 1 » 1 *0 

163* 

1*2 

21*0,0*1*-! 

164* 

1*2 

10*0*1*1*-! 

165* 

1*0 

60,10*0*2*-! 

FILES  DSK  <— > FMP,  001120 
FMP  FLOW  CODE  PROCESSING  - 10  SEC,  001130 
FILEB-RESULTS  FILE  60KI  FMP  <~  > OSK*  0011*0 
FILES  DSK  <— > SPS,  001150 
SPS  POST-PROCESSINGUO  SEC-25*  LOAD*  001160 
JOB  RUN  COMPLETE*  001170 


MODEL  1-lNTERARRIVAL  TIME  MEAN  OF  120  SE001180 
X SEC  ABORTED  SPS  C0MPIL*N  - WAIT  10  M001190 
ABORTEO  COMPILE  AGAIN  - WAIT  S MIN#  T001200 

sps  recompilation  of  source  cone-i  sec*  001210 


FILE1-L0AD  MODULE  15K|  SPS  < — > OSK  001220 
FILE1  DSK  <— > FMP*  001230 

FILE2-CONFIGATION  10K 1 GRF  <-->  OSK*  0012*0 
FILES  OSK  < — > FMP*  001250 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  001260 

FILEB-RESULTS  FILE  60KJ  FMP  <— > OSK • 001270 

FILED  OSK  <-->  SPS.  0012U0 

SPS  POST-PROCESSING! AO  SEC-25%  LOAD*  001290 

JOB  RUN  COMPLETE*  001300 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SEO0131O 
SPS  COMPILATION  OF  SOURCE  CODE-1  SEC*  001320 
FILE1-LOAD  MODULE  15KF  SPS  <— > DSK*  001330 
FILE1  DSK  < — > FMP*  0013*0 

FILE2-C0NFIGATI0N  3 OK t GRF  <— > DSK*  001350 
FILE2  OSK  < — > FMP*  001360 

FMP  FLOW  CODE  PROCESSING  - 10  SEC*  O0J37O 

FILE9-0EBUG  DUMP  FILE  3M|  FMP  <— » OSK, 001360 
F1LE9  OSK  <— > SPS,  001390 

SPS  POST-PROCESSING! 40  SEC-25%  LOAD*  001400 

JOB  RUN  COMPLETE.  001410 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SE001420 
1 SEC  ABORTED  SPS  COMPIL'N  - WAIT  10  M001430 
SPS  RECOMPILATION  OF  SOURCE  CODE-)  SE r*  0014*0 
FILE1-LOAD  MODULE  15K  | SPS  < — > OSK  001*50 

FILEl  DSK  < — > FHP.  001*60 

FILE2-CONFIGATION  1 OK  I GRF  <— > DSK.  001*70 
FILE2  DSK  <— > FHP,  001460 

FMP  FLOW ‘CODE  PROCESSING  - 10  SEC.  OOJ490 

FILE9-DEBUG  DUMP  FILE  3M|  FMP  <— > DSK.001500 
FILE9  DSK  <— > SPS*.  001510 

SPS  POST -PRO CESSING  140  SEC-25*  LOAD*  001520 

JOB  RUN  COMPLETE.  001530 

MODEL  1-lNTEttARR I VAL  TIME  MEAN  OF  120  SE0015*0 
1 SEC  ABORTED  SPS  C0MPIL*N  - WAIT' 10  M001550 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEr*  001560 
FILE1-LOAD  MODULE  1 5K I SPS  «-->  DSK ♦ 001570 

FILEl  OSK  < — > FMP.  001580 

FILE2-C0NF I CATION  10KI  GRF  < — > DSK*  001590 
FILE2  DSK  <— > FHP.  001600 

FMP  FLOW  CODE  PROCESSING  - 10  SEC*  001610 

FILES-RESULTS  FILE  6QKI  FMP  < — » DSK*  001620 
FILES  DSK  < — > SPS.  001630 

SPS  POST-PROCESSING I 40  SEC-25&  LOAD.  001640 

JOB  RUN  COMPLETE*  001650 


MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SE001660 
l SEC  ABORTED  SPS  COMPILE  - WAIT  10  M001670 
ABORTED  C0HPIL#N  AGAIN  - WAIT  5 MIN*  T001680 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC*  001690 


FILE  1-LOAD  MODULE  IBKI  SPS  <— ► OSK.  001700 
FILEl  DSK  <— > FMP,  001710 
FILE2-C0NF I GAT  I ON  1 OK  t GRF  <— > DSK*  001720 
FILE2  OSK  <— > FMP.  001730 
FMP  FLOW  CODE  PROCESSING  - 10  SEC,  001740 


166, 

148* 10, 0,0,2, *1 

167. 

148, 1,0,1, 2. -1 

168, 

140,61,60,12,1,-1 

169, 

140,0,0,0,0,0 

170, 

150,0,120,1,0,0 

i7i; 

ISO, 61,1,15,0,-1 

172. 

151,1*0,0,1,-1 

173, 

151,10,0,1,1,0 

174. 

162,2l»0»0,li-l 

175, 

152*10,0,1,1,-1 

176, 

150,60,10,0,2,-1 

177, 

158*10,0,0,2,-1 

178. 

158,1,0,1,2,-1 

179. 

150,61,60,12,1,-1 

180. 

150,0,0,0,0,0 

181. 

160,0*120,1*0,0 

182, 

160*61,1. 25,0.-600 

183. 

160*61,1,15*0,-1 

184. 

161,1,0,0, i*-l 

IBS. 

1 6 \ , 1 (J  , 0 , 1 , 1 , 0 

166, 

162*21*0*0.1,-1 

187. 

162,10*0',  1 , 1 ,-l 

188. 

160 *60, 10*0* 2**1 

189. 

169,10,0*0,90,-1 

190. 

|69, 1,011,90,-1 

191, 

160*61 ,60* 12* 1 »-l 

192. 

160*0*0*0*0*0 

193. 

170.0,120,1,0*0 

194. 

170,61,1 , 15,0,-600 

1 95  , 

|7O,6l*l»15*0*-l 

19o. 

171,1*0*0,1,-1 

197, 

171,10.0*1,1.(1 

1 9fa  * 

172*21*0.0,1,-1 

199. 

172,10*0,1*1,-1 . 

200. 

170,60,10*0,2,-1 

201. 

170*10,0,0*2,-1 

202. 

178*1,0,1,2,-1  * 

203. 

170,61 ,60,12,1,-1 

204. 

J7D*0i 0, 0*0*0 

205. 

160*0*120,1*0*0 

20b, 

180,61,1, 15,0.-600 

207. 

160,61*1, 15,0,-300 

208, 

180*61,1* 15*0» -1 

209. 

101.1,0*0.1.-1 

210, 

161,10,0*1,1*0 

211. 

162, 21,0, Oil, -1  . 

212, 

162,10*0*1.1.-1 

213. 

160,60,10,0*2,-1 

214. 

188,10*0*0*2,-1 

215. 

188,1,0,1,2,-1 

216, 

160*61*60*12*1,-1 

217. 

180,0,0*0*0,0 

218. 

190,0,120,1,0*0 

219. 

1 90, 61  #1  , 25, 0***1 

220. 

191 , 1,0,0, 1,-1 

221. 

191,10,0,1,1*0 

222. 

192,21*0,0,1,-1 

223. 

192*10*0*1*1,-1 

224. 

190,60,10,0,2,-1 

225* 

199,10,0,0,90,-1 

226. 

199,1,0,1,90,-1 

227. 

190,61,60,12, ] ,-l 

228. 

190,0,0,0,0,0 

229. 

200,0,120,1,0,0 

FILE6-HESULTS  FILE  60KI  FMP  <— > DSK.  001760 
FILES  DSK  SPS*  001760 

SPS  P0ST-PHOCESSINGI40  SEC-25%  LOAD,  001770 

JOB  HUN  COMPLETE » (101780 

MODEL  1-INTEftARftIVAL  TIME  -MEAN  OF  120  SE001790 
SPS  COMPILATION  Of  SOURCE  CODE- 1 SEC,  001800 
FlLEl-LOAD  MODULE  1SK|  SPS  <— > DSK,  00 1 a 1 0 
FILE1  DSK  <-->  FMP,  001820 

F1LE2-CQNFIGATION  10K|  GRF  <~ > DSk,  001830 
FILE2  OSK  < — > FMP,  001840 

FMP  FLOW  CODE  PROCESSING  - 10  SEC,  OQlflSo 

FILE6-RESULTS  FILE  60k*  FMP  <-->  DSK,  001860 
FILEB  DSK  <— > SPS , 001B70 

SPS  PGST-PHOCESSINGI40  SEC-25%  LOAD,  OQ1A80 

JOB  HUN  COMPLETE.  001890 

MODEL  I-INTERARRIVAL  TIME  MEAN  OF  120  SE001900 
1 SEC, ABORTED  SPS  COMPILE  - *A1  T 10  H001910 

sps  hecompKation  Of  souycf  cone-i  sfc.  ooiopo 
FILE  1 -LOAD  MODULE  15K|  SPS  <—  > OSK,  001930 
FILE1  OSK  <-->  FMP,  001940 

F I Lf 2-CUNF  IGA  T I ON  JOKI  GRf-  <-->  OSK,  001950 
F1LE2  OSK  <..>  FMP,  0 0 ] 9b0 

fmp  flu*  code  processing  - 10  sec,  001970 

FlLt9-OEbUG  DUMP  FJLF  3MI  FMP  <-->  DSK. 001980 
F ILE9  OSK*<-->  SPS*  001990 

SPS  POST-PKOCeSSlNGI40  SEC-25*  LOAD,  002000 

JOB  HUN  COMPLETE,  002010 

MODEL  1 - 1 NT  EH  APR  I V AL  TIME  MEAN  OF  120  SEO02020 
1 SEC  ABORTED  SPS  C0mPIL‘N  - WAIT  10  M002030 
SPS  HECUMPILATIUN  OF  SOURCE  COnE-J  S£r,  002040 
FILE  1 -LOAD  MODULE  15KI  SPS  <— > D5K  w 002050 
file i osk  <,->'fmp,  oo?Q60 

F ILK2-CUNF  I GA  T ION  10K1  OHF  < — > DSK.  002070 
FILF2  DSK  <-•>  FMP,  002080 

FMP  FLOW  CODE  PROCESSING  - 10  SEC,  0Q?090 

FlLEfcj-RtSULTS  File  60m  FMP  <-**>  DSK,  002100 
FILES  DSK  <*.->  SPS,  002110 

SPS  PUS T -PROCESS  I NGI 40  SEC-25*  LOAD,  002120 
JOB  HUN  COMPLETE,  * 002130 


MODEL  1-lNTEHARRlVAL  TIME  MEAN  OF  120  SEO02HO 

1 Sec  aborted  sps  compil*n  - wait  io  M0021S0 

ABUHTED,  COMPlL'N  AGAIN  • WAIT  5 M|n»  T0G2l60 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC.  0021T0 


FILE1-LOAD  .MODULE  1 5K  1 SPS  <— > DSK.  002180 
F1LE1  OSK  <*»- > FMP,  002190 

FILE2-CGNF16ATION  1 OK  I GRf  <-->  OSK  . 002200 

F1LF2  OSK  > FMP,  002210 

FMP  FLOW  CODE  PROCESSING  * 10  SEC,  002220 

FILE8-RESULTS  FILE  «>0k|  FHP  < — > DSK,  002230 
FILE8  OSK  <-->'SPS,  002240 

SPS  POST-PROCESS  I NG I 40  SEC-25*  LOAD,  002250 
JOB  RUN  COMPLETE,  002260 

MODEL  1-lNTEflARKIVAL  TIME  MEAN  OF  120  SE0022T0 
SPS  COMPILATION  OF  SOURCE  CODE-1  SEC,  002280 
FILE1-LOAO  MODULE  15K1  SPS  < — > OSK,  002290 
FILE1  DSK  <-->  FMP,  002300 

FILE2-C0NFIGATI0N  1 OK « GRF  <— > DSK,  002310 
FILE2  DSK  <— > FHP,  002320 

FMP  FLOW  CODF.  PROCESSING  - 10  SEC,  002330 

FILE9-DEBUG  OUmP  FILE  3M1  FMP  <— ► DSK, 002340 
FILE9  DSK  < — > SPS,  . 002350 

SPS  PO ST -PROCESS  I NG  t 40  SEC-25*  LOAD.  002360 
JOB  HUN  COMPLETE.  , 002370 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SE002380 


230, 

200 

61,1,15,0,-600 

231. 

200 

61 • 1 • 15*  0 i~l 

232. 

201 

1*0,0, 1,-1 

233. 

201 

10,0*1,1,0 

234, 

202 

21  • 0*  0 , l *-l 

235. 

202 

lOiOtltlt-l 

236, 

200 

60* 10,0,2i-l 

237. 

209 

10,0*0*90,-1 

238. 

209 

1*0*1*90.-! 

239. 

200 

61,60, 12*l,-l 

240, 

200 

0,0,0, 0,0 

241, 

210 

0,120,1,0,0 

242, 

2i0 

61*1,15,0,-1 

243, 

211 

1 ,0*0»l,-i 

244, 

211 

10*0*1* 1*0 

245. 

212 

21  *0*0, 1,-1 

246  , 

212 

10*0*1, 1,-1 

247, 

210 

60,10,0,2t-l 

246. 

218 

10*0,0, 2,-1 

249, 

218 

1*0,1, 2,-1 

250. 

210 

61 *60*12,1,-1 

251, 

210 

0,0, 0,0,0 

252. 

220 

0,120,1,0,0 

253. 

220 

61,1,15,0,-1 

254. 

221 

1*0,0, 1,-1 

255. 

221 

10*0,1,1,0 

256, 

222 

21,0, 0*1, -1 

257. 

222 

10*0,1*1,-! 

258. 

220 

60*10, 0,2*-l 

* 1 

259, 

228 

10*0*0*2,-! 

k 

260. 

228 

1,0,1, 2,-1 

1 

261, 

220 

6l»60, 12,1 , - 1 

262  . 

220 

0*0, 0,0,0 

1 

263. 

230 

0*120,1*0,0 

CTV 

264  . 

230 

61,1,15,0,-1 

265. 

231 

1,0*0, 1,-1 

266, 

231 

10,0,1,1,0 

267, 

232 

21 ,0*0*1, -l 

268. 

232 

10*0,1, 1,-1 

269. 

, 230 

60*10,0,2,-1 

270. 

238 

10,0 » 0 ,2,-1 

271, 

238 

1,0*1, 2,-1 

S'  /> 

272, 

230 

61*60,12,1,-1 

273, 

230 

0*0, 0,0,0 

274. 

240 

0*120,1,0,0 

S> 

275. 

240 

61,1,15,0,-1 

276, 

24 1 

1*0,0, I, -i 

<Y  $ 

277. 

241 

10*0,1,1,0 

§ £ 

276, 

242 

21,0, 0*1, "1  ■ 

279. 

242 

10,0*1,1,-! 

O ^ 

280. 

240 

60,10, 0 ,2,-1 

££ 

281, 

282. 

249 

249 

10.0. 0«90*-1 

1.0. 1.90,-! 

£> 

283, 

240 

61,60,12,1,-1 

284, 

240 

0,0, 0,0,0' 

285, 

250 

0,120,1,0,0 

286, 

250 

61,1,15,0,-600 

287. 

250 

61,1, 15, 0,-1 

288. 

251 

1*0,0, 1,-1 

289, 

251 

10,0,1,1,0 

290, 

252 

« 

— 

* 

o 

o 

AJ 

291, 

252 

10*0,1,1,-! 

292, 

250 

60,10,0*2,-1 

293, 

258 

10,0*0,2,-! 

1 SEC  ABORTED  SPS  C0MP1L*N  - WAIT  10  M002390 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEi*,  00  24  00 
FIIE1-LOAD  MODULE  15K|  SPS  <— > OSK.  002410 
FILE  1 DSK  <-->  FMP.  002420 

FILE2-CONf IGAT ION  10KI  GRF  < — > OSK,  002430 
FILES  DSK  <-« > FHP,  002440 

FHP  FLOW  CODE  PROCESSING  - 10  SEC,  002450 

FlteS-OEBUG  DUMP  FILE. 3Mf  FHP  » OSK, 002460 
FILES  OSk  <— > SPS,‘  002470 

SPS  POST -PROCESSING! 40  SEC-25%  LOAD,  002480 
JOB  RUN  COMPLETE,  002490 

MODEL  1-lNTERARRlVAL  TIME  MEAN  OF  12Q  SE002500 
SPS  COMPILATION  OF  SOURCE  CODE-1  SEC,  002510 
F ILE1-LOAD  MODULE  15K|  SPS  <-->  OSK,  002520 
FILE1  DSK  <— > FMP * 002530 

FILE2-CONFIGATION  1 OK  I GRF  <— > OSK,  002540 
FILES  OSK  < — > FMP,  002550 

FMP  FLOW  CODE  PROCESSING  - 10  SEC,  002560 

F iLEfl-RESULTS  FILE  60K1  FMP  <— > OSK,  002570 
FILES  OSK  <— > SPS,  0025B0 

SPS  POST-PROCESSING! 40  SEC-25*  LOAD.  002590 

JOB  HUN  COMPLETE.  002600 

MODEL  1-lNTERARRIVAL  TIME  MEAN  OF  120  SE002610 
SPS  COMPILATION  OF  SOURCE  CODE-l  SEC,  002620 
FILE1-LOAO  MODULE  15k | SPS  <— > OSK  6 002630 

FILE1  DSK  <„>  FHP*,  002640 

FlLE2*C0Nf IGAT10N  10K|  GRF  «— > DSK,  002650 
FILE2  OSK  <-• >>  FHP,  002660 

FMP  FLOW  CODE  PROCESSING  - 10  SEC,  002670 

FILE6-RESULTS  FILE  AOKI  FMP  <— > DSK.  002680 
FILES  DSK  <-->  SPS.  002690 

SPS  POST-PROCESSINGUO  SEC-25%  LOAD.  002700 

JOB  RUN  COMPLETE.  002710 

MODEL  1-lNTERARRIVAL  TIME  MEAN  OF  120  SE0027 20 
SPS  COMPILATION  OF  SOURCE  CODE-1  SEC.  002730 
FILE1-LOAD  MODULE  15K|  SPS  <— > OSK,  002740 
FILEl  OSK  < — > FMP.  002750 

FILE2-C0NF IGAT1 ON  lOKl  GRF  <— > DSK.  002760 
FILE2  DSK  <— > FHP.  002770 

FMP  FLOW  CODE  PROCESSING  - 10  S£C,  002780 

FILES-RESULTS  FILE  60KI  FMP  <— > OSK,  002790 
FILES  DSK  <— > SPS.  002800 

SPS  POST-PROCESS INO I 40  SEC-25*  LOAD,  002810 

JOB  HUN  COMPLETE,  002820 

MODEL  1-lNTERARAIVAL  TIME  MEAN  OF  120  SE002830 
SPS  COMPILATION  OF  SOURCE  COOE-1  SEC,  002840 
FILEi-LOAO  MODULE  15K|  SPS  <— > OSK,  0C2fl5C 
FILEl  OSK  «-- > FHP.  002860 

FILE2-CONFIGATION  10K|  GRF  <— > DSK.  002870 
FILE2  DSK  <— > FHP,  O02880 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  002890 

FILE9-DEBUG  DUMP  3MI  FMP  OSK.  002900 

FILE9  OSK  <~>  SPS,  002910 

SPS  POST-PROCESSINGUO  SEC-25*  LOAD.  002920 

JOB  RUN  COMPLETE,  002930 

MODEL  1-lNTERARRIVAL  TIME  MEAN  OF  120  SE002940 
1 SEC  ABORTED  SPS  COMPIL*N  - WAIT  10  HO029S0 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEr.  002960 
FILEI'-LOAD  MODULE  15K|  SPS  <— > OSK.  002970 
FTLEI  OSK  <— > FMP,  002980 

FILE2-C0NF IGATION  1 OK » GRF  <— > OSK.  002990 
FILE2  OSK  < — > FHP.  003000 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  003010 

FILE8-RESULTS  FILE  60KI  FMP  <— > DSK.  003020 


I 

I 

-3 


294, 

258 

1,0,1 

,2,-1 

295, 

250 

61*60 

,12,1,-1 

296* 

250 

0,0,0 

,0,0 

297, 

260 

0,120 

,1,0,0  * 

298, 

260 

61,1, 

15,0,-600 

299, 

260 

61,1, 

15,0,-300 

300, 

260 

61,1. 

15, 0,-1 

301. 

2&1 

1*0,0 

,1,-1 

302. 

261 

10,0, 

1,1*0 

303, 

262 

21,0, 

0, 1 1-1 

304  * 

262 

10,0, 

1,1, -1 

305* 

260 

60,10 

, 0 ,2,-1 

306* 

266 

10,0, 

0 • 2,-1 

307. 

268 

1,0*1 

,2,-1 

308* 

260 

61,60 

,12,1 t-1 

309* 

260 

0,0,0 

,0,0 

310. 

270 

0,120 

,1,0,0 

311* 

270 

61,1, 

15, 0,-1 

312* 

271 

1,0,0 

,1,-1 

313* 

271 

10,0, 

1,1,0 

314* 

272 

21,0, 

0 , 1 ,-l 

315* 

272 

10,0, 

111,' -1 

316. 

270 

60,10 

, 0 , 2*-l 

317. 

278 

10,0, 

0 , 2,-1 

318. 

278 

1,0*1 

, 2,  -1 

319. 

270 

61,60 

, 12,1 i-l 

320, 

270 

0,U,0 

,0,0 

321* 

280 

0,120 

,i»0,0 

322. 

280 

61,1, 

15*0,-600 

323. 

280 

61,1, 

15, 0,-1 

324. 

281 

1,0,0 

.1,-1 

325* 

281 

10,0, 

1,1,0 

326, 

282 

21,0, 

0,1,-1 

327, 

282 

10,0, 

1.1,-1 

328. 

280 

60,10 

, 0,2*  -1 

329, 

289 

10,0, 

0, 90,-1 

330, 

289 

1,0,1 

,90,-1 

331, 

280 

61,60 

•12,1, -1 

332, 

280 

0,0,0 

*0,0 

333. 

290 

0.120 

,l»o*o 

334, 

290 

61,1, 

15,0,-600 

335. 

290 

61,1, 

15,0, -1 

336* 

291 

1,0,0 

,1,-1 

337, 

291 

10,0, 

1,1,0 

338, 

292 

21,0, 

0,1  ,-l 

339, 

292 

10*0, 

l,lt-I 

340, 

290 

60,10 

»Q,2*-1 

341, 

298 

10,0, 

0, 2,-1 

342. 

298 

1,0,1 

,2,-1 

343, 

290 

61,60 

,12, 1,-1 

344  ♦ 

290 

0,0,0 

,0,0 

345. 

300 

0,120 

,1,0,0 

346* 

300 

61,1. 

15.0.-600 

347. 

300 

61,1, 

15,0,-300 

348. 

300 

61,1, 

15,0, -i 

349. 

301 

1,0,0 

,1,-1 

350. 

301 

10,0, 

1,1,0 

351. 

302 

21,0, 

0*  1 1-1 

352* 

302 

10,0, 

l,i,-l 

353. 

300 

60,10 

• 0,2, -l 

354. 

309 

10,0, 

0, 90»-l 

355* 

309 

1,0,1 

,90,-1 

356. 

300 

61,60 

,12, 1,-1 

357. 

300 

0,0,0 

,0,0 

FILES  OSK  < — > SPS.  003030 

SPS  POST-PHOCESSINGI 40  SEC-254  LOAD*  003040 
JOB  HUN  COMPLETE*  0030S0 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SE003060 
1 SEC  ABORTED  SPS  COMPILE  - WAIT  10  M003070 
ABORTED  COMPILE  AGAIN  - WAIT  S MIN*  T003080 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC*  003090 
FILE1-LOAD  MODULE  15KI  SPS  < — > DSK*  003100 
FILE1  DSK  <-->  FMP,  003110 

FILE2-CONFIGATION  1 OK i GRF  < — > DSK.  003120 
FILE2  DSK  <— > FMP,  003130 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  003140 

FILES-RESULTS  FILE  60KI  FMP  <— > DSK*  003150 
FILES  DSK  < — > SPS*  003160 

SPS  POST-PROCESSING! 40  SEC-254  LOAD,  003170 

JOB  HUN  COMPLETE*  003160 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  14  003190 

SPS  COMPILATION  OF  SOURCE  CODE-1  SEC  003200 

FILE1-LOAD  MODULE  1 5K | SP5  <— > OS  003210 

FIlEl  DSK  <«- > FMP,  003220 

FILE2-CQNF IGATION  10K | GRF  <-->  OSK.  003230 
FILE2  DSK  <— > FMP,  003240 

FMP  FLOW  CODE  PROCESSING  - 10  SEC*  003250 

FILES-RESULTS  FILE  60KI  FMP  < — > OSK*  003260 
FILES  DSK  <~ > SPS,  003270 

SPS  POST-PRQCESSINGUO  SEC-254  LOAD,  003200 

JOB  RUN  COMPLETE*  003290 

MODEL  1-INTEHARRIVAL  TIME  MEAN  OF  120  SE003300 
1 SEC  ABORTED  SPS  COMPJL'N  - WAIT  10  M003310 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEr.  003320 
FILE1-UOAO  MODULE  15KI  SPS  <-->  OSK,  003330 
FILE1  DSK  > FMP.  003340 

F I LE2-CONF IGATION  1 OK t GRF  < — > OSK,  ' 003350 

FILE2  DSK  <—>  FMP.  003360 

FMP  FLOW  CODE  PROCESSING  - 10  SEC,  003370 

FILE9-0ESUG  OUMP  FILE  3MI  FMP  <— > OSK, 003380 
FILE9  DSK  <— > SPS.  003390 

SPS  POST -PRO CESS ING! 40  SEC-254  LOAD,  003400 
JOB  HUN  COMPLETE*  003410 

MODEL  1 -INTERARR IV AL  TIME  MEAN  OF  120  SE003420 
1 SEC  ABORTED  SPS  CQMPIL*N  - WAIT  10  M003430 
SPS  HECOMPILATION  OF  SOURCE  CODE-1  SEr*  0 034 40 
FILE1-LOAO  MODULE  15Kt  SPS  < — > DSK.  003450 
FILE1  DSK  < — > FMP.  003460 

F I LE2-C0NF  IGATION  1 OK  t GRF  <-->  OSK.  003470 
FILES  DSK  <— > FMP*  003480 

FMP  FLOW  CODE  PROCESSING  - 10  SEC*  003490 

FILEB-HESULTS  FILE  *0K»  <— > DSK*  003500 

FILED  DSK  <— > SPS*  . 003510 

SPS  POST -PROCESSING! 40  SEC-254  LOAD.  003520 

JOB  RUN  COMPLETE*  003530 

MODEL  1-INTEHARRIVAL  TIME  MEAN  OF  120  SE003540 
1 SEC  ABORTED  SPS  COMP!L«N  - rtATT  10  M0035S0 
ABORTED  COMPIL'N  AGAIN  - WAIT  5 MIN,  T003560 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC • 003S70 
FILE1-LOAO  MODULE  15KI  SPS  <— > OSK*  003580 
FILE1  DSK  <— > FMP • 003590 

F ILE2-C0NF  1GATI  ON  1 OK  ! GRF  < — > DSK.  003600 
F1LE2  DSK  > FMP,  003610 

FMP  FLOw  COOE  PROCESSING  - 10  SEC.  003620 

F 1LE9-DE BUG  DUMP  FILE  3M»  FMP  <-->  DSK. 003630 
F 1LE9  DSK  <— > SPS,  003640 

SPS  POST -PROCESS ING 1 40  SEC-254  LOAD,  003650 

JOB  HUN  COMPLETE.  003660 
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JSB* 

310 

0* 

120*1*0*0 

359. 

3l  0 

61 

*lfl5f0*-l 

360* 

311 

1# 

0*0*1*— 1 

36 1 • 

311 

10 

*o*if 1.0 

362* 

312 

21 

t Of  0* it-l 

363* 

312 

10 

*0*1*1*-! 

364  « 

3l  0 

60 

♦ l0*0»2f-l 

365* 

318 

10 

*0*0*2. -1 

366* 

318 

1* 

0*1*2*-1 

367* 

3io 

61 

.60*12.1,-1 

368. 

310 

0* 

0*0*0. 0 

369* 

320 

0* 

120*1*0*0 

370. 

320 

bl 

♦1*15,0* -600 

371* 

320 

61 

* 1 • 1 5*  0 > -1 

372* 

321 

W 

0f0,),-l 

373. 

321 

10 

*0* 1 *1.0 

374* 

322 

21 

*0*Q*1*-1 

375* 

322 

10 

>0*1*1*-! 

376* 

320 

60 

1 10*  0 *2*-l 

377* 

329 

10 

• 0 » 0 *90  *-l 

378* 

329 

If 

0*1*90*-! 

379. 

320 

61 

t60.12.lf-i 

380* 

320 

0. 

OtOtO.O 

381* 

330 

0. 

120*1*0*0 

362* 

330 

61 

* l » IS*  Q*-600 

383. 

330 

61 

*1* 15i0*-l 

304* 

331 

1* 

OiOtlt-1 

385* 

331 

10 

• 0* 1 * 1 * 0 

366* 

332 

21 

* 0*  0 1 1 *-l 

3B7  » 

332 

10 

•0*lftl*-l 

388* 

336 

60 

f 10*  0 * 2f-l 

389. 

336 

10 

•0*0*2.-! 

390* 

338 

li 

0 • 1 * 2*-l 

391. 

330 

61 

>60*12* 1 *-l 

392* 

330 

0. 

0 » 0*  0 * 0 

393* 

340 

0. 

120*1*0*0 

394* 

340 

61 

*1*15*  0 *-600 

395* 

340 

61 

* 1 • 15*  0 *-30  0 

396. 

340 

61 

» 1 * 15*  Of-1 

397* 

341 

If 

0*0  * 1 *-l 

390* 

341 

10 

*0*1*1. 0 

399* 

342 

21 

* 0 , 0* 1 • -1 

400* 

342 

10 

* 0 * 1 * 1 *-1 

40 1 * 

340 

60 

• 10*0*2* “1 

402. 

348 

10 

» 0»  0 » 2»-l 

403* 

346 

If 

0*1*2. -1 

404* 

340 

61 

*60*12*1*-! 

405* 

340 

Of 

0*  0 • 0*  0 

406. 

350 

Of 

120*1*0*0 

407. 

350 

61 

•l*15t0t-l 

406* 

351 

If 

0*0*1*-! 

409* 

351 

10 

>0*1*1.0 

410. 

352 

21 

*0*0*1  * "1 

ni. 

352 

10 

tOtlflft-l 

412. 

350 

60 

* 10*0  *2*-l 

413* 

358 

10 

>0*0*2*-! 

414. 

358 

If 

0 > 1 *2t-l 

415. 

350 

61 

*60* 12* 1 »-l 

416. 

350 

Of 

0*  0*  0 * 0 

417. 

360 

0» 

120*1*0*0 

416. 

360 

61 

* 1 • l5*0*-600 

419* 

360 

61 

• 1 * 15»0f-l 

420. 

361 

If 

0*0*1*— 1 

421. 

361 

10 

*0*lfl*O 

MODFL  1-JNTEHARKlVAL  TIME  MEAN  OF  120  SE003670 
$PS  COMPILATION  OF  SOURCE  CODE- l SEC,  003680 
FILEI-LOAD  MODULE  1 5K I SPS  <-->  OSK,  003690 
FILE 1 DbK  <••>  FMP . 003700 

FRE2-CONF  IGATION  l OK  » GRF  < — > OSK,  003710 
FILE2  OSK  <—>  FMP*  003720 

FMP  FLOW  CODE  PROCESSING  - 10  SEC*  003730 

FILES-RESULTS  FILE  *>0KI  FMP  < — > DSK.  003740 
FILFB  DbK  <— > SPS*  003750 

SPS  POST -PROCESSING I 40  SEC-25*  LOAD.  O0376O 
JOB  RUN  COMPLETE.  003770 

MODEL  1-lNtERARRIVAL  TIME  MEAN  OF  120  SE003780 
I SEC  ABORTED  SPS  COMPILE  - WAIT  10  M003790 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  bEr.  003800 
F ILF  l -LOAD  MODULE  ISM  SPS  <— > DSK.  003810 
FfLFl  OSK  < — > FMP.  003820 

FILE2-CONFIGATION  10K|  GMF  <-->  l>SK.  003630 

FILE2  DSK  < — > FMP.  003840 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  O038SO 

F ILE9-0EBUG  DUMP  FILE  3M|  FMP  DSK, 003860 

F ILE9  DSK  <-->  SPS*  003870 

SPS  POST-PROCESSING! 40  SEC-25%  LOAD*  003880 

JOB  RUN  COMPLETE*  003890 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SE003900 
1 SEC  ABORTED  SPS  COMP I L ' N - WAIT  10  M003910 
SPS  HECOMp ILATION  OF  SOURCE  CODE-1  SEC*  003920 
FILE1-LOAD  MUOULE  1SK f SPS  < — > OSK  003930 

FILE1  OSK  <-->  FMP*  003940 

FILE2-CGNFIGATION  10K I GRf  < — > OSK*  003950 
FILE2  DSK  <— > FMP,  003960 

FMP  FLOW  CODE  PROCESSING  - 10* SEC*  003970 

FILES-RESULTS  FILE  hOKI  FHP  <-->  oSK*  003980 
FILE8  OSK  < — > SPS.  003990 

SPS  POST-PROCESSING! 40  SEC-25*  LOAD,  004000 

JOB  RUN  COMPLETE,  004010 


MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SE004020 
1 SEC  ABORTED  SPS  COMPIL'N  * WAIT  10  MO0403O 
AF30RTEO  C0MPIL*N  AGAIN  - WAIT  5 MIN,  T004040 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC.  004050 


FILEI-LOAD  MODULE  15K|  SPS  <— > DSK,  004060 
FILE!  DSK  <«,->  FMP,  004070 

FI  LE2-C0NF IGATION  10KI  GRF  < — > DSK*  004080 
FILE2  DSK  <•.->  FMP*  004090 

FMP  FLOW  CODE  PROCESSING  - 10  SEC*  004100 

FILES-RESULTS  FILE  6 OK  I FMP  < — > OSK*  004110 
FILES  DSK  <— > SPS*  004120 

SPS  POST -PROCESSING  I 40  SEC-25*  LOAD.  004130 

JOB  RUN  COMPLETE.  004140 

MODEL  1-lNTENARRtVAL  TIME  MEAN  OF  120  SE004150 
SPS  COMPILATION  OF  SOURCE  COOE-1  SEC*  004160 
FILEI-LOAD  MODULE  15K1  SPS  < — > OSK,  004170 
FILE1  DSK  <—>  FMP.  004180 

FILE2-CONFIGATION  10K|  GRF  <-->  OSK*  004190 

FILE2  OSK  < — > FMP,  004200 

FMP  FLOW  CODE  PROCESSING  - 10  SEC*  004210 

FILES-RESULTS  FILE  60KI  FMP  <— > OSK*  004220 
FILES  DSK  <—>  SPS.  004230 

SPS  POST-PROCESSING f 40  SEC-25*  LOAD*  004240 

JOB  RUN  COMPLETE*  004250 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SE004260 
1 SEC  ABORTED  SPS  COMPILE  - WAIT  10  M004270 
SPS  RECOMPILATION  OF  SOURCE  COOE-1  SEC.  004280 
FILEI-LOAD  MODULE  1 5KI  SPS  < — > DSK*  004290 
FILE!  OSK  <— > FMP,  004300 


422* 

362 

21*0. 0*1. -1 

423* 

362 

10.0.1.1.-1 

424. 

360 

60*10*0*2.-1 

425* 

369 

10*0.0*90.-1 

426* 

369 

1 .0*1*90*-! 

427* 

360 

61,60*12*1.-1 

426* 

360 

0*0* 0*0*0 

429* 

370 

0*120*1*0*0 

430. 

370 

61*1*15*0.-600 

431* 

370 

61.1.15*0.-1 

432* 

371 

1*0. 0*1. -1 

433* 

371 

10*0.1*1*0 

434* 

372 

21. 0.0*1. -1 

435. 

372 

I0*0iltl»-1 

436. 

370 

60 . 1 0. 0* 2* -1 

437. 

37fl 

10*0*0. 2.-1 

436* 

378 

1 *0* 1.2.-1 

439* 

370 

6 1 » 60 . 12  * 1 . — I 

440* 

370 

0 » 0*  0*  0 .0 

441* 

380 

0*120*1.0*0 

442* 

' 3^0 

61*1* 15. 0t-600 

443* 

300 

61.1*15.0.-300 

444* 

300 

61*1*15.0.-1 

445* 

381 

1.0*0. 1.-1 

446* 

301 

10.0*1.1*0 

447* 

3B2 

21*0*0*1*-! 

440* 

362 

10*0*1. l.-l 

449* 

360 

60.10.0*2**1 

450* 

366 

10*0.0. 2.-1 

451* 

306 

1*0.1. 2.-1 

452* 

360 

61*60.12.1.-1 

453* 

380 

0*0. 0*0*0 

454. 

390 

0*120*1*0.0 

455* 

390 

61*1*15.0.-1 

456* 

391 

l.O.O.l.-l 

457* 

391 

10.0*1*1*0 

456* 

392 

21.0.0.1.-1 

459* 

392 

10. 0*1. 1,-1 

460* 

390 

60* 1 0 *0*2*-l 

461  ♦ 

399 

10*0*0. 90.-1 

462* 

399 

1.0.1.90.-1 

463* 

390 

61.60* 12* 1.-1 

464* 

390 

0*0. 0*0. O' 

465* 

400 

0*120*1*0*0 

466. 

400 

61*1.15.0.-600 

467. 

400 

61*1*15,0.-1 

466. 

401 

1*0, 0*1, -1 

469. 

401 

10*0*1*1*0 

470* 

402 

21*0, 0*1, -1 

471. 

402 

10*0, 1*1, -1 

472. 

400 

60*10*0*2*”! 

473. 

409 

10*0,0*90,-1 

474. 

409 

1*0,1, 90,-1 

475. 

400 

61*60*12,1,-1 

476* 

400 

0*0. 0*0*0 

477* 

410 

0.120*1,0*0 

47Q. 

410 

61*1*  IS, 0**1 

479* 

411 

1.0,0, l.-l 

460* 

411 

10.0*1,1,0 

481* 

412 

21, 0*0, l.-l 

482. 

412 

10*0*1 *1 t-1 

483* 

410 

60* 10,0*2*-1 

484* 

416 

10*0*0.2*— l 

485* 

410 

1.0*l*2»-l 

FILE2-CQNFIGATI0N  L OK t GRF  <— > DSK,  004310 
F1LE2  DSK  <—>  FMP ■ 004320 

FHP  FLOW  CODE  PROCESSING  - 10  SEC.  004330 

FIU9**OEBUG  DUMP  FILE  3M|  FMP  <-->  DSK.O0434O 
FILE9  DSK  <-->  SPS,  004350 

SPS  POST -PROCESSING I40  SEC-25*  LOAD,  004360 

JOB  RUN  COMPLETE*  004370 

MODEL  I-INTERARRIVAL  TIME  MEAN  OF  120  SE004380 
1 SEC  ABORTED  SPS  COMPILE  - WAIT  10  M004390 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC*  004400 
FILEI-LOAD  MODULE  1SK|  SPS  <— > DSK  004410 

FILE1  DSK  <-->  FHP,  004420 

F1LE2-CONF1GATION  1 OK  I GRF  <-->  DSK,  004430 
FILE2  DSK  <— > FMP,  004440 

FMP  FLOW  CODE  PROCESSING  - 10  SEC,  004450 

FILE8-RESULTS  FILE  60KI  FMP  <— > 0SK*‘  004460 

FILES  DSK  < — > SPS.  004470 

SPS  POST-PRQCESSINGI40  SEC-2S®  LOAD.  004400 

JOB  RUN  COMPLETE*  004490 


MODEL  1-INTERARRlVAL  TIME  MEAN  OF  120  SE004500 
1 SEC  ABORTED  SPS  COMPILE  - WAIT  10  MO0451O 
ABORTED  COMPILE  AGAIN  - WAIT  5 MIN*  T004520 


SPS  RECOMPILATION  OF  SOURCE  COOE-1  SEC.  004530 
FILEI-LOAO  MODULE  1 5K I SPS  <-->  DSK.  004540 
FILE1  DSK  <— > FMP.  004550 

FILE2-CONFIGATION  1 OK t GRF  <-->  OSK*  004560 
FILE2  DSK  < — > FMP.  004570 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  004580 

FILEB-RESULTS  FILE  60K»  FMP  <-L>  DSK.  004590 
FILES  DSK  > SPS.  004600 

SPS  POST-PROCESSING 1 40  SEC-25%  LOAD,  004610 

JOB  RUN  COMPLETE*  004620 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SE004630 
SPS  COMPILATION  OF  SOURCE  CODE-1  SEC.  004640 
FILE1-LOAD  MODULE  1 5K|  SPS  <— > DSK,  004650 
FILE1  DSK  <«>  FHP,  004660 

FILE2-CONFIGATION  10K1  GRF  <— > OSK.  004670 
FILEZ  DSK  <—  > FMP,  004660 

FHP  FLOW  CODE  PROCESSING  - 10  SEC.  004690 

FILE9-DEBUG  DUMP  FILE  3M|  FMP  <-•>  DSK, 004700 
FILE9  DSK  <— > SPS.  004710 

SPS  POST-PROCESSING  140  SEC-254  LOAD.  004720 

JOB  HUN  COMPLETE*  004730 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  5E004740 
1 SEC  ABORTED  SPS  COMPILE  - WAIT  10  M004750 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEc*  004760 
FILEI-LOAD  MODULE  I 5K | SPS  <-->  DSK.  004770 
FILE!  DSK  <— > FMP • 1 004760 

FILE2-C0NFIGATI0N  lQKl  GRF  <— > OSK*  004790 
FILE2  DSK  <—  > FMP.  004800 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  004B10 

F1LE9-OEBUG  DUMP  FILE  3M|  FMP  <— > DSK. 004020 
FILE9  DSK  <— > SPS.  004030 

SPS' POST-PROCESSING  1 40  SEC-254  LOAD,  004040 
JOB  RUN  COMPLETE.  004050 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SEQ0466O 
SPS  COMPILATION  OF  SOURCE  CODE-1  SEC,  004870 
FILEI-LOAD  MODULE  15K|  SPS  <— > OSK.  004000 
FILE1  DSK  <-->  FMP,  004890 

FILE2-CONFIGATION  1 0 K | < GRF  < — > OSK.  004900 
FILE2  DSK  < — > FHP,  004910 

FMP  FLOW  CODE  PROCESSING  - 10  SEC,  004920 

FILE0-RESULTS  FILE  60K»  FMP  <— > DSK.  004930 
FILES  OSK  <— > SPS,  004940 


466# 

410 

6 1 • 60 1 1 2 1 1 » -1 

487# 

410 

0*  0 *0*0 , 0 

488. 

420 

0* 120#  1,0*0 

469# 

420 

61 » 1 , IS, 0«-l 

490* 

421 

1 1 0*  0 a 1 1-1 

491# 

421 

10*0*  1 • 1*0 

492# 

422 

21*0*0* la-l 

493. 

422 

10  a Oa 1 a 1#-1 

494# 

420 

60* 10 i 0»2,-i 

495# 

426 

10 1 0 *0*  2* -1 

496# 

428 

t*0*l,2,-l 

497# 

420 

61 *60 1 12* 1 *-l 

496# 

420 

OaOaOiOiO 

499# 

430 

0*120,1,0,0 

500# 

430 

61 » 1 • 15 . 0 • -l 

501# 

431 

lfO#O.U-i 

502# 

431 

lOaOalilfO 

503# 

432 

21*0,0*1 i-l 

504# 

432 

10a  0 * 1 a 1 a-1 

505# 

430 

60a 1 0 » 0 ,2*- 1 

506# 

439 

1 0 »Oa  0 • 90 • -1 

507. 

439 

ItOa l*90t-l 

508# 

430 

61 *60, 12a 1 i - 1 

509# 

430 

0*  0 ,0, 0 , 0 

510# 

440 

Oa 120a 1,0*0 

511# 

440 

6l,l,lS.O*-l 

512# 

441 

1 a 0 aO 1 1 1-1 

513# 

441 

lOaOtla  1 #0 

514# 

442 

21*0*0* 1 t-1 

S15# 

442 

10*0*1, 1*-1 

516, 

440 

60 1 10, 0 , 2*-l 

517. 

449 

10*0*0*901-1 

510# 

449 

1 * 0 • 1 *90  » W1 

519# 

440 

61*60, I2#la-l 

520# 

440 

0*0,0* 0,0 

521# 

450 

0,120,1,0,0 

522  • 

450 

61*1*15,0* -600 

523# 

450 

61 • la 15,0«-1 

624# 

451 

1*0,0* l t-i 

525# 

451 

10*0*1*1,0 

526# 

452 

Hla  0 , Oa 1 ,”1 

527# 

452 

10,0,1* 1*-1 

S2B# 

450 

60  * 10  #0,2* "1 

529# 

458 

10*0*0*2*-! 

530# 

458 

1*0*1, 2,-1 

531# 

450 

61,60,12*1,-1 

532# 

450 

0 aO, 0,0,0 

533. 

460 

0*  120,1 ,0, 0 

534# 

460 

61, lalS, 0,-600 

535# 

460 

61,1*15,0,-300 

536# 

460 

61,1*15,0,-1 

537. 

461 

1, 0*0*1, -1 

538# 

461 

10,0,1,1,0 

539# 

462 

21,0,0,1,-! 

540# 

462 

10,0,1*1 ,-l 

541# 

460 

60,10,0,2,-1 

542# 

468 

10, 0,0, 2,-1 

543. 

468 

1,0, 1,2, -1 

544# 

460 

61,60,12*1*-! 

545# 

460 

0 *0 » 0 , 0 » 0 

546# 

470 

0,120,1,0,0 

547# 

470 

61*1 • 1S»0*-1 

548# 

471 

1*0, 0,1, -1 

549# 

471 

10,0*1,1,0 

550# 

472 

21*0,0*1,-! 

SPS  POST-PRGCESSING140  SEC-25*  LOAD,  004950 

JOB  HUN  COMPLETE#  004960 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SE00A970 
SPS  COMPILATION  OF  SOURCE  COOE-l  SEC*  004980 
FILEl-LOAD  MODULE  15K I SPS  <~  > OSK 0 004990 

FILE l OSK  <— > FMP#  005000 

FILE2-C0NFIGATI0N  1 OK t GRF  <— > DSK*  005010 
FILE2  OSK  < — > F«P#  005020 

FMP  FLOW  COOE  PROCESSING  - 10  SEC#  005030 

FILE8-RESULTS  FILE  60KI  FMP  <— > OSK.  005040 
FILE6  DSK  <-->  SPS,  005050 

SPS  POST-PRQCESSINGUO  SEC-25*  LOAD#  005060 

JOB  RUN  COMPLETE.  005070 

MODEL  1 -INTERARftI VAL  TIME  MEAN  OF  120  SE005080 
SPS  COMPILATION  OF  SOURCE  CQOE-1  SEC#  005090 
FILE  1-LOAO  MODULE  1«5K»  SPS  <— > OSK,  005100 
FILE!  OSK  < — > FMP « 00S110 

FILE2-CONFIGAT10N  1 OK t GRF  <-->  DSK,  005120 
FILES  DSK  <— > FMP,  005130 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  • 005140 

FILE9-0EBUG  DUMP  FILE  3MI  FMP  <— > DSK.005150 
FILE9  DSK  <— > SPS,  O0516O 

SPS  POST-PROCESSING  140  SEC-25*  LOAD.  005170 

JOB  RUN  COMPLETE#  005100 

MODEL  1-INTEftARRlVAl  TIME  MEAN  OF  120  SE005X90 
sps  compilation  of  source  code-i  sec,  005200 
FILE  1-LOAO  MODULE  15KI  SPS  <— > DSK#  005210 
FILE1  OSK  <— .>  FMP.  005220 

FILE2-CONFIGAT10N  I0K|  GRF  <-->  OSK#  005230 
FILE2  DSK  < — > FMP.  005240 

FMP  FLOW  CODE  PROCESSING  - 10  SEC,  006250 

FILE9-DE BUG  DUMP  3MI  FMP  <— > OSK,  005260 

FILE9  DSK  <— > SPS,  005270 

SPS  P0ST-PH0CESSINGI40  SEC-2S*  LOAD#  005200 

JOB  RUN  COMPLETE#  005290 

MODEL  1-lNTERARfUVAL  TIME  MEAN  OF  120  SE00S300 
L SEC  ABORTED  SPS  COMPILE  • WAIT  10  M005310 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC.  005320 
FILEI-LOAO  MODULE  iSKI,  SPS  <— > OSK,  005330 
FILE  I DSK  <-->  FMP,  005340 

FILE2-C0NFIGATI0N  10K»  GRF  <— > OSK,  005350 

FILE2  OSK  FMP.  00S360 

FMP  FLOW  COOE  PROCESSING  - 10  SEC.  005370 

F ILFB-RESULTS  file  60M  FMP  <— > OSK,  005300 
FILES  DSK  <-->  SPS,  005390 

SPS  POST-PROCESS INGI 40  SEC-25*  LOAD,  005400 

JOB  RUN  COMPLETE,  005410 


MODEL  l-INTERARRIVAL  TIME  MEAN  OF  120  SE005420 
I SEC  ABORTED  SPS  COMPILE  - WAIT  10  M005430 
AftORTEO  COMP IL  *N  AGAIN  - WAIT  5 MINt  T005440 
SPS  RECOMPILATION  OF  SOURCE  COPE-1  SEC.  005450 


FILE1-LOAD  MODULE  15KI  SPS  <— > DSK.  005460 
F1LE1  OSK  < — FMP.  005470 
FILE  2-  CONf  / G A 7 1 ON  10KJ  GPP  <-->  DSK,  005480 
FILE2  DSK  < — > FMP,  005490 
FMP  FLOW  CODE  PROCESSING  - 10  SEC#  005500 
FILE8-RESUL7S  FILE  *0k»  FMP  <— > DSK.  005510 
FILEfl  OSk  «—  > SPS,  005520 
SPS  PQS 7-PR0CE5S JNGI40  SEC-25*  LOAD,  005530 
JOB  RUN  COMPLETE,  005540 
MODEL  l-INTERARRIVAL  Time  MEAN  OF  120  SE 005550 
SPS  COMPILATION  OF  SOURCE  COOE-1  SFC.  005560 
FlLEi-LOAD  MODULE  ISKI  SPS  < — > DSK , 005570 
F7LE1  DSK  < — > FMP,  005500 
FIL£2-C0nF  1 GAT  ION  1 OK  | GRF  < — > OSK,  006590 


I 

> 

I 


551* 

472 

10.0,1. 1,-1 

552* 

470 

60*10*0,2.-1 

553* 

478 

10, 0 • 0 » 2.-1 

554. 

478 

1.0, 1.2.-1 

555* 

470 

61  * 60.12*1 .-1 

556, 

470 

0.0 » 0,0*0 

557* 

480 

0.120,1,0.0 

558* 

460 

61.1.15.0* -600 

559. 

480 

61,1.15.0.-1 

560* 

481 

1.0.0. 1 .-1 

561. 

461 

10.0.1,1*0 

562* 

482 

21,0,0. 1*-1 

563* 

482 

10.0,1. 1,-1 

564, 

480 

60,10.0,2.-1 

565. 

489 

10,0.0*90,-1 

566* 

489 

1,0,1,90*-! 

567. 

480 

61,60,12*1,-1 

568  • 

460 

0.0, 0*0*0  - 

569  • 

490 

0*120,1,0,0 

570, 

490 

61*1.15,0,-600 

571. 

490 

61,1.15,0,-1 

572. 

491 

1,0,0, 1,-1 

573. 

491 

10*0*1,1,0 

574. 

493 

21, 0,0, 1,-1 

575, 

492 

10,0, 1,1, -1 

576. 

490 

60,10,0*2*-! 

577. 

498 

10, 0,0*2, -1 

578, ‘ 

498 

1,0* 1,2, -1 

579, 

490 

61*60*12,1 *-l 

580. 

490 

Qt 0,0* 0*0 

581. 

500 

0*120,1,0.0 

582, 

500 

61,1,15*0, -600 

583, 

500 

61 .1.15,0.-300 

584. 

500 

61.1,15,0,-1 

585. 

501 

1 * 0 • 0 * 1 .-1 

586. 

501 

10,0,1.1,0 

587. 

SG2 

21.0,0, 1,-1 

588. 

503 

1 0 , 0 , 1 « 1 , -1 

589. 

500 

60,10,0,2,-1 

590. 

508 

10*0,0,2,-1 

591. 

50B 

1,0,1, 2,-1 

592. 

500 

61,60,12,1.-1 

593. 

500 

0*0,0. 0,0 

594, 

510 

Ot 120.1, 0,0 

595, 

510 

61 » 1 , 15, 0 ♦ -1 

596  * 

Sll 

1*  0 , 0, 1 , - 1 

597. 

511 

10,0,1,1,0 

598. 

512 

21,0,0, 1,-1 

599* 

512 

10,0»l,i,-l 

600. 

510 

60*10*0*2,-1 

601. 

518 

10,0, 0,2, -1 

602. 

518 

1*0,1, 2.-1 

603. 

510 

61*60.12,1,-1 

604. 

510 

0, 0 « 0 , 0, 0 

60S. 

520 

0*120*1*0*0 

606. 

520 

61,1, 15.0, -i 

607. 

521 

1.0.0* 1,-1 

608. 

521 

10,0*1,1,0 

609. 

522 

21, 0,0, 1,-1 

610. 

522 

10,0*1 ,1,-1 

Mi. 

520 

60,10*0,2*-l 

612. 

528 

10,0, 0,2, -1 

613* 

528 

1, 0,1*2, -1 

614, 

520 

61,60*12.1,-1 

615* 

520 

0,0, 0.0,0 

FILES  DSk  < — > FMP.  00*600 

FMP  FLO#  CODE  PROCESSING  * 10  SEC*  00*610 

FILEB-RESULTS  FILE  AOkI  FMP  < — > f)SK*  00*620 
FILES  OSK  <-->  SPS*  005630 

SPS  POST-PHOCESSINGI40  SEC-25%  LOAD,  00*640 

JOB  PUN  COMPLETE,  00*650 

MODEL  1 -INTER APR  I VAL  TIME  MEAN  OF  120  5E005660 
1 SEC  ABORTED  SPS  COMPILE  - WAIT  10  MC  05670 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  ser.  005680 
FILEl-LOAD  MODULE  1 5K I SPS  DSK  005690 

FILE1  DSK  <~>  FMP,  00*700 

F 1 LE2-CONFIGAT I ON  1 OK  | GRF  < — > DSK,  00*710 
FILE2  OSK  <-->  FMP,  005720 

FMP  FLO#  CODE  PROCESSING  - 10  SEC,  005730 

FILE9-DEBUG  DUMP  FILE  3M1  FMP  < — > DSK ,005740 
FILE9  OSK  <-->  SPS « 005750 

SPS  P0ST-PHOCESSINGI40  SEC-254  LOAD,  005760 

JOB  RUN  COMPLETE*  (105770 

MODEL  1-lNTERARRjVAL  TIME  MEAN  OF  120  SE005780 
t SEC  ABORTED  SPS  C0MPIL*N  - WAI f 10  M005790 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEr,  005800 
FILE1-LOAD  MODULE  1SK|  SPS  <— > DSK,  005810 
FILE1  OSK  <— > FMP,  005820 

FILE2-CONFIGATION  10KI  G«F  < — > OSK,  005830 

FILE2  OSK  <-->  FMP,  005B40 

FMP  FLO#  CODE  PROCESSING  - 10  SEC,  005850 

FILES-RESULTS  FILE  60K(  FMP  <— > DSK,  005860 
FILES  DSK  <— > SPS*  005870 

SPS  POST-PROCESSING 140  SEC-254  LOAD.  005880 

JOB  RUN  COMPLETE,  005890 


MODEL  1-lNTERARRIVAL  TIME  MEAN  OF  120  SE005900 
1 SEC  ABORTED  SPS  COMPIl*N  - WAIT  10  M005910 
ABORTEO  COMPIL'N  AGAIN  - WAIT  5 MIN,  T0OS92O 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC,  005930 


FILEI-LOAD  MODULE  ISK | SPS  <— > DSK,  005940 
FILE1  OSK  <— > FMP.  005950 

FILE2-C0NF  I GAT  I ON  10K|  GRF  < — » DSK,  005960 
FILE2  DSK  <-->  FMP*  005970 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  005980 

FILEB-RESULTS  FILE  60KI  FMP  <— > DSK,  005990 
FILES  OSK  <— > SPS,  006000 

SPS  POST-PROCESSING 1 40  SEC-254  LOAD*  006010 

JOB  RUN  COMPLETE*  006020 

MODEL  1 -INTERARRIVAL  TIME  MEAN  OF  120  SE006030 
SPS  COMPILATION  OF  SOURCE  CODE-l  SEC.  006040 
FlLEl-LOAO  MODULE  1 5K ) SPS  > OSK.  006050 
FILE1  OSK  <— > FMP*  006060 

F ILE2-C0NF IGAT ION  1 OK | GRF  <— > DSK.  006070 
FILE2  DSK  <-->  FMP,  006080 

FMP  FLOW  CODE  PROCESSING  - 10  SEC,  006090 

FILEH-RESULTS  FILE  60K|  FMP  < — > DSK.  006100 
FILES  OSK  <-•>  SPS.  006110 

SPS  POST-PROCESSING! 40  SEC-254  LOAD,  006120 

JOB  RUN  COMPLETE,  006130 

MODEL  1-IMTERARRlVAL  TIME  MEAN  OF  120  SE006140 
SPS  COMPILATION  OF  SOURCE  CODE-1  SEC.  006150 
FILEl-LOAO  MODULE  15K1  SPS  <-->  OSK.  006160 
FILE1  DSK  < — > FMP,  006170 

FILE2-C0NF1GATI0N  10K!  GRF  <— > OSK,  006180 
FILE2  OSK  <— > FMP,  006190 

FMP  FLOW  CODE  PROCESSING  - ID  SEC,  006200 

FILE8-RESULTS  FILE  60KI  FHP  < — > OSK.  006210 
FILES  OSK  <-->  SPS.  006220 

SPS  POST-PROCESSINGUO  SEC-254  LOAD*  006230 
JOB  RUN  COMPLETE.  . 006240  ’ 
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MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SE006P50 


SPS  COMPILATION  OF  SOURCE  CODE-1  SEC*  006260 
FILE1-LOAO  MODULE  15KI  SPS  <— *>  DSK*  0062T0 
FILE!  OSK  <-->  FMP*  006280 

FILE2-CONFIGATION  10K*  GRF  > OSK*  006200 
FILE2  DSK  <-. *>  FMP.  006300 

FMP  FLO*  CODE  PROCESSING  - 10  SEC.  006310 

FILE9-0EBUQ  DUMP  FILE  3M|  FMP  <— > DSK.006320 
FILE9  OSK  < — > SPS.  006330 

SPS  POST-PMOCESSING 1 40  SEC-25*  LOAD,  006340 

JOS  RUN  COMPLETE.  006350 

MODEL  I “INTER ARRIVAL  TIME  MEAN  OF  120  SE006360 
SPS  COMPILATION  OF  SOURCE  CODE-1  SEC.  006370 
FILEt-LOAD  MODULE  15K*  SPS  <— > OSK*  006380 
FILE  I DSK  < — > FMP.  006390 

FILE2-CONFIGATION  lQK*  GRF  <— > DSK.  006400 
FJLE2  QSK  <— > FMP.  006410 

FMP  FLO*  CODE  PROCESSING  - 10  SEC.  006420 

FILE9-DEBUG  DUMP  3MI  FMP  <—>  DSK.  006430 

FILE9  OSK  <— > SPS.  006440 

SPS  POST-PROCESSINGI40  SEC-25*  LOAD.  006450 

JOB  RUN  COMPLETE.  006460 

MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SE006470 
1 SEC  ABORTED  SPS  COMPIL*N  - *AIT  10  MO064S0 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  S EC*  006490 
FILEI-LOAD  MODULE  15KI  SPS  <— > OSK.  006500 
FILE l OSK  <-->  FMP.  006510 

FILE2-CONFIGATION  10K|  GRF  <-->  OSK.  006520 

FILE2  OSK  <-->  FMP.  006530 

FMP  FLO*  CODE  PROCESSING  - 10  SEC.  006540 

FILE8-RESULTS  FILE  60k»  FMP  <— > DSK.  006550 
FILE8  OSK  < — > SPS.  006560 

SPS  PQST-PROCESSINGUO  SEC-25%  LOAD.  006570 

JOB  RUN  COMPLETE.  006580 


MODEL  1-INTERARRIVAL  TIME  MEAN  OF  120  SE006S90 
1 SEC  ABORTED  SPS  COMPIL»N  - WAIT  10  **006600 
ABORTED  COMPIL'N  AGAIN  - *AIT  5 MIN,  T006610 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC*  006620 
FILE1-LOAO  MODULE  15KI  SPS  < — > DSK.  006630 
FILE!  DSK  <—.>  FMP.  006640 

FILE2-C0NF IGATION  1 OK t GRF  <— * DSK.  006650 
FILE2  DSK  <«■->  FMP.  006660 

FMP  FLO*  CODE  PROCESSING  - 10  SEC.  006670 

FILES-RESULTS  FILE  60KI  FMP  > OSK.  006680 
FILES  DSK  <— > SPS.  006690 

SPS  POST-PROCESSING I 40  SEC-25*  LOAD*  006700 

JOB  RUN  COMPLETE.  006710 

MODEL  1-InTERaRRJ VAL  TIME  MEAN  OF  120  SE006720 
SPS  COMPILATION  OF  SOURCE  COOE-1  SEC.  006730 
FILE1-LOAO  MODULE  15KI  SPS  <— > DSK.  006740 
FILE1  DSK  <— > FMP.  006750 

FILE2-C0NFIGATI0N  10KI  GRF  < — > DSK,  OG6760 
F1LE2  DSK  <-~>  FMP.  006770 

FMP  FLOW  CODE  PROCESSING  - 10  SEC,  006780 

FILEB-RESULTS  FILE  60KI  FMP  <— > OSK,  006790 
FILEB  OSK  < — > SPS.  OO6B00 

SPS  POST-PWOCESSINGI 40  SEC-25*  LOAD.  006810 

JOB  RUN  COMPLETE,  006820 

MODEL  I-INTERARRIVAL  TIME  MEAN  OF  120  SE006830 
1 SEC  A80RTE0  SPS  COMPILE  - WAIT  10  MOO604O 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC,  006850 
FILE  1-LOAO  MODULE  15K|  SPS  < — > DSK  006860 

FILE!  OSK  <— > FMP,  006870 

FILE2-C0NFIGATI0N  10M  GRF  < — > DSK,  006880 
FILE2  OSK  <— > FMP,  006890 
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> 

I 


00 


6B 1 * 5B0 i 60* 1 0 * 0*  2V-I 

682*  509*  10*0.0*  90  *-l 

683*  509* 1*0*1*90*51 

684*  56  0*61*60*12  i'Ip-1 

685  * 580*0* OiOiOtO* 

686*  590*0*120*1*0*0 

687*  590*61*1* 15 • 0 *“600 

688*  590 *6l * 1 * 15  * 0 1-1 

609.  591*1*0. 0*lt-l 

690*  591*10*0*1*1*^ 

691.  592*2l*0»0i l*«l 

692*  592*10*0* 1*1*?} 

693.  590.60.  10. 0.2^1 

694.  59 8*10*0*0*2  *<*1 

695.  598*1*0*1*2*-! 

696*  59 0 * 6 1 • 60 ♦ 1 2 * ivt - 1 

697.  590.0.0.0*0.0 

698.  610*0  *300*2* 0 * 0 

699.  610*61*1. 25  *6,* -600 

700.  61 0 * 61  * 1 1 25  * 0,V“  1 

701 . 6ll * 1 *0*0*2* -1 

702.  611*10.0.1*2.0 

703.  612*21*0. 0*2. rl 

704.  612*10*0. 1*2.0 

705.  613* 1*0.0. I9*rl 

706.  613.10*0.1  *19'*-1 

707.  61O*bO*60*O.ji-l 

708.  619* 10*0i0*126*-l 

709.  619*1*0.1*125*0 

710.  619*10*0.0. 12b*-i 

711.  619*1*0.1*125.-1 

712.  610*0*0*0*0.0 

713.  620*0*300.1 .0^0 

714.  620*61* 1*25.0*-! 

715.  621  * l *0.0*2 .-1 

716.  621*10.0.1.2.0 

717.  622.20. 0*1. 2*-l 

710.  620*61.80.20*1.-1 

719.  622* 1*0. 0*2. -1 

720.  622*10*0.1.2.0 

721.  623.1*0*0.19.-1 

722.  623.10.0*1. 19.-1 

723.  620*60.60.0. 3*-l 

724.  626.10.0.0.6.-1 

725.  628*1*0*1*6.-1, 

726.  620*61  * 1 BO*  35 tit-1 

727.  627.20*0. 0.4.-1 

728.  620*0*0*0*0*0  , 

729.  630.0*300.1*0*0 

730.  630*61*  1 * 25*  0 *-600 

731.  630*61  * 1*25*0* *300 

732.  fcJO  * b 1 1 1.25.6*— 1 

733.  63 1 * 1 » 0 • 0 » 2 * -1' 

734.  631*10*0.1*2*0  , 

735.  632*21*0. 0*2i-l 

736.  632*10*0*1*2*0 

737.  633* 1 • 0*0. 19.-1 

738.  633.10.0.1*19.-1 

739.  630*60*60* 0»3*-l 

74  0.  638*  l 0*0. 0. 12.,- 1 

741.  638. 1*0*1*12* -l 

742.  630.61*360*35*1.-1 

743.  637.20.0.0.0.-1 

744.  630 . 0 * 0 1 0 . 0 » 0 

745.  640*0*300.1*0.0 


FMP  FLOW  CODE  PROCESSING  - 10  SEC.  006900 

FILE9-DEBUG  DUMP  FILE  3M|  FMP  <— > DSK. 006910 
FILE9  DSK  <-->  SPS.  006920 

SPS  POST-PROCESSING 140  SEC-25*  LOAD,  006930 

JOB  RON  COMPLETE.  006940 


MOOEL  I-INTERARRIVAI  TIME  MEAN  OF  120  SE006950 
1 SEC  A0ORTEO  SPS  COMPIL'N  - WAIT  10  M006960 
SPS  RECOMPILATION  OF  SOURCE  CODE-1  SEC.  006970 


FILE1-LOAD  MODULE  15K*  SPS  <m~ > OS«.  006980 
FILE1  OSK  < — > FMP,  006990 

FILE2-C0NF IGATION  1 OK | GRF  <-->  DSK.  007000 
FILE2  DSK  <-*>  FMP,  * 007010 

FMP  FLOW  CODE  PROCESSING  - 10  SEC.  007020 

FILES-RESULTS  FILE  6QK1  FMP  <— > DSK,  007030 
FILEB  DSK  > SPS.  007040 

SPS  POST-PROCESS I NG I 40  SEC-25*  LOAD.  007050 
JOB  HUN  COMPLETE.  007060 

MOOEL  2-INTEHARR I VAL  TIME  MEAN  OF  300  SEC007070 
l SEC  ABORTED  SPS  COMP*LN  - WAIT  10  MIN,  007080 
SPS  RECOMPILATION  OF  SOURCE  CODE  - 1 SEC. 007090 
FILEl-LOAD  MODULE  60KI  SPS  — > OSK , 007100 

FILE1  DSK  -->  FMP,  007110 

FILE2-CONFIGUBATION  50K1  GHF  — > OSK.  01)7120 
FILE2  DSK  FMP.  007130 

FILE3-GHID  6O0K*  SPS  — > OSK.  007140 

FILE3  DSK  — > FMP.  007150 

FMP  FLOW  CODE  PROCESSING-60SECI AWAIT  3 FI007160 
FILE9-DEBUG  DUMP  4MI  FMP  — > OSK.  007170 

FILE9  DSK  — > SPS,  O071BO 

FILE9  ANOTHER  4M  WORDS  I FMP  -->  DSK,  007190 

FILE9  OSK  — > SPS.  007200 

JOB  RUN  COMPLETED.  007210 

MODEL  2-lNTERAftRIVAL  TIME  MEAN  OF  300  SEC0Q7220 
SPS  COMPILATION  OF  SOURCE  CODE  - 1 SEC  007230 
FILE1-LOAO  MODULE  60K I SPS  — > OSK.  007240 

F1LE1  DSK  FMP,  007250 

FILE2-CONF IGURATION  50KI  GRF  ->  SPS.  007260 
SPS  CONFIGURE  MANIPULA*NI70  SEC-30*  LOAOOQ7270 
F1LE2-CONF IGURATION  50K1  SPS  -->  DSK,  007200 
FILE?  DSK  -4>  FMP,  007290 

FILE3-GWIO  600KI  SPS  — > DSK.  007300 

FILE3  DSK  — > FMP,  007310 

FMP  FLOW  CODE  PROCESS I NG-60SEC I AwAlT  3 FI  007320 
F ILEfl-REbULTS  FILE  100k»  FMP  — > DSK.  007330 
FILE8  DSK  — > SPS,  007340 

SPS  POST  PROCESSING-! 20  5EC170*  LOAD.  007350 

FILE7-OUTPUT  FILE  120K1  SPS  — > GRF.  007360 

JOB  RUN  COMPLETED.  007370 

MODEL  2-lNTERARR I VaL  TIME  MEAN  OF  300  SEC007380 
1 SEC  ABORTED  SPS  COMP*LN  - WAIT  10  Miv.  007390 
ABORTED  COMPILATION  AGAIN-WAIT  5 MIN,  007400 
SPS  HECOnHlLATJON  OF  SOURCE  CODE  - 1 SEC. 007410 
FILE1-LOAO  MODULE  60KI  SPS  -->  DSK,  007420 

FI  LEI  DSK  — > FMP*  007430 

F I LE2-C0NF (GURaT ION  50KI  GHF  — > OSK,  007440 
FILE?  DSK  FMP.  007450 

F ILE3-GR ID  600KI  SPS  — > OSK.  *007460 

FILE3  DSK  — > FMP,  007470 

FMP  FLOW  CODE  PROCESSING-60SEC1AWAIT  3 FI00748Q 
FILES-RESULTS  FILE  3hOK I FMP  — > DSK,  007490 
FILE8  OSK  -->  SPS,  • 007500 

SPS  POST  PROCESSING-240  SECI70*  LOAD.  007510 

FILE7-UUTPUT  FILE  240KI  SPS  — > GRF • 007520 

JOB  RUN  COMPLETED,  007530 

MODEL  2-INTEHARRIVAL  TIME  MEAN  OF  300  5ECD07540 
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1 SEC  ABOMTEO  CUMP«LN-WAIT  10  MIN*  007550 
SPS  RECOMPILATION  OF  SOURCE  CODE  - \ SEC. 007560 
FILE1-LOAD  MODULE  60M  SPS  -->  I>Sk.  007570 
FILE  1 05k  -->  FMp,  007580 
FILE?~CONf IGURATjON  50KI  GRF  — > J)SK » 007590 
FILE?  DSK  — > FMp , 007600 
FILE3-GMJD  600KI  SPS  — > OSK.  007610 
FILE3  DSK  — > FMP*  007620 
FMP  FLO*  CODE  PROCESS l NG-60SEC I AWAI T 3 FI007630 
FILE0-RESULTS  FILE  180KI  FMP  — > OSK*  0076*0 
FILES  DSK  — > SP5.  007650 
SPS  POST  PROCESS I MG- 1 20  SEC|70*  LOAD*  007660 
FILE7-0UTPUT  FILE  120K|  SPS  — > GRF » 007670 
JOB  RUN  COMPLETED.  007680 
MODEL  2-INTERARRIVAL  TIME  MEAN  OF  300  SEC007690 
1 SEC  ABORTED  COMPLY  - WA I T 10  MIN*  007700 
SPS  RECOMPILATION  OF  SOURCE  CODE  - 1 SEC*  007710 
FILEl-LOAD  MODULE  60K I SPS  -->  DSK*  007720 
FILE  1 DSK  —>  FMP.  007730 
FILE2-CONF I GURATION  50KI  GRF  — > OSK,  007740 
FJLE2  DSK  — > FMP,  007750 
FILE3*<*6RI0  60  OK  I SPS  — > DSK.  007760 
FILE3  OSK  — > FMP.  007770 
FMP  FLOW  CODE  PROCESS XNG-60SEC l AWAI T 3 FI007780 
FILE8-RES0LTS  FILE  180KI  FMP  -->  DSK.  007790 
FILES  OSK  ->  SPS.  007800 
SPS  POST  PR0CES5I WG-120  SECI7Q*  LOAD.  007810 
FILE7-OUTPUT  FILE  1 20K $ SPS  — > GHF.  007820 
JOS  RUN  COMPLETED.  007830 
MODEL  H- INTERARRIVAL  TIME  MEAN  Of  300  SEC007840 
l SEC  ABORTED  SPS  COMPILN  - WAIT  10  MJN.  007850 
SPS  RECOMPILATION  OF  SOURCE  CODE  - I SEC. 007860 
FILE! ~LOAD  MODULE  60KI  SPS  — > OSK*  007B70 
FILEI  DSK  — > FMP*  007080 
FILE2-C0NF J GURATIQN  50KI  GHF  — > DSK0  007890 
F1LE2  OSK  FMP,  007900 
FILE3-GRJ0  600K1  SPS  — > OSK.  007910 
FILE3  DSK  — > FMP.  007920 
FMP  FLOW  CODE  PRQCESSING-6QSECI AWAIT  3 FI007930 
FILE9-DE0UG  DUMP  4NI  FMP  — > DSK*  007940 
FILE9  OSK  — > SPS.  007950 
FILE9  ANOTHER  4M  NOROSl  FMP  — > DSK*  007960 
FILE9  DSK  — > SPS.  007970 
JOB  RUN  COMPLETED*  007980 
MODEL  H-lNTEAARRIVAL  TIME  MEAN  OF  300  SEC0Q7990 
SPS  COMPILATION  OF  SOURCE  CODE  - 1 SEC  008000 
FILEl-LOAD  MODULE  60K|  SPS  — > DSK.  008010 
FILEI  DSK  — > FMP.  008020 
FILE2-CONFIGURATIQN  50KI  GRF  — > SPS,  008030 
SPS  CONFIGURE  MAHlPULA'NtyO  SEC-30*  LOAOQ0B04Q 
FI LE2-CONF I DURATION  50KI  SPS  — > OSK,  008050 
FILE2  DSK  — > FMP*  008060 
FILE3-GHI0  600KI  SPS  DSK.  008070 
F1LE3  OSK  — > FMP.  008080 
FMP  FLOW  CODE  PROCESS I NG-60SEC I AWAI T 3 FI008090 
FILE9-DEBUG  DUMP  4MI  FMP  — > DSK,  008100 
FILE9  DSK  — > SPS,  008110 
FILE9  - ANOTHER  4K  WORDS  FMP  — > OSK,  008120 
FILE9  OSK  — > SPS.  008130 
JOB  RUN  COMPLETED.  008140 
MODEL  H-WE«ARRm L TIME  MEAN  OF  300  SECO0B1 50 
1 SEC  ABORTED  SPS  COMP»LN  - WAIT  10  MJN*  008160 
ABORTED  COMPILATION  AGAIN-WAIT  5 MIN.  008170 
SPS  RECOMPILATION  OF  SOURCE  CODE  - 1 SEC, 008100 
FILEl-LOAD  MODULE  60KQ  SPS  — > DSK*  008190 


si-v-i  i 


611. 

681 

10,0,1,2,9, 

6J2# 

6B2 

21, 0,0, 2,-1 

013. 

602 

10,0,1,2,0 

014. 

603 

1 1 0,0* 1 9*-l 

&15* 

603 

10i0,l,19»-l 

016. 

600 

60  ,60, 0 *3» “1 

017. 

660 

10,0,0.6t*l 

oia. 

606 

1.0,1, 6,-1; 

819. 

600 

61.100. 35*<ii-l 

620. 

607 

2 0.0,0.4i-l 

621. 

600 

0»0. 0*0,0  ^ 

022. 

690 

0.300.1.0.0 

023. 

690 

61.1,25. 0.-600 

624. 

690 

61.1.25,0.-1 

025. 

691 

l. 0.0. 2.-1 

026. 

691 

10.0,1.2*0, 

027. 

692 

21.0,0 .2,-1 

02B. 

692 

10»0, 1 .2*0, 

029. 

693 

1 ,0. 0* 19,-1 

030. 

693 

10.0,1,19.-1 

031. 

690 

60.60*0*3.-1 

032. 

690 

10. 0,0. 6. -1 

633* 

690 

1.0.1. 6,-1 

634. 

690 

61.l0O.35tl.-l 

635. 

697 

20  *0. 0 .4  ,-l 

036, 

690 

0.0. 0,0.0 

037. 

700 

0.300.1.0.0 

038, 

700 

61.1.25.0.-600 

039. 

700 

61 ,1.25. 0.-1 

040. 

701 

1.0.0. 2.-1 

041. 

701 

10.0,1,2*0 

042. 

70S 

2! #0,0.2*-! 

043. 

702 

10.0,1,2,0 

044. 

703 

1.0,0,19,-i 

045. 

703 

10,0,1,19,-1 

646. 

700 

60,60,0,3.-1 

047. 

708 

10,0,0*12.-1 

040. 

700 

1.0.1.12,-t 

049. 

700 

61,360,35# 1,-1 

050. 

707 

20  .0, 0 ,0.-1 

Oil. 

700 

0.0,0, 0,0 

052. 

710 

0,300.1,0,0 

033. 

710 

61,1,25,01-600 

054. 

710 

61.1,25,0.-1 

055. 

Til 

1,0,0. 2,-1 

656. 

711 

10,0,1,2,0 

057. 

712 

21, 0,0, 2,-1 

058. 

712 

10,0,1,2*0 

659. 

713 

1.0,0. 19,-1 

860. 

713 

10, Otl, 19,-1 

061. 

710 

60,60, 0.3.-1 

062. 

719 

10,0,0.125.-1 

063. 

719 

1.0,1,125*0 

064. 

719 

10,0,0,125.-1 

065. 

719 

1,0.1,125,-1 

066. 

710 

0 • 0, 0 ,0, 0 

067. 

720 

0,300,1,0*0 

068  • 

7*0 

61,1,25.0,-1 

069. 

721 

l,0»o»2«-l 

070. 

721 

10,0,1,2,0 

071. 

722 

20, 0,1, 2.-1 

072. 

720 

61,00,20*1,-1 

073. 

722 

1 .0, 0 *2.-1 

074. 

722 

10,0,1,2*0 

075. 

723 

1,0,0*19,-! 

F ILEl  DSK  FMP.  008200 
FILE2-C0NFIGURATI0N  50KI  ORF  — > DSK.  008210 
F ILE2  DSK  — > FMP.  008220 
Flt£3-6RID  600KI  SPS  — > DSK*  008230 
FILE3  OSK  — > FMP.  008240 
FMP  FLOW  CODE  PROCESS 1NG-6Q SEC I AWAIT  3 FI008250 
FILEB-RESULTS  FILE  UCKI  FMP  — > OSK*  008260 
FILE0  DSK  -o  SPS,  008270 
SPS  POST  PROCESSING-120  5EC170*  LOAD*  008280 
FILET-OUTPUT  FILE  120K(  SPS  — > GRF,  008290 
JOB  RUN  COMPLETED.  008300 
MODEL  2-INTERARRIVAL  TIME  MEAN  OF  300  SECOO031O 
1 SEC  ABORTED  COMP*LN-WAIT  10  MIN.  008320 
$PS  RECOMPILATION  OF  SOURCE  CODE  - 1 SEC. 008330 
FILEI-LOAD  MODULE  6QK I SPS  — > DSK.  000340 
FILE1  DSK  — > FMP*  008350 
FILE2-C0NFIGURATI0N  50KI  GRF  — > OSK.  008360 
FILE2  DSK  -->  FMP.  008370 
FILE3-GRID  600KI  SPS  — > DSK.  008380 
F ILE3  DSK  — > FMP.  000390 
FMP  FLOW  CODE  PROCESS 1NG-605EC I AWAl T 3 FI008400 
FILE8-RESULTS  FILE  180KI  FMP  — > DSK.  008410 
FILES  DSK  — > SPS.  008420 
SP5  POST  PROCESS! NG-1 20  SECI70*  LOAD.  008430 
FILET-OUTPUT  FILE  120M  SPS  — > GRF.  008440 
JOB  RUN  COMPLETED.  OO04SO 
MODEL  2-INTERARRH/AL  time  MEAN  OF  300  SECOO046O 
1 SEC  ABORTED  COMPL*N  - WAIT  10  MIN.  000470 
SPS  RECOMPILATION  OF  SOURCE  CODE  - 1 SEC, 000400 
FlLEl-LOAD  MOOULE  60KI  SPS  — > DSK,  006490 
FILE1  DSK  — > FMP.  008500 
FILE2-C0NF IGURaTION  SOKI  GRF  — > OSK.  OOSSlO 
FILE2  DSK  ~>  FMP,  006520 
FILE3-GRIO  BOOK  I SPS  — > DSK.  008530 
FILE3  DSK  — > FMP.  000540 
FMP  FLOW  CODE  PROCESS IN6-60SEC1 AWAIT  3 FIOG0S5O 
FILE8-RESULTS  FILE  360KI  FMP  — > OSK,  006560 
FILES  OSK  — > SPS,  000570 
SPS  POST  PROCESSING-240  SECI7G*  LOAD.  000580 
FILET-OUTPUT  FILE  2 40Kf  SPS  — > GRF.  008590 
JOB  RUN  COMPLETED.  008600 
MODEL  2-INTERARRll/AL  TIME  MEAN  OF  300  SEC008610 
1 SEC  ABORTED  SPS  COMP»LN  - WAIT  10  MIN.  008620 
SPS  RECOMPILATION  OF  SOURCE  CODE  - 1 SEC. 000630 
FILEI-LOAD  MODULE  60K|  SPS  — > DSK.  000640 
FILE1  DSK  * FMP,  000650 
FJLE2-C0NF IGUWaTJGN  SOKI  GRF  — > DSK.  000660 
FILE?  DSK  — > FMP,  008670 
FILE3-GRID  600KI  SPS  — > DSK.  008600 
FILE3  OSK  — > FMP.  000690 
FMP  FLOW  CODE  PROCESSING-60SECI AWAIT  3 FJOO07OO 
FILE9-OEBUQ  DUMP  4M|  FMP  — > OSK.  006710 
FILE9  DSK  -->  SPS,  000720 
FILE9  ANOTHER  4M  WORDS!  FMP  — > DSK.  008730 
FILE9  OSK  — > SPS.  008740 
JOB  RUN  COMPLETED.  000750 
MODEL  2-INTEHARRIVAL  TIME  MEAN  OF  300  SEC008760 
SPS  COMPILATION  OF  SOURCE  CODE  - 1 SEC.  000770 
FILEI-LOAD  MODULE  60K|  SPS  — > DSK.  008780 
FILE1  DSK  FMP,  008790 
FILE2-CONFIGURATION  SOKI  GRF  — > SPS.  000600 
SPS  CONFJGUR'N  MANXPULA * Nl 70  SEC-30%  LOAOOO86IO 
FILE2-CONF IGURaTION  50KI  SPS  DSK.  008820 
FILE2  DSK  — > FMP,  000830 
FILES-GRID  600KI  SPS  — > DSK,  008040 


I 

> 

l 


ON 


876. 

723*10*0*1*19,-1 

877. 

720  » 60  *60, 0 , 3*-l 

878. 

728#  1 0 1 Of  0 1 6»**1 

879, 

728* 1 * 0, 1 ,6,-1 

'880* 

720*61*180*35*1.-1 

861. 

727*20*0*0*4. *1 

862. 

720  *0*0. 0.0. 0 

883. 

730*0.300*1.0.0 

884. 

730.61  * 1.25.0.-600 

885. 

730.61. 1*25.0**300 

886. 

730.61 .1.25.0.-1 

887. 

731 .1.0.0. 2.-1 

688. 

731*10.0*1*2.0 

889. 

732.21.0.0*2.-1 

690. 

732.10.0.1.2,0 

891. 

733*1.0*0.19.-1 

892. 

733.10*0.1,19.-1 

693. 

730*60.60,0.3.-1 

894. 

736*10,0.0.6.-1 

895. 

736^1*0, 1 ,6.-1 

896. 

730, 61*160,35*1*-! 

897. 

737.20 .0,0. 4.-1 

698, 

730,0*0.0,0.0 

899. 

740,0*300,1,0*0 

900. 

740, 61*1*25, 0*-6O0 

901. 

740, 63*1, 25,0*-! 

902. 

741.1,0,0,2,-1 

903. 

741*10*0*1*2,0 

904, 

742.21*0,0,2,-1 

905. 

742, 10.0, 1,2,0 

906. 

743,1*0.0,19.-1 

907. 

743,10,0*1,19,-1 

908. 

740. 60.60,0. 3*-l 

909. 

748,10,0.0,12,-1 

910, 

746*1*0*1*12, -1 

9U * 

740,61,360,35*1,-1 

912. 

747.20*0,0.8,-1 

913. 

740, 0,0.0, OFO 

914. 

750,0.300,1,0,0 

915. 

750,61.1.25,0,-600 

916. 

750,61, 1 ,25*0,-300 

917. 

750*61 ,l,25.0*-l 

918* 

751, 1.0.0, 2,-1 

919'* 

751,10,0.1,2,0 

920. 

752,21*0,0,2,-1 

92i; 

752, 10.0, 1,2,0 

922. 

753*1*0,0,19,-1 

923. 

753.10.0,1,19,-1 

924. 

750,60,60, 0,3*-l 

925. 

756,10,0*0,6,-1 

926, 

750,1,0.1,6,-1 

927. 

750, 61*180. 35,1,-i 

928. 

767,20*0,0,4,-1 

929. 

750,0,0.0,0,0 

930. 

760,0,300,1 *0,0 

931. 

760, 61*1, 25#0*-600 

932. 

760,61 , l , 25, 0*-l 

933. 

761*1,0*0,2,-1 

934. 

761*10,0*1,2,0 

935. 

762,21,0,0.2,-1 

936. 

762,10*0,1,2,0 

937. 

763, 1,0.0* 19,-1 

938. 

763*10,0,1, 19*-l 

939. 

760,60,60,0,3**1 

940. 

769,10,0,0*125,-1 

FILE3  OSH  — » FMP,  009850 
FHP  FLOW  CODE  PROCESSING-60SEC I AWAIT  3 FI008860 
FILES-RESULTS  FILE  iSOKI  FMP  OSK.  008870 
FILES  DSK  — > SPS.  006660 
SPS  POST  PROCESSING* 120  SEClTo*  LOAD.  008690 
FILE7-0UTPUT  FILE  120K|  SPS  — > GRF*  008900 
JOB  RUN  COMPLETED.  008910 
MODEL  2-INTERARRIVAL  TIME  MEAN  OF  300  SEC008920 
1 SEC  ABORTED  SPS  COMP*LN  - WAIT  10  MIN*  006930 
A0ORTEO  COMPILATION  AGAlN-WAlT  5 MIN*  008940 
SPS  RECOMPILATION  OF  SOURCE  CODE  - t SEC. 008950 
FJLEI-LOAD  MODULE  60K I SPS  — » OSK.  006960 
FILE!  OSK  — > FMP • 008970 
FlL£2-CQNF,JGUrtAT ION  50KI  GHF  — > DSK.  000980 
FILE2  DSK  FMp » 008990 
FILE3-GRI0  600KI  SPS  —6  DSK*  009000 
FILE3  DSK  — > FWP.  009010 
FMP  FLOW  CODE  PROCESS l NG-60SEC I AWAIT  3 FI009020 
FILE8-RESULTS  FILE  160KI  FMP  — > DSK.  009030 
FTLE8  OSH  — > SPS,  009040 
SPS  POST  PROCESSING-120  SEC|70»  LOAD.  ' 009050 
FILET-OUTPUT  FILE  120KI  SPS  — *>  GRF « 009060 
JOB  RUN  COMPLETED.  009070 
MODEL  2-INTERARRIVAL  TIME  MEAN  OF  300  SFC009080 
1 SEC  ABORTED  C<>HP 'UN-MAI T 10  MIN.  009090 
SPS  RECOMPILATION  OF  SOURCE  CODE  - 1 SEC, 0091 00 
FILE1-LQAO  MODULE  60K|  SPS  w->  OSK.  009110 
FILE!  DSK  — > FMP.  009120 
FILE2-C0NF1GURAU0N  50KI  GRF  — > DSK.  009130 
FILE2  DSK  -•>  FMP.  009140 
FIU3-GRID  600KI  SPS  — > DSK.  009150 
FILE3  OSK  — > FMP.  009160 
FMP  FLOW  CODE  PROCESSlNG-60SEcj  AWAI T 3 FI009170 
FILEQ-HESUlTS  FILE  360K*  FMP  — > OSK,  009180 
FILE8  DSK  -->  SPS.  009190 
SPS  POST  PROCESSING-240  SECI704  LOAD.  009200 
FILE7-0UTPUT  FILE  280KI  SPS  — > GRF.  009210 
JOB  RUN  COMPLETED.  009220 
MODEL  2-fNreRARfllVAL  TIME  MEAN  OF  300  SEC009230 
l SEC  ABORTED  CQMPL'N  - WAIT  10  MIN.  009240 
ABORTED  COMPILE  AGAIN  - WAIT  S MIN...  0092S0 
SPS  RECOMPILATION  OF  SOURCE  CODE  - 1 SEC. 009260 
FILE1-LGAD  MODULE  60KI  SPS  — > DSK,  1 009270 
FI LEI .DSK  — > FMP . 009280 
FILE2-C0HF ISOLATION  5 OKI  GkF  — > OSK.  009290 
FILE?  OSK  FMp,  009300 
FILE3-GRID  600KI  SPS  — > DSK.  009310 
FILE3  DSK  — > FMP,  009320 
FMP  FLOW  CODE  PROCESS! NG -6 OSEC I AWAIT  3 FI009330 
FILER-RESULTS  FILE  1B0KI  FMP  — > OSK,  009340 
FILE8  DSK  -->  SPS.  009350 
SPS  POST  PROCESSING- 1 20  SECI704  LOAD.  009360 
FILET-OUTPUT  FILE  1 20K * SPS  — > GRF . 009370 
JOB  RUN  COMPLETED.  009380 
MODEL  2-INTERARMIVAL  TIME  MEAN  OF  300  SFC009390 
1 5EC  ABORTED  SPS  COMP*LN  - WAIT  10  M J N,  009400 
SPS  RECOMPILATION  OF  SOURCE  CODF  - 1 SEC, 009410 
FILE1-LOAD  MODULE  60**|  SPS  — > DSK.  009420 
FILE1  DSK  FMP.  009430 
FILE2-CONF IGURATION  50KI  GMF  — > DSK.  009440 
FILE2  DSK  — > FMP,  009450 
FILE3-GRID  600KI  SPS  — > DSK.  009460 
FILE3  DSK  -->  FMP,  009470 
FMP  FLOW  CODE  PROCESS I NG-60SEC * AWA I T 3 *1009480 

FILE9-DEBUG  OUMP  4M*  FMP  — > OSK.  009490 


L l-V-l  L 


941. 

769, 

1,0,1.125*0 

942* 

76g. 

10,0,0.  I2bi«*i 

943, 

769. 

1.0.1.125 i»l 

944. 

760. 

0.0, 0.0.0 

945. 

770  » 

0.300,1,0*3 

946  , 

770. 

61)1.25*0.-1 

947. 

771. 

1 .0,0  *2.-1 

948. 

771. 

10)0,1.2.0 

949. 

772. 

20)0*1. 2,-l 

950. 

770* 

6l, 80,20.1 i-l 

951. 

772. 

1 .0,0,2.-! 

952. 

772. 

10)0,1. 2. b 

953. 

773. 

I, 0*0, 19,-1 

954, 

773# 

10,0, 1 , 19.-1 

955. 

770. 

60,60,0,3.-1 

956. 

778. 

1 0 1 0 , 0 , 6 , -1 

957. 

770. 

1.0. 1.6. -1 

956. 

770* 

61*180,35,1.-1 

959. ‘ 

777 , 

20,0.0, 4,-1 

960, 

770» 

0,0. 0*0,0 

961. 

780  * 

0.300.1.0,0 

962, 

780. 

61*1,25.0,-600 

963. 

780. 

61,1.25,0,-300 

964. 

780* 

61*1.25, 0*-l 

965. 

781. 

1.0. 0, 2,-1 

966. 

781* 

10.0.1,2,0 

967. 

782. 

21, 0,0, 2.-1 

968, 

782. 

10*0*1,2*0 

969. 

783. 

1,0.0. 19, 

970. 

783# 

10,0# 1 .19.-1 

9T1. 

780. 

60,60.0,3*^1 

972. 

788. 

10*0,0,6,71 

973, 

788 » 

1 * 0, 1 .6.-1 

974* 

780. 

61,160, 35*1, -1 

975. 

787. 

20 *0,0 .4,-1 

976, 

780 « 

0,0, 0,0.0 

977. 

790. 

0,300.1,0,0 

978, 

790. 

61,1,25,0.-600 

979. 

790. 

61,1,25,01-1 

980. 

791* 

1. 0,0*2, -1 

961. 

791  # 

10,0,1,2.0 

982. 

792. 

21.0,0, 2.-1 

983. 

792. 

10,0.1*2,0 

984. 

793. 

1,0, 0,19, -1 

985. 

793. 

10,0*1,19,-1 

986. 

790. 

60,60,0,3,71 

987. 

798* 

10,0,0, 6,-1 

968. 

798 » 

1,0,1, 6.-1 

989. 

790. 

61,180.35.1,-1 

990* 

797. 

20,0,0, 4, -1 

991. 

790 1 

0,0.0, 0,0 

992. 

BOO. 

0,300,1,0*0 

993. 

800  » 

61,1.25.0,-600 

994. 

BOO » 

61.1*25.0,-1 

995. 

801. 

1 ,0 .0.2, -1 

996. 

adi» 

10.0.1,2.0 

997. 

802* 

21.0*0.2, -1 

998. 

602. 

10.0.1,2,0 

999. 

603# 

1.0,0. 19,-1 

1000, 

603# 

10,0,1.19.-! 

1001. 

800* 

60,60,0,3.-1 

1002. 

008, 

10, 0 , 0 , 6, -1 

1003. 

808, 

1 ,0, 1 ,6,-1 

1004. 

BOO, 

61,160,35,1,-1 

1005. 

807, 

20, 0, 0 ,4,-1 

1006. 

SOOi 

0.0, 0,0,0 

FILE4)  DSK  — > SPS.  009500 
FILE*?  ANOTHER  4M  WOftDSl  FMP  — > OSK , 009510 
FILE9  OSK  — > SPS.  009520 
JOB  RUN  COMPLETED*  009530 
MODEL  2-INTERARRIVAL  TIME  MEAN  OF  300  SEC009540 
SPS  COMPILATION  OF  SOURCE  CODE  - 1 SbC  009*550 
FILE  1 -LOAD  MODULE  6QK I SPS  — > OSK.  009560 
FILE1  DSK  — > fMP,  009570 
FILE2-CONF IGUttATION  50KI  GRF  — > SPS,  009500 
SPS  CONFIGURE  MAN  IPULA  ■ N I 7 0 SEC-3A*  LDAH009590 
FILE2-CONFXGURATION  50KI  SPS  — > DSK,  009600 
FILE2  OSK  — > FMP,  009610 
FILE3-GRID  600K t SPS  — > DSK,  009620 
FILE3  DSK  — > FMP,  009630 
FMP  FLOW  CODE  PROCESS JKIG-60SECIAWAI T 3 F10O964O 
FILEB-RESULT5  FILE  160KI  FMP  — > OSK*  009650 
FILES  DSK  -->  SPS,  009660 
SPS  POST  PROCESS  ING-123  SECITOSb  LOAD.  009670 
FILE7-0UTPUT  FILE  120KJ  SPS  — > GRF « 009600 
JOB  RUN  COMPLETED,  009690 
MODEL  2-INTERARRIVAL  TIME  MEAN  OF  300  SEC009700 
1 SEC  ABORTED  SPS  COMPILN  - WAIT  10  MJN*  009710 
ABORTED  COMPILATION  AGAIN-WAIT  5 M|N,  009720 
SPS  RECOMPILATION  OF  SOURCE  CODE  - 1 SfT, 009730 
FILE  i-LOAD  MODULE  60KI  SPS  — > OSK,  009740 
FILE  1 OSK  — > FHP.  009750 
FILE2-C0NF 1 DURATION  50KI  GRF  — > OSK.  009760 
FILES  OSK  — > FHP,  009770 
FILE3-0RID  600KI  SPS  — > DSK,  009760 
FILE3  OSK  — > FMP,  • 009790 
FMP  FLOW  CODE  PROCESSING-60SECIAWAIT  3 FIOO90QO 
FILES-RESULTS  FILE  I60KI  FMP  — > OSK.  009010 
FILES  DSK  — > SPS,  009020 
SPS  POST  PROCESSING-120  SEClTOfc  LOAD.  009B30 
FILE7-0UTPUT  FILE  120KI  SPS  — > GRF , 009B4Q 
JOB  RUN  COMPLETED.  0G9B50 
MODEL  2-lNTERARRlVAL  TIME  MEAN  OF  300  SEC0G9860 
1 SEC  ABORTED  COMP*LN-wAIT  10  MIN*  009B70 
SPS  RECOMPILATION  OF  SOURCE  CODE  - 1 SEC. 009880 
FILE1 -LOAD  MODULE  60KI  SPS  -->  DSK.  009B90 
FILE1  OSK  — > FMP,  009900 
F ILE2-CONF IGUflAT ION  50KI  GRF  ->  DSK.  009910 
FILE2  OSK  — > FMP.  009920 
FILES-GRID  600k.  SPS  — > DSK.  009930 
FILES  DSK  FMP,  009940 
FMP  FLOW  CODE  PROCESSING- 60 SEC I AWAIT  3 FI009950 
FILE8-RESULTS  FILE  1B0M  FMP  — > OSK,  009960 
FILES  OSK  — > SPS,  009970 
SPS  POST  PROCESSING-  120  SECI70*  LOAD.  009960 
FILE7-0UTPUT  FILE  120KI  SPS  —>  OHF,  009990 
JOB  RUN  COMPLETED,  010000 
MOOEL  2-INTEHARRIVAL  TIME  MEAN  OF  300  SEC010010 
X SEC  ABORTED  COMPL'N  - WAIT  10  MIN.  010020 
SPS  RECOMPILATION  OF  SOURCE  CODF  - \ SEC. 010030 
FILEl-LOAD  MODULE  60KI  SP5  — > DSK.  010040 
FILEl  OSK  — > FMP,  nJ005o 
F ILE2-CONF IGURAtlON  50KI  GRF  — > DSK.  010060 
FILE2  OSK  — > FMP.  010070 
FILE3-GRID  600KI  SPS  — > OSK,  010060 
FILE3  OSK  — > FMP,  010090 
FMP  FLOW  CODE  PROCESS ZN6-60SEC I AWAIT  3 FI010100 
FILES-RESULTS  FILE  180K1  FMP  — > DSK.  010110 
FILE8  OSK  — > SPS,  010120 
SPS  POST  PROCESSING-120  SEC.70*  LOAD*  010130 
FILET-OUTPUT  FILE  120K»  SPS  — > GRF.  010140 
JOB  RUN  COMPLETED*  010150 


1007# 

810*0*300*1*0*0 

iooa. 

a 1 0 . 6 1 * 1 *25*0,-600 

1009. 

810*61,1*25*0*-! 

1010# 

8l  1 > 1 1 0#  0«2t-l 

10U. 

811*10*0*1*2*0 

1012# 

8l2*21*0*0*2*~-t 

1013# 

812*10*0*1*2*0 

1014# 

813* l »P*  0 * 19»-1 

1015. 

8l3*10,0* 1*191-1 

1016'# 

810*60*60*0*3,-1 

1017. 

819. 10*0, 0*125, 

1016. 

8l9* 1 » 0 • 1 * 125*  0 

1019# 

819*10,0,0*1259-1 

1020* 

819*1*0,1# 1259-1 

1021* 

alo, o »o , o, 0,0 

1022. 

82090*30091.090 

1023# 

820*61 » 1 *25, 0*-l 

1024# 

B21 * 1 1 0*  0 , 2 *-l 

1025# 

821*10*0*1,2*0 

1026# 

822*20*0*1,21-1 

1027* 

820*61*80, 20*1*-1 

1026# 

82291*0*0,2,-1 

1029* 

822*10*0,1*2,0 

1030* 

823*1*0*0*19*-! 

1031* 

823',  10,0,  1, 19,-i 

, 

1032* 

820,60,60,0,3,-1 

1033* 

828*10,0,0*6,-1 

1034# 

628* 1 ,0, 1 ,6,-1 

1035# 

820*61, 180*35*1*-! 

1036* 

827920,0*0*4,-1 

v 

1037. 

620,0*0,0,0,0 

1 

103B* 

830*0*300,1,0*0 

> 

1039. 

630*61*1,25,0,-600 

1 

1040* 

830 * 6l* 1,25,0,-300 

1041* 

830,61* 1,25,0*-! 

do 

1042* 

631*1,0*0. 2*-l 

1043, 

831*10*0,1,2,0 

1044# 

632*21,0,0,2,-1 

1045. 

832,10*0,1,2,0 

1046* 

833*l*0t0*19,-l 

1047. 

833, 10, 0,1, 19,-i 

1048* 

830*60,60,0,3*-! 

1049* 

638*10,0*0*12,-1 

1050* 

638*1*0*1*12,-1 

1051. 

630* 61,360*35*1,-1 

1052. 

837*20,0*0,8,-1 

1053. 

830*0*0  * 0#  0, 0 

1054. 

650*0,1200*2*0,0 

1055. 

851,1,0,0,4,-1 

1056# 

651,10,0,1*4,0 

1057. 

852*20*0, 1 ,4,-1 

1056* 

650,61,360*35*2,-1 

1059# 

853*1*0*0*46,-1 

1060* 

653,10*0,1*46*0 

• 1061* 

65391*0*0*46,-1 

1062* 

853*10*0*1*46,-1 

1063. 

650*60*60*0*29-1 

1064* 

858* 10, 0*0, 3,-1 

1065* 

850,1,0*1*3,-1 

1066* 

850*61 *300,30* 1,-1 

1067* 

857*20*0, 0*2*-l 

1060. 

850*0*0,0,0,0 

1069* 

660,0*1200*1,0*0 

MODEL  2-INTERARRIVAL  TIME  mean  OF  300  SECO 10160 
l SEC  ABORTED  SPS  COMP*LN  - WAIT  10  M!N,  010170 
SPS  RECOMPILATION  OF  SOURCE  CODE  - 1 SEC.QlOlBO 


FILEI-LOAD  MODULE  60K|  SPS  — > DSK.  010190 
FILE!  OSK  — > FMP.  010200 
FILES-CONFIGURATION  5QKI  GHF  — > QSK.  010210 
FILE2  OSK  — > FMP.  010220 
FILE3-0RID  600KI  SPS  — > OSK,  010230 
FILES  OSK  FMP#  010240 
FMP  FLOW  CODE  PROCESS I NG-60SEC I AWAIT  3 FI010250 
FILE9-DEBUG  DUMP  AMI  FMP  — > OSK*  010260 
FILE9  OSK  — > SPS.  010270 
FILE9  ANOTHER  4M  WORDSl  FMP  ~>  OSK*  010280 
FILE9  OSK  SPS*  010290 
JOB  RUN  COMPLETED#  010300 
MODEL  2-INTERARRIVAL  TIME  MEAN  OF  300  SEC010310 
SPS  COMPILATION  OF  SOURCE  CODE  - 1 SEC  010320 
FILEI-LOAD  MODULE  60KI  SPS  — > DSK,  010330 
FI LEI  DSK  — > FMP.  010340 
FILES-CONFIGURATION  50K I GRF  — > SPS,  O103S0 
SPS  CONFIGUft»N  MANIPULA 1 Nl TO  SEC-30«  LOAD010360 
FILE2-C0NF1GURATI0N  50KI  SPS  — > OSK,  010370 
FILE2  DSK  — > FMP*  010380 
FILE3-GRID  600KI  SPS  -->  DSK*  010390 
FILE3  DSK  — > FMP#  010400 
FMP  FLOW  CODE  PROCESS I NG-6  0SEC I AWAIT  3 FI010410 
FILES-RESULTS  FILE  180KI  FMP  — > DSK*  010420 
FILES  DSK  — > SPS.  010430 
SPS  POST  PROCESSING-120  SECI70*  LOAD,  010440 
FILE7-GUTPUT  FILE  120K|  SPS  — > GRF.  010450 
JOB  RUN*  COMPLETED.  010460 
MODEL  2-JNTERARRJ VaL  TIME  MEAN  OF  300  SEC010470 
1 SEC  ABORTED  SPS  COMp*LN  - WAIT  10  MJN.  010400 
ABORTED  COMPILATION  AGAIN-WAlT  5 MJN,  010490 
SPS  RECOMPILATION  OF  SOURCE  CODE  - 1 SEC. 010500 
FILEI-LOAD  MOOULE  60KI  SPS  — > DSK.  OlOSiO 
FILE1  DSK  — > FMP,  010520 
FILE2-CONF I DURATION  50KI  GRF  — > DSK.  010530 
FILE2  DSK  — > FMP.  010540 
FILES-GRID  600KI  SPS  — > DSK*  010550 
FILE3  OSK  — > FMP.  010560 
FMP  FLOW  COOE  PROCESS 2 NG-60SECI AWAIT  3 FI010570 
FILEB-RESULTS  FILE  360k I FMP  — > OSK.  010580 
FILE8  DSK  — > SPS.  010590 
SPS  POST  PROCESSING-240  SECI70*  LOAD.  010600 
FILE7-OUTPUT  FILE  240KI  SPS  ~ .>  GRF.  010610 
JOS  RUN  COMPLETED,  010620 
MODEL  3-INTERARR1VAL  TIME  MEAN  OF  20  MIN.010630 
fiLei-load  module  12oki  sps  — > osk.  oio64o 
FILEl  DSK  — > FMP.  010650 
FILE2-PATCH  AND  GRID  SETUP  1 OOKI GHF— >SPS0 10660 
SPS  PATCH  AND  GRID  PROCESSING-24 OS  * 70%  010670 
FILE3-RESULTING  TRANSFORMED  FILE  SPS— >OSOlQ6ao 
FILE3  OSK  — > FMP.  010690 
REST  OF  FILE3-  3M  TOTAL  I SPS— >DSK,  010700 
REST  OF  FILES  DSK  FMP.  010710 
FMP  FLOW  CODE  PROCESSING  - 60  SEC.  010720 
FILEfl-RESULTS  FILE  90KI  FMP  — > DSK,  010730 
FILES  DSK  — > SPS.  010740 
SPS  POST-PROcESSING! 200  5EC#60*LOAD.  010750 
FILET-DISPLAY  FILE  50K|  SPS  — > GRF . 010760 
JOB  RUN  COMPLETE.  010770 


MODEL  3-INTERARRIVAL  TIME  MEAN  OF  20  MIN, 010780 


I 

> 


VO 


1070# 

061* 

1*0*0»4*-1 

1071* 

661* 

10*0*1*4*0 

1072. 

8&2> 

1*0»0*4*-1 

1073. 

862* 

'10*  0*  l *4*-l 

1074# 

860* 

60  * 1 0*  0 *2  *-l 

1075. 

B6o# 

60,60*0 *0*-l 

1076. 

869* 

I0*0*0#160i-1 

1077. 

869* 

li Gi 1 1 160  *0 

1078. 

86B. 

10,0*0*3* -1 

1079. 

868# 

1 » 0 1'l  *3»-l 

1080. 

660* 

61*300*30*1*- 

1 

1081. 

867. 

20*0.0. 2,-1 

1082. 

86  b i 

0*0* 0*0*0 

1083. 

870* 

0*1200*1^0*0 

1084, 

871. 

1*0*0. 4.-1  * 

1085. 

871* 

10*0*1*4*0 

1086. 

672* 

20*0* 1 *4* -l 

1087. 

870. 

61 » 360*35*2*- 

1 

1080, 

873* 

1 * 0*  0*92*-l 

1089. 

073. 

10*0*l»92i-l 

1690. 

670* 

60 ,60 i 0 *2t  — 1 

1091. 

878* 

10*0*0*3# -1 

1092. 

078* 

i*o»i*3*,-i 

1093* 

87  0* 

61 1 300*  3Q  * l*- 

l 

1094# 

8)7* 

20*  0*  0 *2* -1 

1095. 

670* 

0*0*0, 0*0 

1096. 

660* 

0*1200*1*0*0 

1097. 

801* 

1 *0*  0*  4*-l 

1098. 

801* 

10*0*1*4*0 

1099. 

662* 

1*0*0*4»-1 

1100. 

862* 

10*0*1*  4f*-l 

1101. 

860* 

60*10*0*2*-! 

1102. 

660* 

60  *60  * 0*  0*-l 

1103. 

889* 

10*0  *0*220 • - 1 

1104, 

aaa* 

1 0, 0*  0*3»-l 

1105. 

866* 

1 1 0 1 1 *3.-1 

1106. 

000* 

61 *300*30*1 *- 

l 

1107, 

007* 

20#  0*0*2, -1 

1100, 

800* 

0 # 0 * 0 * 0 , 0 

1109. 

090* 

0*1200*1*0*0 

1110. 

090* 

61 *3*3S,0*-1 

1111. 

891* 

W0i0*4«-1 

1112, 

891* 

10*0*1*4*0 

1113. 

892, 

l*0*0*4i-i 

1114. 

092* 

10*0*1*4#-! 

1115. 

090* 

60*60*0*2,-1 

1116. 

099* 

10*0*0*160*0 

1117. 

890* 

10*0*0*3r-l 

1118. 

898* 

1 * Ot 1 *3# -1 

1119. 

890* 

61*300*303 1*- 

1 

1120. 

B97* 

20  * 0 > 0 *2  #-l 

1121. 

890* 

0 • 0 1 0*  0 » 0 

1122. 

900* 

0*1200*1*0*0 

1123. 

901* 

1 *0*0*4*-!' 

1124. 

901* 

10*0*1*4*0 

. 

1125, 

902* 

20*  0*  V *4>-l 

1126. 

900* 

61*360*35*2*- 

1 

1127. 

903. 

1*0*0*92, -1 

1126. 

903* 

10*0*1 *92*-l 

1129. 

900* 

60*60  * 0 *2* -1 

1130. 

908, 

10*0,0*3#-1 

1131. 

908* 

1 * 0 1 1 * 3 * -1 

1132. 

900* 

61*300*30*1*- 

1 

FILEI-LOAD  MODULE  J20K|  SPS  — > DSK.  0! 
FILE1  DSK  — > FMP,  0] 
F1LE2-PATCH  AND  GRID  SETUP  1 00K ISPS— >DSKO! 
FILE2  D5K  — > FMP , 01 
FMP  PATCH  AND  GRID  PROCESSING  - 10  SEC.  Cl 
FMP  FLOW  CODE  PROCESSING  - 60  SEC.  01 
FILE9-RAW  RESULTS  FILE  SMI  FHP  — >DSK.  01 
FILE9  OSK  — > SPS.  01 
FILE8-RESULTS  FILE  90K|  FMP  — > OSK*  01 
FILES  DSK  — > SPS.  . 01 
SPS  POST*PROCESSINOI200  S£C»60«LOAD.  01 
FTLE7-DISPLAY  FILE  50K|  SPS  — > GRF.  OJ 
J08  RUN  COMPLETE.  01 
dOOEL  3-INTERARRIVAL  TIME  MEAN  OF  20  MIN.0 
FILEi-LOAD  MODULE  120KI  SPS  -->  DSK,  0 
FREl  DSK  — ■>  FMP.  0 
FILE2-PATCH  AND  GRID  SETUP  100KIGRF— >SPS0 
SPS  PATCH  AND  GRID  PROCESS1nGI240S.7O%  01 
F1LE3-PATCH  AND  GRID  TRANSFORMED  I 3M.T0  DO 
FILE3  DSK  — > FMP.  0 
FMP  FLOW  CODE  PROCESSING  - 60  SEC,  0 
FILER-RESULTS  FILE  90KI  FMP  — > DSK,  0 
FILER  DSK  — > SPS.  0 
SPS  POST “PROCESSING! £00  SEC>60%LOAD.  0 
FILE7-DISPLAY  FILE  SOKI  SPS  — > GRF • 0 
JOB  RUN  COMPLETE,  0 
MODEL  3-IWTERARRIVAL  TIME  MEAN  OF  20  MlN.O 
FILE1-L0A0  MODULE  120KI  SPS  — > OSK,  0 
FILE  I OSK  — > FMP.  0 
FILE2-PATCH  AND  GRID  lOOKI  $PS  DSK,  0 
FILE2  DSK  •->  FMP.  0 
FHP  PATCH  AND  GRID  PROCESSING-  10  SEC.  0 
FMP  FLOW  CODE  PROCESSING  - 60  SEC,  0 
FILE9-RESTART  FILE  7M*  FMP  — > DSK,  0 
FILES-RESULTS  FILE  90K|  FMP  — > DSK.  0 
FILE8  OSK  — > SPS.  0 
SPS  POST-PROCESSING  1 200  SEC*60%LOAO.  0 
FILE7-DISPLAY  FILE  50KI  SPS  — > GRF.  0 
JOB  RUN  COMPLETE,  0 
MODEL  3- I NT Eft ARRIVAL  T I ME  MEAN  OF  20  MlN.O 
SPS  COMPILATION  OF  SOURCE  CODE-2  SEC.  0 
FILEI-LOAD  MODULE  120KI  SPS  — > OSK.  0 
FILE1  DSK  — > FMP,  0 
FILE2-PATCH  AND  GRID  SETUP  1 00K  I SPS  — >OSK0 
FILE2  DSK  — > FMP,  0 
FMP  FLOW  CODE  PROCESSING  - 60  SEC.  0 
FILE9-RAW  RESULTS  SMI  FMP  OSK,  0 
FILEG-RESULTS  FILE  90K*  FMP  — > OSK.  0 
FILEft  DSK  — > SPS.  0 
SPS  POST -PROCESS  INGI  200  SEC  * 60SSLOAO,  0 
F1LE7-DISPLAY  FILE  50K|  SPS  •*>  GRF.  0 
JOB  RUN  COMPLETE.  0 
MOnEL  3-lNTERAftRlVAL  TIME  MEAN  OF  20  MlN,0 
FILEI-LOAD  MODULE  120K|  SPS  -->  DSK.  0 
FILE!  DSK  — > FMP.  0 
FILE2-PATCH  AND  GRID  SETUP  \ OOK  IGHF—  wSPSD 
SPS  PATCH  AND  GRID  PROCESSING | 240S, 70%  0 
FILE3-PATCH  AND  GRID  TRANSFORMED*  3M.TO  DO 
FILE3  OSK  — > FMP.  0 
FMP  FLOW  CODE  PROCESSING  - 60  SFC.  0 
FILEfl-HESULTS  FILE  9oM  FMP  — > DSK,  0 
FILE8  DSK  — > SPS,  0 
SPS  POST— PROCESS INGI 200  SEC*60%LOAD.  0 
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1133. 

907 

20, 0 ♦ 0*  2* - 1 

1134. 

900 

OlOtOiO'O 

1135. 

920 

0 » 90  0 i 2. 1 » 0 

1136. 

921 

1 *0,0*4,-! 

1137. 

921 

10, Oi  1,4*0 

1138. 

922 

20,0, 1 1 4 # - 1 

H39. 

920 

61,360*35*2,-1 

1140. 

923 

1*0,0, 92.-1 

1141. 

923 

10,0* 1,92*-1 

1142. 

920 

60*600,0*2,-1 

1143. 

928 

10,0*  0*8*-l 

1144. 

928 

l*0il*6,-l 

1145, 

920 

61 ,360*30*  1 ,-l 

1146. 

920 

6 1 * 360  > 30  * 0 * - 1 

1147. 

927 

20,0*0*3,”! 

lUa. 

920 

0*0, 0,0,0 

1149, 

930 

0*900,1,0,0 

1150, 

931 

1 * 0 , 0 , 4»- 1 

1151, 

931 

10,0,1,4,1) 

1 152. 

932 

l, 0*0*4,-! 

1153. 

932 

10,0,1,4*-! 

1154. 

930 

60,10,0,2,-1 

1155. 

930 

60,600,0,0,-1 

1156. 

939 

10*0.0,310,-1 

1157. 

938 

10*0*0, 8,-1 

1156, 

936 

1*0,1 « 8,-1 

1159. 

930 

61,360*30*1,-1 

1160. 

930 

61,360,30,0,-1 

1161, 

937 

20,0,0,3,-! 

1162, 

930 

0*  0 * 0 , 0 • 0 

1163. 

940 

0,900,1,0,0 

1164. 

94Q 

61,3,35*0,-1 

1165. 

941 

1,0,0, 4,-1 

1166. 

941 

10,0,1,4*0 

1167. 

942 

1 * 0 * 0 ,4 1 -1 

1168, 

942 

10*0,1,4,-! 

1169. 

940 

60 , 600  * 0 ,2, -1 

1170. 

949 

10,0,0*160,0 

1171, 

948 

10,0,0*8,-! 

1172. 

940 

1,0,1, 0,-1 

1173. 

940 

61 ,360,30  *1  ,-1 

1174. 

940 

61,360*30*0,-1 

1175. 

947 

20,0,0, 3,-1 

1176. 

940 

0 *0 » 0, 0 » 0 

1177. 

950 

0,900,1,0,0 

1178. 

951 

1,0,0, 4,-1 

1179, 

951 

10*0,1*4,0 

1180. 

952 

20, 0,1, 4,-1 

1181, 

950 

61 , 360,35*2,-1 

1182. 

953 

1 *0,0,46,-! 

UB3. 

953 

10,0,1,46*0 

1164. 

953 

1 * 0 1 0 ,46,-1 

1165, 

953 

I0*0,i,46*-1 

1186. 

950 

60.600, 0 , 2,-1 

1187. 

958 

10,0, 0,6, -i 

1186. 

958 

1,0,1, 8,-1 

1189. 

950 

61,360,30,1,-1 

1190, 

9S0 

61 , 360,30,0 ,-l 

1191, 

957 

20, 0,0*3, -1 

1192. 

950 

0 * 0 ,0, 0 1 0 

1193. 

960 

0*900,1,0*0 

1194. 

961 

1*0*0. 4,-1 

1195. 

96J 

10,0,1,4,0 

01J420 
011430 
440 
0U4S0 
011460 


F1LE7-OISPLAY  FILE  50Ka  SPS  — > GRF. 

JOB  RUN  COMPLETE* 

MODEL  4-IN1EHARR1VAL  TIME  MEAN  OF  15  MIN  oj 
FILE1-L0A0  MODULE  120KI  SPS  — > DSK • 

FILE1  DSK  — > FMP* 

FILE2-PATCH  AND  GRID  SETUP  1 00K 1 GRF— oSPSO 1 1470 
SPS  PATCH  AND  GRID  PROCESS  I NG I 240S  * 70%  0U46Q 

F1LE3-PATCH  AND  GRID  TRANSFORMED!  3M.Tn  0011490 
FILE3  D$R  — > F MP , 

FMP  FLOW  CODE  PROCESSING  - 600  SEC. 
FlLfca-RESULTS  FILE  22SKI  FMP  — > OSK, 

FILES  DSK  — > SPS. 

SPS  POST-PROCESSINGI240  SEC»604LOAQ. 


011500 
01  1510 
0 1 1 520 
0U530 
011540 
011550 
0JJ560 
011570 


FILE7-DISPLAY  FILE  75K  | SPS  — > GHF. 

JOB  MtlN  COMPLETE, 

MODEL  4-INTERARRIVAL  TIME  MEAN  OF  15  MlN  0 i }SS0 
FILE1-LOAO  MODULE  120KI  SPS  — > OSK, 

FILE1  OSK  ~>  FMP, 

FILE2-PATCH  AND  GRID  lOOKI  SPS  — > DSK. 

F1LE2  DSK  — > FMP, 

FMP  PATCH  AND  GRID  PROCESSING*  10  SEC. 

FMP  FLOW  CODE  PROCESSING  - 600  SEC. 
FRE9-HESTART  FILE  10M|  FMP  ~ > DSK. 
FILES-RESULTS  FILE  225KI  FMP  OSK, 

F 1 L E,8  DSK  — > SPS. 

SPS  POST-PROCESSING! 240  S£C,60*LOAd. 

)i  m *i  ii  it 

FILE7-DISPLAY  FILE  75KI  SPS  — > GRF , 

JOR  RUN  COMPLETE. 


011590 

011600 

011610 

011620 

011630 

011640 

011650 

011660 

0H670 

011660 

011690 

011700 

011710 


MODEL  4-INTERARRIVAL  TIME  MEAN  OF  15  MIN  OH720 
SPS  COMPILATION  OF  SOURCE  COOE-2  SEC.  011730 
FILE1-LOAD  MODULE  120K*  SPS  — > DSK,  011740 
FILEI  DSK  FMP.  011750 
FILE2-PATCH  AND  GRID  SETUP  100KI SPS-->DSK01 1760 

011770 
011760 
011790 
011600 
011010 
011620 
01  1630 
01)840 
011650 


F1LE2  DSK  — > FMP. 

FMP  FLOW  CODE  PROCESSING  * 600  SEC, 

FILE9-RAW  RESULTS  5MI  FMP  — > DSK . 

FILES-RESULTS  FILE  225KI  FMp  — > OSK. 

FILE6  DSK  ~>  SPS, 

SPS  POST-PROCESSING! 240  SEC,60%LOAD. 
ii  ii  ii  ii  n 

FILE7-0ISPLAY  FILE  75K|  SPS  — > GRF, 

JOB  RUN  COMPLETE, 

MODEL  4-INTERARRIVAL  TIME  MEAN  OF  15  MIN  0 1 3360 


FILE1-LOAO  MODULE  120K|  SPS  — > OSK,  011670 

FILEI  DSK  ~>  FMP.  011680 

FILE2-PATCH  AND  GRID  SETUP  1 00K  lORF— >SPS0H89G 
SPS  PATCH  AND  GRID  PROCESSING-240S. 70*  0H9O0 

FILE 3- RESULTING  TRANSFORMED  FILE  SPS— >OS01 191 0 
FILES  OSK  — > FMP,  011920 

REST  OF  FILE3-  3M  TOTAL!  SPS-**>DSK , 011930 

REST  OF  FILE3  DSK  — > FMP,  01J940 

FMP  FLOW  CODE  PROCESSING  * 600  SEC,  01 1950 

FlLEfl-RESULTS  FILE  22SKI  FMP  — > DSK.  011960 
FILES  OSK  — > SPS,  011970 

SPS  POST-PROCESSING  1240  SEC.60*LOAD.  01J980 

ii  u n ii  ii  011990 

FILET-DISPLAY  FILE  75KI  SPS  — > GRF.  012000 

JOB  HUN  COMPLETE,  012010 

MODEL  4-INTERARRIVAL  TIME  MEAN  OF  15  MIN  012020 


FILE1-LOAD  MODULE  120KI  SPS 
FILE!  OSK  -->  FMP, 


->  OSK, 


012030 

012040 


1 1-A-21 


1196* 

962 

1 * 0 • 0 f 4 1 -1 

1197. 

962 

10 V0.lt 4.-1 

1196, 

960 

60, 1 0 ,0 » 2, “1 

1 199, 

960 

60. 600.0.0.- 

1200. 

969 

10.0. 0.160.- 

1201, 

969 

1.0.1.160*0 

1202. 

968 

10. 0.0. 8.-1 

1203. 

966 

i,o,i,a,-i 

1204. 

960 

61.360.30.1. 

2205. 

960 

61.360.30.0* 

1206* 

967 

20  »|0',  0 .3.-1 

1207. 

960 

0 , 0 » 0 » 0 »0 

1206. 

970 

0 . 900. 1.0.0 

1209* 

971 

1.0.0. 4.-1 

1210. 

971 

10.0. 1.4,0 

1211. 

972 

1.0.0.4.-1 

1212. 

972 

10. 0. 1*4, -1 

1213. 

970 

60.10.0.2,-1 

1214. 

970 

60,600.0,0,- 

1215* 

979 

10.0,0,310,- 

1216. 

978 

lo.o.o.a.-i 

1217. 

978 

1.0.1, 6,-1 

1216, 

970 

61.360.30.1, 

1219. 

970 

61,360.30.0. 

1220. 

977 

20,0.0, 3.-1 

1221. 

970 

0 , 0 » 0 • 0 » 0 

1222, 

980 

0,900,1,0.0 

1223* 

981 

1.0,0, 4,-1 

1224. 

901 

1 10,0'S  1 1 At  0 

1225. 

902 

>20,5.1 ,4,-1 

1226. 

980 

61.360.35,2, 

1227. 

983 

1 1 ,0,0, 46,-1 

1228. 

983 

1 10. 0,1*  46. 0 

1229. 

983 

>1, O’, 0, 46,-1 

1230. 

983 

>10, ‘Of  1 .46.-1 

123U 

980 

>60,600,0*2.- 

1232. 

986 

>10, b,o, a, -i 

1233. 

963 

>1,0,1, 0.-1 

1234. 

980 

>61  * 360 ,30.1, 

1235. 

980 

>61 ,360 ,30.0. 

1236. 

907 

>20, 0,0, 3,-1 

1237. 

900 

iO.O^O. 0.0 

1236. 

990 

>0.900,1,0*0 

1239, 

991 

> 1,0'tOf  4,-1 

1240. 

991 

>10,0,1,4,0 

1241. 

992 

>1,0,0, 4.-1 

1242, 

992 

i 10, 0.1.4, -1 

1243. 

990 

>60,10,0,2.-1 

1244. 

990 

>60,600,0,0,- 

1245. 

998 

>10,0.0, 8,-1 

1246. 

998 

> 1 , 0 , 1 ,8.-1 

1247. 

990 

>61 ,360,30  * 1 , 

1246. 

99  0 

>61 ,360.30  *9* 

1249. 

997 

>20.0,0.3, -l 

1250. 

990 

>0,0, 0,0,0 

1251. 

0,0 

> 0 , 0 , 0 , 0 

1 

1 


-1 

-1 


l 

l 


*1 

*•1 


-1 


1 


-i 

-l 


1 


-i 

-i 


MLE2-PATCH  AND  OHIO  SETUP  1 OOK t SPS— >DSKO  12050 
FILE2  DSK  — > FMP • 012060 

FMP  PATCH  AND  OPTO  PROCESSING  - 10  SEC*  012070 

FMP  PLOW  CODE  PROCESSING  - 600  SEC.  M2O0O 

FILE9-RAW  RESULTS  FILE  SHI  FMP  — *>DSK,  012090 

FILE9  DSK  — > SPS,  012100 

FILE0-RESULTS  FILE  225KI  FMP  — > DSK.  012110 
FILES  DSK  — > SPS.  012120 

SPS  POSTPROCESSING  124  0 SEC.60*LOAO,  012130 
it  t*  •*  it  » 0121  AO 

FILE7-0ISPLAY  FILE  75K|  SPS  GRF.  012150 
J08  RUN  COMPLETE.  ' 012160 

MODEL  4-INTERARRIVAL  TIME  MEAN  OF  IS  MIN  012170 
FILETLOAD  MODULE  120K|  SPS  — > DSK,  012180 
FILE1  DSK  — > FMP*  012190 

FILE2-PATCH  AND  GRID  100KI  SPS  -->  DSK.  012200 
FILE2  DSK  — > FMP*  012210 

FMP  PATCH  AND  GRID  PROCESSING-  10  SEC.  012220 
FMP  FLO*  CODE  PROCESSING  - 600  SEC.  012230 

F ILE9-RESTART  FILE  lO«l  FMP  — > OSK,  012240 

FILE0-RESUITS  FILE  225KI  FMP  — > OSK*  012250 
FILE0  OSK  — > SPS.  012260 

SPS  POST •PRO CESS  I NO I 240  SEC*60»LOAD,  012270 

it  m ti  it  i*  012280 

FILE7-DISPLAY  FILE  75K»  SPS  — > GRF,  012290 
JOB  RUN  COMPLETE.  012300 

MODEL  4-INTERARRIVAL  TIME  MEAN  OF  15  MIN  012310 
FILE1-LOAO  MODULE  12QK|  SPS  — > DSK.  012320 

FILE  1 DSK  — > FMP,  012330 

FILE2-PATCH  AND  GRID  SETUP  1 OOK I GRF-->SP$0 12340 
SPS  PATCH  AND  GRID  PROCESSlNG-2405,70%*  012350 
FILE3-RESULTINQ  TRANSFORMED  FILE  SPS— >DS0 12360 
FILE3  DSK  — > FMP.  012370 

REST  OF  FILES-  3M  TOTAL  I SPS— >DSK,  012380 

REST  OF  FILE3  DSK  — > FMP,  012390 

FMP  FLOW  CODE  PROCESSING  - 600  SEC.  012400 

FILE6-RESULTS  FILE  225KI  FMP  — > DSK.  012410 
FILES  DSK  — > SPS.  012420 

SPS  POST-PROCESSING  124  0 SEC,60*LOAO.  012430 

it  h it  h *l  012440 

FILET-DISPLAY  FILE  75K|  SPS  — > ORF.  012450 
JOB  RUN  COMPLETE*  012460 

MODEL  4-INTERARRIVaL  TIME  MEAN  OF  13  HIN  012470 
FILE1-LOAO  MODULE  120K|  SPS  — > DSK,  012480 
FILE1  DSK  — > FMP.  012490 

FILE2-PATCH  AND  GRID  100KI  SPS  — > DSK*  012500 
FILES  DSK  — > FMP.  012510 

FMP  PATCH  AND  GRID  PROCESSING-  10  SEC,  012520 
FMP  FLOW  CODE  PROCESSING  - 600  SEC.  012530 

FlLEfi-RESULTS  FILE  225K1  FMP  — > DSK,  .012540 
FILES  OSK  — > SPS.  012550 

SPS  POST -PRO CESS INGI 240  SEC.60SSLOAO.  012560 

» «•  » n n 012570 

FILET-DISPLAY  FILE  75K | SPS  — > GRF.  012560 

JOB  RUN  COMPLETE.  012590 

END  SIMULATION.  012600 


22-V-l  l 


ARRIVAL  TIME  FOH  INDIVIDUAL  JOBS 


JOG  NO* 


ASSIGNED 
SPS  DEVICE 


APHIVAL  TIME  AT 
SPS  EXECUTE  QUEUE  (SEC) 


92 

LEAD 

0 

1 

BACKUP 

157 

2 

BACKUP 

251 

3 

BACKUP 

354 

4 

LEAD 

390 

65 

LEAD 

396 

5 

BACKUP 

745 

6 

BACKUP 

775 

61 

LEAD 

813 

7 

LEAD 

940 

a 

BACKUP 

ln32 

9 

BACKUP 

1067 

93 

BACKUP 

1102 

10 

BACKUP 

1106 

94 

BACKUP 

1171 

U 

BACKUP 

1297 

62 

BACKUP 

1349 

63 

BACKUP 

1355 

12 

BACKUP 

1467 

13 

BACKUP 

1606 

14 

LEAD 

1801 

15 

LEAD 

1016 

64 

LEAD 

2014 

16 

LEAO 

2039 

17 

LEAD 

2051 

16 

LEAD 

2148 

19 


LEAD 


2?23 


20 

LEAD 

2262 

21 

LEAD 

2646 

22 

LEAD 

2031 

65 

LEAD 

2882 

23 

LEAD 

2958 

66 

LEAD 

2965 

24 

LEAD 

3n31 

67 

LEAD 

3077 

25 

LEAD 

3208 

95 

LEAD 

3227 

26 

BACKUP 

3231 

68 

BACKUP 

3280 

69 

BACKUP 

3338 

70 

BACKUP 

3530 

86 

BACKUP 

3682 

71 

BACKUP 

3729 

27 

BACKUP 

3750 

96 

BACKUP 

3754 

72 

LEAD 

3799 

97 

LEAD 

3926 

28 

LEAD 

3932 

73 

LEAD 

4152 

29 

LEAD 

4532 

87 

LEAD 

4576 

88 

BACKUP 

4889 

98 

BACKUP 

4900 

30 

LEAO 

4992 

31 

LEAD 

5n35 

32 

LEAD 

5038 

33 

LEAD 

5102 

34 

LEAD 

5257 

35 

LEAD 

5366 

ti2-V-l  l 


36 

LEAD 

5518 

37 

LEAD 

5523 

38 

LEAD 

5590 

39 

LEAD 

9656 

40 

LEAD 

5690 

74 

LEAD 

5879 

41 

LEAD 

5A60 

99 

BACKUP 

5944 

42 

BACKUP 

6078 

43 

BACKUP 

6088 

7S 

BACKUP 

6148 

76 

BACKUP 

6215 

44 

BACKUP 

6357 

77 

BACKUP 

6486 

78 

BACKUP 

6*22 

45 

BACKUP 

6530 

79 

BACKUP 

6767 

46 

LEAD 

6926 

47 

LEAD 

7n89 

48 

LEAD 

7148 

00 

LEAD 

7102 

49 

LEAD 

7347 

50 

LEAD 

7354 

89 

LEAD 

7357 

51 

BACKUP 

7358 

52 

LEAD 

7535 

01 

LEAD 

7*95 

SUMMARY  OF  JOB  # 1 


file  no 

♦ NUMfiEH  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

transfer  completed  AT 

RELATIVE  CLOCK  TTMF  tSEC),,. 

OF 

DURATION 
TRANSFER  <sec> 

requested  THE 

SPS2  PROCESSOR  AT 

REL.  CLK « 

157 

SEC. • AND  HAS  SEIZED 

IT  AT 

RFL. 

CLK. 

157  FOR 

1 

SECONDS 

REQUESTED  The 

SPS2  PROCESSOR  %7 

REL.  CLK* 

756 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RELt 

CLK. 

756  FOr 

1 

SFCONDS 

1 

1 

SPS 

DSC 

761 

0 

1 

1 

OSC 

FMP 

762' 

0 

2 

1 

OPM2 

DSC 

764 

1 

2 

1 

DSC 

FMP 

765  ' 

0 

REQUESTED  THE 

FMP  PROCESSOR  AT 

REL.  CLK. 

766 

SEC.*  AND  HAS  SEIZED 

n at 

RFL. 

CLK. 

999  FOR 

10 

SECONDS  t 

0 

2 

FMP 

OSC 

1010 

O 

B 

2 

DSC 

SPS 

1012 

0 

REQUESTED  THE 

SPS2  PROCESSOR  AT 

REL.  CLK. 

1013 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL. 

CLK. 

I0J3  FOR 

60 

SECONDS. 

JOB  n t COMPLETE 

AT  RELATIVE  CLOCK  » 2074  SEC. 

I 

> 

I 

ro 

VJI 


»v° 


% 

'T 


<5> 


SUMMARY  OF  JOB  # 2 


NO 

. ' NUMBER  of  from 

BLOCKS  TRANSFERRED 

TO 

transfer  completed  at 

RELATIVE  CLOCK  TIME  <SEC>. 

* •* 

DURATION 

OF  TRANSFER  <SEC> 

requested 

the 

SPS2 

PROCESSOR  AT 

REL.  CLK. 

251 

SEC.*  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

251 

FOR 

1 

SECONDS. 

REQUESTED 

THE 

SPS2 

PROCESSOR  AT 

REL.  CLK. 

852 

SEC. t AND  HAS  SEIZED 

IT 

AT 

REL.  CLK. 

052 

FOr 

1 

SECONDS. 

requested 

THE 

SPS2 

PROCESSOR  AT 

REL.  CLK. 

1153 

SEC.*  AND  HAS  SEIZED 

IT 

At 

RFL.  CLK. 

1153 

FOR 

1 

SECONDS. 

1 

• 1 

SPS 

DSC 

1155 

0 

1 

X 

DSC 

FMP 

1156 

0 

2 

1 

GPH1 

OSC 

1157 

1 

1 

2 

1 

OSC 

FMP 

1159 

0 

REQUESTED 

THE 

FMP 

PROCESSOR  AT 

REL.  CLK. 

1160 

SEC.*  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK, 

1719 

FOR 

10 

SECONDS. 

6 

2 

FMP 

DSC 

1730 

0 

B 

2 

DSC 

SPS 

1732 

0 

requested 

THE 

SPS2 

PROCESSOR  AT 

REL,  CLK. 

1733 

SEC.*  AND  HAS  SEIZED 

IT 

AT 

REL.  CLK. 

1733 

FOR 

60 

SECONDS. 

JOB  # 2 COMPLETE  AT  RELATIVE  CLOCK  » 1794  SEC 


SUMMARY  OF  JOB  * 3 


■ NO 

« number  of  FROM 

BLOCKS  TRANSFERRED 

TO 

transfer  completed  AT 

RELATIVE  CLOCK  TIME  <$EC> 

» » 0 

DURATION 

OF  TRANSFER  (SEC) 

REQUESTED  THE  SPSS 

PROCESSOR  AT 

REL » CLK, 

354 

SEC. » AND  HAS  SEIZED 

IT 

AT 

RFL,  CLK. 

354 

FOR 

l 

SECONDS. 

1 

1 

SPS 

DSC 

356 

0 

1 

1 

DSC 

FMP 

357 

0 

2 

l 

GPHX 

OSC 

359 

l 

2 

1 

DSC 

FMP 

360 

0 

REQUESTED  THE  FMP 

PROCESSOR  AT 

REL,  CLK, 

361 

SEC. 0 ANO  HAS  SEIZED 

IT 

AT 

RFL.  CLK 0 

361 

FOr 

10 

SECONDS 6 

B 

S 

FMP 

OSC 

372 

0 

a 

2 

DSC 

SPS 

374 

0 

REQUESTEO  THE  SPSS 

PROCESSOR  AT 

«EL.  CLK • 

375 

SEC.*  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

375 

FOR 

60 

SECONDS. 

JOB  u 

3 complete 

AT  RELATIVE 

CLOCK  « 436  SEC. 

I 

> 

I 

ro 

ON 


SUMMARY  OF  JOB  * 4 


; NO 

• NUMBER  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC),.. 

DURATION 

OF  TRANSFER  (SEC) 

REQUESTEO 

the 

SPS1 

PROCESSOR  AT 

REL.  CLK. 

390 

SEC. 9 AND 

HAS  SEIZED 

IT  AT 

RFL.  CLK, 

390  FOR 

X 

SECONDS. 

REQUESTED 

the 

SPSl 

PROCESSOR  AT 

REL.  CLK. 

991 

SEC. * AND 

HAS  SEIZED 

IT  AT 

RFL  0 CLK, 

991  FOR 

1 

SECONDS. 

1 

1 

SPS 

DSC 

993 

0 

1 

l 

OSC 

FMP 

994 

0 

2 

1 

GPH1 

DSC 

996 

1 

2 

1 

DSC 

FMP 

997 

0 

REQUESTEO 

the 

FMP 

PROCESSOR  AT 

REL,  CLK, 

99fl 

SEC.»  AND 

HAS  SEIZED 

IT  AT 

RFL.  CLK, 

1079  FOR 

10 

SFCONDS. 

9 

90 

FMP 

DSC 

1093 

3 

9 

90 

DSC 

SPS 

1170 

26 

requested 

THE 

SPSl 

PROCESSOR  AT 

REL.  CLK. 

1171 

SEC. t AND 

HAS  SEIZED 

IT  AT 

RFL,  CLK, 

1171  FUR 

60 

SECONDS, 

JOB  W 4 COMPLETE  AT  RELATIVE  CLOCK  » 1232  SEC 


1 1-A-27 


SUMMARY  OF  JOB  n 5 


E no 

. NUMBER  of  from 

BLOCKS  TRANSFERRED 

TO 

transfer  completeo  AT 
RELATIVE  CLOCK  TIME  (SEC) ** , 

DURATION 

OF  TRANSFER  (SEC) 

REQUESTED  the 

SPS2 

PROCESSOR  AT 

«EL.  CLK  # 745 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK* 

745  FUr 

1 

SECONDS 

REQUESTED  THE 

SPS2 

PROCESSOR  AT 

REL  » CLK . 1346 

SEC*,  and  Has  setzed 

IT  AT 

«FL.  CLK. 

1346  for 

1 

SECONDS 

1 

1 

, SPS 

DSC 

1349 

0 

l 

1 

osc* 

FMP 

1350 

0 

2 

1 

GPH2 

DSC 

1351 

l 

' 

2 

1 

DSC 

FMR 

1352 

0 

REQUESTED  THE 

FMP 

PROCESSOR  AT 

REL.  CLK,  1353 

SEC..  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK* 

2339  FOR 

10 

SECONDS, 

B 

2 

FMP 

DSC 

2350 

0 

ti 

2 

DSC 

SPS 

2352 

0 

REQUESTED  the 

SPS2 

processor  at 

REL.  CLK*  2353 

SEC..  AND  HAS  SEIZED 

IT  AT 

PFL.  CLK. 

2372  FUR 

60 

SECONDS. 

JOB  0 

5 COMPLETE 

AT  RELATIVE  CLOCK  ■ 2433  SEC. 

SUMMARY  OF  JOB  ¥ 6 


FILE  NO 

. number  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC) 

■ . . 

DURATION 

OF  TRANSFER  (SEC) 

requested 

THE  SPS2 

PROCESSOR  AT 

REL.  CLK* 

775 

SEC* • AND  HAS  SEIZED 

IT 

AT 

REL.  CLK. 

775  FUR 

1 

SECONDS, 

requested 

THE  SPS2 

PROCESSOR  AT 

REL.  CLK. 

1376 

SEC. 1 AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

1376  FUR 

1 

SFCONDS. 

REQUESTED 

THE  SPS2 

PROCESSOR  AT 

REL.  CLK. 

1677 

SEC.*  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

1677  FOR 

l 

SECONDS. 

1 

l 

SPS 

osc 

1680 

0 

1 

l 

DSC 

FMP 

I6fll 

0 

2 

1 

GPHl 

DSC 

1682 

1 

2 

1 

DSC 

FMP 

1683 

0 

requested 

THE  FMP 

PROCESSOR  AT 

REL.  CLK. 

1664 

SECo  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

2479  FUR 

It) 

SECONDS, 

8 

2 

FMP 

DSC 

2490 

0 

8 

2 

DSC 

SPS 

2519 

0 

REQUESTED 

the  SPS2 

PROCESSOR  AT 

REL*  CLK. 

2520 

SEC. 1 AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

asno  fur 

60 

SFCOWDS, 

JOB  n 6 COMPLETE  at  relative  CLOCK  « 2641  SEC. 


SUMMARY  OF  JOB  6 7 


; no 

* NUMBER  of  from 

BLOCKS  TRANSFERRED 

TO 

transfer  completed  AT 

RELATIVE  CLOCK  TIME  (SEC).,, 

DURATION 

fJF  TRANSFER  (SEC) 

REQUESTED  the 

spsi 

processor  at 

REL.  CLK. 

940 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

940  FOR 

1 

SECONDS, 

l 

1 

SPS 

DSC 

942 

0 

l 

l 

DSC 

FMP 

943 

0 

2 

l 

GPH2 

DSC 

945 

1 

2 

1 

DSC 

FMP 

946 

0 

REQUESTED  The 

FMP 

PROCESSOR  AT 

REL.  CLK, 

947 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFLo  CLK, 

1069  FOR 

1ft 

SECONDS* 

8 

2 

FMP 

OSC 

1080 

0 

b 

2 

osc 

SPS 

1088 

0 

REQUESTED  the 

SPSI 

PROCESSOR  AT 

REL.  CLK. 

1063 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL,  CLK o 

1083  FOR 

60 

SECONDS, 

JOB  # 7 COMPLETE  AT  RELATIVE  CLOCK  * UH  SEC. 


I 

> 

I 

ro 

oo 


SUMMAHY  OF  JOB  # 8 


NO 

. NUMBER  OF  FROM 

BLOCKS  TRANSFERRED 

TO  TRANSFER  COMPLETED  AT 

RELATIVE  CLOCK  TIME  (SEC),0, 

OF 

DURATION 
TRANSFER  (SEC) 

requested  THE  SPS2 

PROCESSOR  AT 

REL.  CLK,  1032 

SEC,*  AND 

HAS  SEIZED 

IT  AT 

RFL, 

CLK. 

1032  FOR 

1 

SFCONnS, 

REQUESTED  THE  Sp$2 

PROCESSOR  AT 

HEL.  CLK,  1633 

SEC.*  AND 

HAS  SEIZED 

IT  AT 

RFL, 

CLK. 

1633  FDR 

l 

SECONDS. 

1 

1 

SPS 

DSC 

1635 

0 

1 

1 

OSC 

FMp 

1636 

0 

2 

1 

GPH2 

DSC 

1637 

1 

d 

1 

DSC 

FMP 

1639 

0 

REQUESTED  the  fmp 

PROCESSOR  AT 

REL.  CLK,  1640 

SEC.*  AND 

HAS  SEIZED 

IT  AT 

RFL, 

CLK. 

2469  FUR 

10 

SECONDS. 

9 

90 

FMP 

DSC 

2486 

5 

9 

90 

DSC 

SPS 

2518 

26 

REQUESTED  THE  SPSS 

PROCESSOR  AT 

REL,  CLK,  2519 

SEC.*  AND 

HAS  SEIZED 

IT  AT 

RFL, 

CLK. 

2520  FUR 

60 

SECONDS. 

JOB  n 8 COMPLETE  AT  RELATIVE  CLOCK  * 2581  SEC 


1 1-A-29 


summary  of  job  n 9 


FILE  NO 

. NUMBER  of  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SECi, 

• • * 

DURATION 

OF  TRANSFER  (SECi 

REQUESTED 

THE 

SPS2  PROCESSOR  AT 

REL.  CLK. 

1067 

SEC. t AND 

NAS  SETZED 

IT 

AT 

RFL.  CLK. 

1 QB7  FUR 

1 

SFCON^S. 

requested 

The 

5PS2  PROCESSOR  AT 

HEL.  CLK. 

1666 

SEC..  AND 

HAS  SETZED 

IT 

AT 

RFL.  CLK. 

1660  FUR 

1 

SECONDS. 

1 

1 

SHS 

DSC 

1690 

O 

1 

1 

nsc 

FMP 

1692 

0 

2 

1 

GPH2 

DSC 

1693 

1 

2 

1 

DSC 

FMP 

1694 

0 

requested 

THE 

FMP  PROCESSOR  AT 

REL.  CLK. 

1695 

SEC..  AND 

HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

2489  FOR 

10 

SECONDS. 

ti 

2 

FMP 

DSC 

2500 

0 

a 

2 

DSC 

SPS 

2520 

0 

requested 

the 

SPS2  PROCESSOR  AT 

REL.  CLK. 

2521 

SEC..  AND 

HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

2640  FUR 

60 

SECONns, 

JOB  * 9 COMPLETE 

AT  RELATIVE  CLOCK  * 2701 

SEC. 

SUMMARY  OF  JOB  * 10 

FILE  NO.  NUMBER  OF  FROM  TO  TRANSFER  COMPLETED  AT  DURATION 

BLOCKS  TRANSFERRED  RELATIVE  CLOCK  TIME  {SECi...  OF  TRANSFER  (SF.C) 


REQUESTEO 

THE 

SPS2 

PROCESSOR 

AT 

REL. 

CLK. 

1106 

SEC.  t 

ANO 

HAS 

seized 

IT 

AT 

RFL.  CLK. 

1106 

fur 

1 

SECONDS. 

requested 

THE 

SPS2 

PROCESSOR 

AT 

REL. 

CLK. 

1707 

SEC.* 

AND 

HAS 

seized 

IT 

AT 

RFL.  CLK. 

1707 

FUR 

l 

SECONDS. 

REQUESTED 

THE 

SPS2 

PROCESSOR 

AT 

HEL. 

CLK. 

2006 

SEC.  » 

AND 

HAS 

SEIZED 

IT 

AT 

RFL.  CLK. 

2006 

FUR 

1 

SECONDS . 

1 

1 

SPS 

DSC 

2011 

0 

1 

1 

DSC 

FMP 

2012 

0 

2 

1 

OPH1 

DSC 

2013 

1 

* 

2 

1 

DSC 

FMP 

2015 

0 

REQUESTED  THE  FMP  PROCESSOR  AT  REL,  CUK.  2016  SEC. i AND  HAS  SETZED  IT  AT  RFL.  CLK.  2509  FUR  10  SECONDS. 


6 

2 

FMP 

DSC 

2520 

0 

ti 

2 

osc 

SPS 

2657 

1 

REQUESTED  THE  SPS2  PROCESSOR  AT  PEL.  CLK.  2656  SEC..  AND  HAS  SEIZED  IT  AT  RFL.  CLK.  2661  FOR  60  SECONDS. 
JOB  # 10  COMPLETE  AT  RELATIVE  CLOCK  m 2722  SEC. 


SUMMARY  OF  JOB  # \\ 


FILE  NO 

• NUHflE#  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

transfer  completed  at 

RELATIVE  CLOCK  time  (SEC) 

• Q 0 

DURATION 

OF  TRANSFER  (SEC) 

REQUESTED  THE  SPS2 

processor  AT 

REL,  CLK. 

1297 

SEC..  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

1297  FOr 

1 

SECONDS, 

1 

1 

SPS 

DSC 

1299 

0 

l 

1 

DSC 

FMP 

1300 

0 

1 

GPH2 

DSC 

1301 

1 

Z 

l 

DSC 

FMP 

1303 

0 

REQUESTED  THE  FMP 

PROCESSOR . AT 

PEL.  CLK. 

1304 

SEC.*  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

2329  FOr 

10 

SECONDS. 

9 

90 

FMP 

DSC 

2343 

3 

9 

90 

OSC 

SPS 

2372 

27 

REQUESTED  THE  SPS2 

PROCESSOR  AT 

REL.  CLK. 

2373 

SEC#  o AND  HAS  SEIZED 

IT 

AT 

RFL,  CLK. 

2432  FOR 

AO 

SECONDS, 

JOB  # 11  COMPLETE  at  RELATIVE  CLOCK  a 2493  SEC. 


SUMMARY  OP  JOB  H 12 


file  no 

. NUMREK  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC>,,. 

DURATION 

nr  transfer  <secJ 

REQUESTED  THE  SPS2 

PROCESSOR  AT 

REL.  CLK. 

1487 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

1487  FOR 

1 

SECONDS, 

REQUESTED  THE  SPS2 

PROCESSOR  AT 

REL,  CLK, 

2080 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK, 

2088  FOR 

1 

SECONDS, 

l 

1 

SPS 

OSC 

2090 

0 

1 

\ 

OSC 

FMP 

2091 

0 

2 

1 

GPH2 

DSC 

2093 

1 

2 

I 

DSC 

FMP 

2094 

0 

REQUESTED  the  FMP 

PROCESSOR  AT 

PEL.  CLK, 

2095 

SEC. * AND  HAS  SEIZED 

IT  AT 

RFL.  CLK, 

2519  FOR 

10 

SECONDS. 

9 

90 

FMP 

OSC  . 

2533 

3 

9 

90 

DSC 

SPS 

2687 

31 

REQUESTED  THE  SPS2 

PROCESSOR  AT 

REL,  CLK, 

2688 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFLo  CLK. 

2688  FOR 

60 

SECONDS, 

JOB  » 12  COMPLETE  AT  RELATIVE  CLOCK  a 2749  SEC. 


1 1-A-31 


SUMMARY  OF  JOB  # 23 


FILE  NO*  NUMBER  OF  FROM  TO 

BLOCKS  transferred 


TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIME  (SEC) « , » OF  TRANSFER  (SEC) 


REQUESTED  TH£  SPS2  PROCESSOR  AT  REL.  CLK.  1606  SEC.i  AND  HAS  SEIZED  IT  AT  RFL.  Cl  K, 
REQUESTED  THE  SPS2  PROCESSOR  AT  REL.  CLK ♦ 2287  SEC<i  AND  HAS  SEIZED  IT  AT  RFL.  CLK. 


1 

1 

SPS 

DSC 

2289 

I 

i 

DSC 

FMP 

2291 

2 

1 

GPH1 

DSC 

2292 

2 

1 

DSC 

FMP 

2293 

REQUESTED  the 

FMP  PROCESSOR  AT 

REL.  CLK.  2294 

SEC . • AND 

8 

2 

FMP 

DSC 

2610 

8 

2 

DSC 

SPS 

2661 

REQUESTED  THE  SPS2  PROCESSOR  AT  REL.  CLK , 2662  SEC,.  AND  HAS  SEIZED  IT  AT  RFL » CLK. 
JOB  * 13  COMPLETE  AT  RELATIVE  CLOCK  » 2725  SEC. 


16A6  FOR 
2287  FOR 
0 
0 
1 
0 

2599  FOR 
0 
l 

2664  FUR 


1 SECONDS • 
1 SECONDS. 


10  SECONDS. 


60  SECONDS. 


SUMMARY  OF  JOB  # 14 


; NO 

. NUMBER  of  from 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC).., 

DURATION 

OF  TRANSFER  (SEC) 

requested 

the 

SPS1 

PROCESSOR  AT 

REL.  CLK. 

1301 

SEC.*  AND 

HAS  SEIZEO 

IT 

AT 

RFL.  CLK. 

1801  FOR 

1 

SECONDS. 

REQUESTED 

the 

SPS1 

PROCESSOR  AT 

REL,  CLK. 

2402 

SEC..  AND 

HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

2402  FOR 

1 

SECONDS, 

REQUESTED 

THE 

SPS1 

PROCESSOR  AT 

REL.  CLK. 

2703 

SEC. » AND 

HAS  SEIZED 

IT 

AT 

REL.  CLK, 

2703  FOR 

1 

SECONDS. 

l 

l 

SPS 

DSC 

2706 

0 

X 

1 

DSC 

FMP 

2708 

0 

2 

1 

, GPH2 

DSC 

2710 

2 

2 

1 

nsc 

FMP 

2711 

0 

REQUESTED 

the 

FMP 

PROCESSOR  AT 

REL.  CLK. 

2712 

SEC. * AND 

HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

27?1  FOR 

10 

SECONDS. 

a 

2 

FMP 

DSC 

2732 

0 

8 

2 

osc 

SPS 

2734 

0 

requested 

the 

SPS1 

PROCESSOR  AT 

REL.  CLK, 

2735 

SEC.,  AND 

HAS  SEIZEO 

IT 

AT 

RFL.  CLK, 

2736  FUR 

60 

SECONns. 

JOB  » 14  COMPLETE  AT  RELATIVE  CLOCK  « 2797  SEC 


-32 


SUMMARY  OF  JOB  * \S 


file  no 

. nuhbeh  of  from 

blocks  transferred 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  <S£CI 

0 0* 

DURATION 

OF  TRANSFER  fS£C) 

REQUEbTEO  THE  SPS1 

PROCESSOR  AT 

RE L.  CLK. 

1816 

SEC*  o AND  HAS  SEIZED 

IT 

AT 

Rfl#  clk. 

.1816 

FOR 

1 

SECONDS. 

1 

1 

SPS 

DSC 

1819 

6 

1 

1 

DSC 

FMP 

1820 

0 

2 

1 

GPHP 

DSC 

1821 

1 

2 

1 

DSC 

FMP 

1823 

0 

REQUESTED  THE  fmp 

PROCESSOR  AT 

PEL#  CLK. 

182a' 

SEC* # AND  HAS  SETZEO 

IT 

AT 

RFL.  CLK • 

2499 

FOR 

10 

SECONDS. 

a 

z 

FMP 

DSC 

2510 

0 

a 

2 

DSC 

SPS 

2512 

0 

REQUESTED  The  SPS1 

PROCESSOR  AT 

REL.  CLK, 

2513 

SEC*.  AND  HAS  SEIZED 

IT 

AT 

RFL,  CLK, 

2513 

for 

60 

SECONDS. 

JOB  n 15  COMPLETE  at  RELATIVE  CLOCK  « 2S 74  SEC. 


» 

> 


SUMMARY  OF  JOB  » 16 


file  no 

. NUM8E«  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

1 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  <SECK,. 

DURATION 

OF  TRANSFER  ISEC) 

REQUESTED  THE  SRSl 

PROCESSOR  AT 

REL,  CLK.  2039 

SEC.o  AND  HAS  SEIZED 

IT  AT 

REL.  CLK. 

2039  FOR 

1 

SECONnS. 

1 

requested  the  spsi 

PROCESSOR  AT 

«£L,  CLK.  2640 

SEC* i AND  HAS  SEIZED 

ir  at 

REL.  CLK, 

2640  FOR 

1 

SECONDS. 

i 

SPS 

DSC 

2642 

0 

1 

l 

DSC 

FMP 

2644 

0 

2 

l 

GPH1 

DSC 

2645 

l 

2 

i 

DSC 

FMP 

2646 

0 

REQUEbTEO  the  fmp 

PROCESSOR  AT 

REL,  CLK.  2647 

SEC# • AND  HAS  SEIZED 

IT  at 

REL.  CLK. 

2691  FOR 

10 

SECONDS. 

9 

90 

FMP 

DSC 

2705 

3 

V 

90 

DSC 

SPS 

2736 

30 

REQUESTED  THE  SPSI 

PROCESSOR  AT 

REL,  CLK,  2737 

SEC  e 9 AND  HAS  SEIZED 

IT  AT 

RFL,  CLK, 

2776  FOR 

60 

SECONDS. 

JOB  « 16  COMPLETE  AT  RELATIVE  CLOCK  ■ 2637  SEC, 


1 1-A-33 


SUMMARY  OF  JOB  # IT 


FILE  NO 

. NUMBEH  of  from 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC) < 

► . * 

DURATION 

OF  TRANSFER  (SEC) 

REQUESTED 

THE 

SPSI  PROCESSOR  AT 

PEL,  CLK. 

2051 

SEC. ♦ AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK, 

2051  FOR 

1 

SECONDS, 

REQUESTED 

THE 

SPSI  PROCESSOR  AT 

PEL.  CLK. 

2652 

SEC..  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK, 

2652  FOR 

l 

seconds. 

1 

l 

SPS 

OSC 

265  A 

0 

1 

1 

DSC 

FMP 

2656 

0 

2 

1 

GPH2 

OSC 

2658 

2 

2 

1 

DSC 

FMP 

2659 

0 

REQUESTED 

THE 

FMP  PROCESSOR  AT 

REL.  CLK. 

2660 

SEC..  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

2711  FOR 

10 

SECONDS, 

8 

2 

FMP 

DSC 

2722 

0 

8 

2 

DSC 

SPS 

2T25 

l 

REQUESTED 

the 

SPS1  PROCESSOR  AT 

REL.  CLK. 

2726 

SEC..  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

2726  FOR 

60 

SECONDS, 

JOS  H IT  COMPLETE 

AT  RELATIVE  CLOCK  » 27B7  SEC. 

SUMMARY  OF  JOB  # 

18 

file  no 

, NUMBER  OF  FROM 

BLOCKS  TRANSFERRED 

TO  TRANSFER  COMPLETED  AT 

RELATIVE  CLOCK  TIME  (SEC),.o 

DURATION 

OF  TRANSFER  (SEC) 

reque^teo 

The 

spsi 

PROCESSOR  AT 

REL.  CLK,  21*8 

SEC.#  AND  HAS  SEIZED 

IT 

AT 

REL.  CLK. 

2U8  FOR 

1 

SECONDS. 

requested 

the 

spsi 

PROCESSOR  AT 

REL;  CLK,  27*9 

SEC.#  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

2706  FOR 

1 

SECONDS. 

requested 

the 

SPSI 

PROCESSOR  AT 

REL.  CLK,  3087 

SEC.#  ANO  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

3007  FOR 

1 

SECONDS. 

1 

1 

SPS 

DSC 

3009 

0 

1 

l 

DSC 

FMP 

3090 

0 

2 

1 

GPH2 

DSC 

3091 

1 

2 

1 

DSC 

FMP 

3092 

0 

REQUESTED 

THE 

FMP 

PROCESSOR  AT 

REL.  CLK,  3093 

SEC*.  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK, 

3093  FOr 

10 

SECONDS. 

6 

2 

FMP 

DSC 

3105 

0 

8 

2 

DSC 

SPS 

3106 

0 

requested 

THE 

SPSI 

PROCESSOR  AT 

REL.  CLK.  3107 

SEC. * AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

3107  FUR 

60 

SECONDS. 

JOB  U 18  COMPLETE  AT  RELATIVE  CLOCK  » 3168  SEC. 


1 1-A-34 


SUMMARY  OF  J08  tf  19 


; NU 

• NUMB E«  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  T IMF  <SEC> 

*00 

DURATION 

OF  TRANSFER  tSECl 

requested  the  spsi 

PROCESSOR  AT 

«EL.  CLK. 

2223 

SEC* • AND  HAS  SEIZED 

IT 

AT 

HFL.  CLK, 

2223 

FOR 

1 

SECONDS, 

1 

1 

SPS 

DSC 

2225 

0 

i 

1 

DSC 

FMP 

2226 

0 

d 

1 

6PH2 

DSC 

2223 

1 

2 

l 

DSC 

FMP 

2229 

0 

REQUESTED  The  FMP 

PROCESSOR  AT 

HEL.  CLK, 

2230 

SEC,*  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK, 

25?9 

FOr 

10 

SECONDS. 

9 

9o 

FMP 

DSC 

2543 

3 

9 

90 

DSC 

SPS 

2571 

26 

REQUESTED  THE  SPSI 

PROCESSOR  AT 

MEL  , CLK » 

2572 

SEC.«  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK, 

2572 

for 

60 

SECONDS, 

. JOB  n 

19  COMPLETE 

AT  RELATIVE  CLOCK  a 2633  SEC. 

SUMMARY  OF  JOB  # 20 


fill  no 

. NUMBER  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC) 

, 0 . 

DURATION 

OF  TRANSFER  (SEC) 

requested 

the 

SPSl  PROCESSOR  AT 

HEL,  CLK. 

2262 

SEC.*  AND 

HAS  SEIZED 

IT 

aT 

REL.  CLK. 

2262  FOR 

1 

SFCONDS. 

requested 

the 

SPS1  PROCESSOR  AT 

REL.  CLK, 

2663 

SEC. a AND 

HAS  SEIZED 

IT 

AT 

REL.  CLK, 

2863  FOR 

1 

SECONDS, 

1 

1 

SPS 

DSC 

2666 

0 

1 

1 

DSC 

FMP 

2867 

0 

2 

1 

6PH1 

DSC 

2866 

l 

2 

1 

DSC 

FMP 

2870 

0 

requested 

the 

FMP  PROCESSOR  AT 

HEL,  CLK, 

2BTI 

SEC.*  AND 

HAS  SEI2EO 

IT 

AT 

RFL,  CLK, 

2871  FOR 

10 

SFCONDS. 

9 

90 

FMP 

DSC 

2085 

3 

9 

90 

DSC 

SPS 

2912 

26 

REQUESTED 

the 

SPSl  PROCESSOR  AT 

HEL,  CLK, 

2913 

SEC**  AND 

HAS  SEIZED 

IT 

AT 

RFL,  CLK. 

2913  FOr 

60 

SECONDS, 

JOB  # 20  COMPLETE 

AT  RELATIVE  CLOCK  ft  2974 

SEC. 

SUMMARY  OF  J08  » 21 


FILE  NO 

• NUMBER  of 

blocks  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED 
RELATIVE  CLOCK  TIME 

AT 

(SEC) ... 

OF 

DURATION 
TRANSFER  (SEC) 

REQUESTED  THE  SPSl 

PROCESSOR  AT 

REL*  CLK. 

2646  SEC.*  AND  HAS  SEIZED  IT  AT 

RFL. 

Cl  K*  2646  FOR 

1 

1 

SPS 

DSC 

2648 

0 

l 

1 

DSC 

FMP 

2649 

0 

2 

1 

GPHi 

OSC 

2650 

1 

2 

1 

DSC 

FMP 

2652 

0 

REQUESTED  THE  FMP  PROCESSOR  AT  REL.  CLK.  2653  SEC*>  AND  MAS  SEIZED  IT  AT  RFL.  CLK. 


6 

2 

FHP 

DSC 

2712 

B 

2 

OSC 

SPS 

2715 

REQUESTED  THE  SPSl  PROCESSOR  AT  HEL,  CLK.  2716  SEC.i  AND  HAS  SEIZFD  IT  AT  RFL ■ CLK • 
J08  * ax  COMPLETE  AT  RELATIVE  CLOCK  m 2777  SEC. 


270)  FUR 
0 
1 

2716  FUR 


1 SFCOwMS. 


10  SFCOmDS. 


60  SECONDS* 


Z> 

I 

U) 

U1 


FILE  NO*  NUMBER  OF 

BLOCKS  TRANSFERRED 


SUMMARY  OF  JOB  » 22 

FROM  TO 


TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIME  (SEC).*#  OF  TRANSFER  (SEC) 


1 

1 

SPS 

OSC 

2033 

1 

1 

OSC 

FMP 

2834 

2 

1 

OPH1 

DSC 

2835 

2 

1 

DSC 

FMP 

2637 

REQUESTED  THE  SPSl  PROCESSOR  AT  REL.  CLK.  2831  SEC*.  AND  HAS  SEIZED  IT  AT  REL.  CLK#  2831  FOR  1 SECONDS* 

0 
0 
X 
o 

REQUESTED  THE  FMP  PROCESSOR  AT  REL.  CLK.  2638  SEC.»  AND  HAS  SEIZED  IT  AT  RFL,  CLK.  2836  FOR  10  SECONDS. 

0 
0 

REQUESTED  THE  SPSl  PROCESSOR  AT  R£L.  CLK.  2651  SEC.i  AND  HAS  SEIZED  IT  AT  RFL.  CLK*  2851  FUR  60  SECONDS, 

J08  0 22  COMPLETE  A 7 RELATIVE  CLOCK  * 29X2  SEC. 


B 

2 

FMP 

DSC 

26*9 

8 

2 

OSC 

SPS 

2650 

1 1-A-36 


SUMMARY  OF  JOB  « 23 


: no 

• NUMBER  of 

BLOCKS  TRANSFERRED 

FROM 

1 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SECU,. 

DURATION 

OF  TRANSFER  tSECl 

REQUESTED  the  SPSI 

PROCESSOR  AT 

REL,  CLK. 

2958 

SEC*.  AND  HAS  SEIZED 

IT  AT 

RFL*  CLK « 

2958  FOR 

1 

SECONDS, 

l 

1 

SPS 

OSC 

2961 

0 

l 

\ 

DSC 

FMP 

2962 

0 

2 

1 

GPH1 

DSC 

2963 

1 

2 

1 

OSC 

FMP 

2964 

0 

REQUESTED  THE  FMP 

PROCESSOR  AT 

BEL,  CLK* 

2965 

SEC*  « AND  HAS  SEIZED 

IT  AT 

RFL*  CLK. 

2965  FOR 

10 

SECONDS. 

B 

2 

FMP 

DSC 

2977 

0 

ti 

2 

OSC 

SPS 

2976 

0 

REQUESTED  THE  SPSI 

PROCESSOR  AT 

REL*  CLK o 

2979 

SEC**  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK* 

2979  FOR 

60 

SECONDS. 

JOB  * 23  COMPLETE  AT  RELATIVE  CLOCK  « 30*0  SEC. 


SUMMARY  OF  JOB  # 24 

FILE  NO,  NUMBER  OF  FROM  TO  TRANSFER  COMPLETED  AT  DURATION 

BLOCKS  TRANSFERRED  RELATIVE  CLOCK  TIME  <SEC>*,*  OF  TRANSFER  |S£C> 


REQUESTED 

THE 

SPSI 

PROCESSOR  AT 

REL.  CLK* 

3031 

SEC**  AND 

HAS 

SEIZED 

IT 

AT 

RFL. 

CLK* 

3031  FUR 

1 

SECONDS 

1 

1 

SPS 

DSC 

3034 

0 

l 

1 

DSC 

FMP 

3035 

0 

2 

1 

OPH2 

DSC 

3036 

1 

2 

l 

DSC 

FMP 

3037 

0 

REQUESTED 

THE 

FMP 

PROCESSOR  AT 

REL*  CLK. 

3038 

SEC* # AND 

HAS 

SEIZED 

IT 

AT 

RFL. 

CLK, 

3038  FOR 

10 

SECONDS 

9 

90 

FMP 

DSC 

3053 

3 

9 

90 

DSC 

SPS 

3081 

26 

REQUESTED 

the 

SPSI 

PROCESSOR  AT 

REL*  CLKo 

3062 

SEC.*  AND 

HAS 

SEIZED 

IT 

AT 

RFL  o 

CLK. 

30fl2  FOR 

60 

SECONDS 

JOB  * 24  COMPLETE  AT  RELATIVE  CLOCK  « 3143  SEC* 


1 1-A-37 


SUMMARY  OF  JOB  H 25 


ILL  NO 

• number  OF 

FROM 

TO 

TRANSFER  COMPLETED  AT 

DURATION 

tJLUCMi  i KANSrERREO 

RELATIVE  CLOCK  TIME  (SEC)... 

OF  TRANSFER  ISEC1 

requested  the 

SPSl 

PROCESSOR  AT 

REL.  CLK.  3308 

SEC.  • AND  HAS  SEIZED  IT  AT 

RFL.  OK* 

32(18  FOR 

l 

SECONDS. 

REQUESTED  THE 

SPSl 

PROCESSOR  AT 

REL.  CLK.  3609 

SEC.#  ANO  HAS  SETZEO  IT  AT 

RFL.  CLK. 

3809  FOR 

1 

SECONDS. 

1 

1 

SPS 

DSC 

3811 

0 

1 

l 

DSC 

FMP 

3812 

0 

2 

1 

GPH1 

OSC 

3814 

1 

2 

1 

DSC 

FMP 

38 1 S 

0 

reuuesteo  the 

F HP 

PROCESSOR  AT 

PEL.  CLK.  3816 

SEC.#  AND  HAS  SEIZED  IT  AT 

flFL.  CLK. 

4305  FOr 

10 

SECONDS, 

& 

2 

Flip 

OSC 

4317 

0 

6 

2 

OSC 

SPS 

4310 

0 

REQUESTED  THE 

SPSl 

PROCESSOR  AT 

PEL.  CLK.  4319 

SEC. t AND  HAS  SEIZED  IT  AT 

RFL.  CLK, 

4319  FOR 

60 

SECONDS. 

JOB  * 25  COMPLETE  AT  RELATIVE  CLOCK  * 4380  SEC. 


SUMMARY  OF  JOB  * 26 

FILE  NO.  NUMBEH  OF  FROM  TO  TRANSFER  COMPLETEO  AT  DURATION 


BLOCKS  TRANSFERRED 

RELATIVE  CLOCK  TIME  <SEC> , 

p . # 

OF  transfer  <seo 

REQUESTED 

the 

SPSZ  PROCESSOR  AT 

REL.  CLK. 

3231 

SEC.#  AND 

HAS  SEIZED 

IT 

AT 

RFL.  CLK, 

3231  FOr 

1 

SECONDS , 

REQUESTED 

THE 

SPS2  PROCESSOR  AT 

HEL.  CLK. 

3832 

SEC.#  AND 

HAS  SETZEO 

IT 

AT 

«FL.  CLK. 

3832  FOR 

l 

SECONDS 

REQUESTED 

THE 

SPS2  PROCESSOR  AT 

REL.  CLK. 

4133 

SEC.#  AND 

HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

4133  FOR 

1 

SECONDS 

i 

1 

SPS 

OSC 

4135 

0 

1 

1 

DSC 

FMP 

4137 

0 

2 

1 

GPH2 

DSC 

4138 

i 

2 

1 

OSC 

FMP 

4139 

0 

requesteo 

THE 

FMP  PROCESSOR  AT 

REL.  CLK. 

4140 

SEC«#  AND 

HAS  SETZEO 

IT 

AT 

RFL.  CLK » 

4445  FOR 

10 

SECONDS, 

a 

2 

FMP 

OSC 

4457 

0 

a' 

2 

DSC 

SPS 

4450 

0 

REQUESTEO 

THE 

SPS2  PROCESSOR  AT 

REL.  CLK. 

4459 

SEC#  # AND 

HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

4459  FUR 

60 

SECONDS 

JOB  # 26  COMPLETE 

AT  RELATIVE  CLOCK  * 4520 

SEC. 

SUMMARY  OF  JOB  # 27 


NO 

. NUM0E«  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC)# 

DURATION 

OF  TRANSFER  (SEC) 

REQUESTED  THE 

SPS2 

PROCESSOR  AT 

REL.  CLK. 

3750 

SEC.#  ANO  HAS  SEIZED 

IT 

AT 

RFL,  CLK. 

3750  FOR 

1 

SECONDS • 

1 

l 

SPS 

DSC 

3752 

a 

i 

l 

DSC 

FMP 

3754 

0 

2 

1 

GPhl 

DSC 

3756 

2 

2 

1 

DSC 

FMP 

3757 

0 

REQUESTED  THE 

FMP 

PROCESSOR  AT 

REL.  CLK. 

3758 

SEC.*  AND  HAS  SETZEO 

IT 

AT 

RFL.  CLK. 

4285  FOr 

10 

SECONDS. 

B 

2 

FMP 

DSC 

4297 

0 

B 

2 

DSC 

SPS 

429B 

0 

requested  the 

SPS2 

PROCESSOR  AT 

REL,  CLK. 

4299 

SEC# o ANO  HAS  SETZEO 

IT 

AT 

RFL.  CLK. 

4299  FUr 

60 

SFCOnoS. 

JOB  * ST  COMPLETE  AT  RELATIVE  CLOCK  * 4360  SEC# 


I 

uo 

00 


SUMMARY  OF  JOB  6 26 

FILE  NO.  NUMBER  OF  FROM  TO  TRANSFER  COMPLETED  AT  , DURATION 

BLOCKS  TRANSFERRED  RELATIVE  CLOCK  TINE  <SEC>*„«  OF  TRANSFER  (SCO 

REOUESTCO  THE  SPS1  PROCESSOR  AT  REL.  CLK.  3932  SEC.  # AND  HAS  SEIZED  IT  AT  REL.  CLK.  3932  FOR  | SECONDS . 

REQUESTED  THE  SPSl  PROCESSOR  AT  REL.  CLK#  4533  SEC.#  AND  HAS  SEIZED  IT  AT  Rf  L®  CLK.  4533  FOR  \ SECONDS. 


1 

1 

SPS 

OSC 

4536 

0 

l 

1 

DSC 

FMP 

4537 

0 

2 

1 

GPHi 

OSC 

4538 

1 

2 

1 

DSC 

FMP 

4540 

0 

REQUESTED  the  FHP  PROCESSOR  at  REL.  CLK#  4541  SEC.#  AND  HAS  SEIZED  IT  AT  RFL#  CLK.  5895  FOR  10  SECONDS. 


9 

90 

FMP 

DSC 

5913 

6 

9 

90 

OSC 

SPS 

5942 

26 

REQUESTED  THE  SPSl  PROCESSOR  AT  REL.  CLK#  5943  SEC.#  AND  HAS  SEIZED  IT  AT  RFL#  CLK.  5943  FOR  60  SECONDS, 
JOB  # 28  COMPLETE  AT  RELATIVE  CLOCK  » 6004  SEC. 


11-A-39 


SUMMARY  OF  JOB  ft  29 


NO 

« NUMBER  OF  FROM 

BLOCKS  TRANSFERRED 

TO  TRANSFER  COMPLETED  AT 

RELATIVE  CLOCK  TIME  <$EC>, 

• . 

DURATION 

DF  TRANSFER  <SEC> 

REQUESTED  THE  SPSI 

PROCESSOR  AT 

REL*  CLK*  4532 

SEC.*  and  has  seizeo 

IT 

AT 

RFL.  CLK* 

4532 

FOR 

REQUESTED  the  SPS1 

PROCESSOR  AT 

PEL*  CLK*  5133 

SEC* t AND  HAS  SEIZED 

IT 

AT 

RFL » CLK. 

5133 

FUR 

i 

l 

SPS 

OSC 

5136 

0 

1 

1 

OSC 

FMP 

5137 

0 

2 

1 

GPH2 

OSC 

5138 

1 

2 

l 

DSC 

FMP 

5139  ’ 

0 

REQUESTED  THE  FMP 

PROCESSOR  AT 

REL*  CLK.  51 AO 

SEC.*  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK* 

59*5 

FUR 

a 

2 

FMP 

DSC 

5997 

0 

*4 

2 

OSC 

SPS 

6QG4 

0 

REQUESTED  THE  SPSi 

PROCESSOR  AT 

REL*  CLK.  6005 

SEC.*  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK* 

6005 

for 

JOB 

ft  29  COMPLETE 

AT  RELATIVE  CLOCK  * 6066  SEC* 

SUMMARY  OF  JOB  ft  30 


file  no 

. number  of 

FROM 

TO 

TRANSFER  COMPLETED  AT 

DURATION 

BLOCKS  TRANSFERRED 

RELATIVE  CLOCK  TIME  1SECV , 

... 

Of  TRANSFER  tSEO 

REQUESTED 

THE 

SPSI 

PROCESSOR  AT 

REL*  CLK. 

*992 

SEC*.  AND 

HAS  SEIZED 

n 

at 

RFL*  Cl  K * 

4992  FOR 

X 

REQUESTED 

THE 

SPSI 

PROCESSOR  AT 

REL*  CLK. 

5593 

SEC.*  AND 

HAS  SEIZED 

IT 

at 

RFL.  CLK. 

5593  FOR 

1 

requesteo 

THE 

SPSI 

PROCESSOR  AT 

REL.  CLK. 

509* 

SEC. t AND 

HAS  SEIZED 

IT 

AT 

RFL.  CLK* 

509*  FOR 

1 

1 

1 

SPS 

DSC 

5897 

0 

1 

1 

DSC 

FMP 

5690 

0 

2 

1 

GPH1 

OSC 

5899 

1 

2 

1 

OSC 

FMP 

5901 

0 

requested 

THE 

FMP 

PROCESSOR  AT 

REL  * CLK. 

5902 

SEC.*  AND 

HAS  SEIZED 

IT 

At 

RFL.  CLK* 

6705  FOR 

10 

9 

90 

FMP 

OSC 

6723 

& 

9 

90 

OSC 

SPS 

6765 

*0 

requested 

THE 

SPSI 

PROCESSOR  At 

REL.  CLK. 

6766 

SEC..  AND 

HAS  SEIZED 

IT 

At 

RFL.  CLK* 

6766  FOR 

60 

JOB  « 

‘ 30  COMPLETE 

AT  RELATIVE  CLOCK  * 6027 

SEC. 

SECONDS* 

SECONDS* 


SECONDS* 

SECONDS. 


SECONDS • 
SECONDS* 
SECONDS* 


SECONDS* 

SECONDS* 


SUMMARY  OF  JOB  # 31 


FILE  NO 

, NUMBER  OF 

FROM 

TO 

TRANSFER  COMPLETED  AT 

DURATION 

BLOCKS  TRANSFERRED 

RELATIVE  CLOCK  TIME  (SEC). 

• . . 

OF  TRANSFER  (SEC) 

REQUESTED  THE 

spsi 

PROCESSOR  AT 

HEl.  CLK. 

5035 

SEC.*  ANO  HAS  SEIZED 

IT 

AT 

RFL,  CLK. 

5035  FOR 

1 

1 

1 

SPS 

DSC 

5037 

0 

l 

1 

DSC 

FMP 

5036 

0 

2 

1 

GPH2 

DSC 

5040 

1 

2 

1 

DSC 

FMP 

5041 

0 

REQUESTED  the 

FMP 

PROCESSOR  AT 

HEL,  CLK. 

5042 

SEC. o AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK, 

5975  FOR 

10 

ti 

2 

FMP 

DSC 

5987 

0 

ti 

2 

DSC 

SPS 

6004 

1 

requested  the 

SPSI 

PROCESSOR  AT 

REL.  CLK. 

6005 

SEC, * ANO  HAS  SEIZEO 

n 

AT 

RFL.  CLK. 

6065  FOR 

60 

JOB  * 

31  COMPLETE 

AT  RELATIVE  CLOCK  • 6126  SEC. 

FILE  NO.  NUMBER  OF 

BLOCKS  TRANSFERRED 


SUMMARY  OF  JOB  tt  32 
FROM 


TO 


TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TlMF  (SEC),..  OF  TRANSFER  (SEC) 


CLK. 

5038 

FOR 

1 

CLK. 

5639 

FOR 

1 

SPS 

DSC 

5641 

0 

DSC 

FMP 

5643 

0 

GPH1 

DSC 

5644 

l 

DSC 

FMP 

5645 

0 

1 l 

1 1 

2 1 

2 . I 

REQUESTED  THE  FMP  PROCESSOR  AT  REL.  CLK.  5646  SEC.*  AND  HAS  SEIZED  IT  AT  RFL.  CLK.  6665  FOr 

3 
49 

REQUESTEO  THE  SP$1  PROCESSOR  AT  REL,  CLK.  6731  SEC.*  AND  HAS  SEIZED  IT  AT  REL.  CLK.  6731  FOR 
JOB  M 32  COMPLETE  AT  RELATIVE  CLOCK  «»  6792  SEC. 


9 

90 

FMP 

DSC 

6680 

9 

90 

OSC 

SPS 

6730 

10 


60 


SECONDS* 


SECONDS. 

SECONDS, 


5FCOMDS. 

SECONDS. 


SECONDS. 

SECONDS. 


1 1-A-41 


summary  of  job  n 33 


FILE  WO,  NUMBER  OF  FROM  TO  TRANSFER  COMPLETED  AT  DURATION 

BLOCKS  TRANSFERRED  RELATIVE  CLOCK  TIME  (SEC),..  OF  TRANSFER  (SEC) 


REQUESTED 

the 

SPS1 

PROCESSOR  AT 

REL*  CLK, 

SI  02 

SEC*,  AND 

HAS 

SEIZED 

IT 

AT 

RFL. 

CLK* 

5102  FOR 

1 

SFCONDS 

REQUESTED 

the 

SPS1 

PROCESSOR  AT 

REL*  CLK, 

5703 

SEC*,  AND 

HAS 

SEIZED 

IT 

AT 

RFL, 

CLK* 

5703  FOR 

l 

SECONDS 

l 

1 

SPS 

DSC 

5705 

, 

0 

I 

1 

DSC 

FMP 

5706 

0 

2 

1 

GPH 1 

DSC 

5700 

1 

2 

1 

OSC 

FMP 

5709 

0 

requested 

THE 

FMP 

PROCESSOR  AT 

REL,  CLK* 

5710 

SEC,,  AND 

HAS 

SEIZED 

IT 

AT 

RFL, 

CLK. 

66flS  FOR 

10 

SECONDS 

0 

2 

FMP 

DSC 

6697 

0 

a 

‘2 

DSC 

SPS 

6700 

2 

requested 

THE 

SPS1 

PROCESSOR  AT 

REL*  CLK* 

6701 

SEC**  AND 

HAS 

SEIZED 

IT 

AT 

RFL, 

CLK* 

6701  FUR 

60 

SECONDS. 

JOB  * 33  COMPLETE  AT  RELATIVE  CLOCK  • 676.2  SEC* 


SUMMARY  OF  JOB  # 34 

FILE  NO,  NUMRER  OF  FROM  TO  TRANSFER  COMPLETED  AT  DURATION 

BLOCKS  TRANSFERRED  RELATIVE  CLOCK  TIME  (SEC)**,  OF  TRANSFER  (SEC) 


REQUESTED 

THE 

spsi 

PROCESSOR  AT 

REL.  CLK. 

5257 

SEC*,  AND 

HAS 

SEIZED 

IT 

AT 

RFL.  CLK. 

5257  FOR 

1 

SECONDS. 

requested 

THE 

SPS1 

PROCESSOR  AT 

REL*  CLK. 

5050 

SEC*,  AND 

HAS 

SEIZED 

IT 

AT 

RFL.  CLK. 

5850  FDR 

1 

SECONDS* 

REQUESTED 

THE 

SPSI 

PROCESSOR  AT 

REL.  CLK. 

6159 

SEC*,  AND 

HAS 

seized 

IT 

AT 

RFL.  CLK. 

6159  FOR 

1 

SECONDS, 

1 

1 

SPS 

OSC 

6161 

0 

1 

1 

DSC 

FMP 

6163 

0 

2 

1 

GPH2 

DSC 

6164 

1 

2 

1 

DSC 

FMP 

6165 

0 

requested 

THE 

FMP 

PROCESSOR  AT 

REL*  CLK* 

6166 

SEC*,  AND 

HAS 

SEIZED 

IT 

AT 

RFL.  CLK, 

6825  FDR 

10 

SECONDS, 

a 

2 

FMP 

DSC 

6037 

0 

a 

2 

DSC 

SPS 

6839 

1 

requested 

The 

SPSI 

PROCESSOR  AT 

REL,  CLK, 

6840 

SEC*,  AND 

HAS 

SEIZED 

IT 

AT 

RFL,  CLK* 

6840  FOR 

60 

SECONDS, 

JOB  # 34  COMPLETE  AT  RELATIVE  CLOCK  • 6901  SEC* 


1 1-A-42 


SUMMARY  OF  JOB  * 35 


file  no,  number  or  from  to  transfer  completed  at  duration 

BLOCKS  TRANSFERRED  RELATIVE  CLOCK  TIME  (SEC),,,  DF  TRANSFER  (SEC) 


requested 

TH£ 

SPS1 

PROCESSOR  AT 

PEL,  CLK * 

5366 

SEC, p AND 

HAS 

SEIZED 

IT 

AT 

REL, 

CLK, 

5366 

Fur 

1 

SECONDS, 

I 

1 

SPS. 

DSC 

5368 

0 

1 

1 

DSC 

FMP 

5369 

0 

2 

1 

GPH1 

osc 

5373 

A 

2 

1 

DSC 

FMP 

5375 

0 

REQUESTED 

the 

FMP 

PROCESSOR  AT 

REL.  CLK o 

5376 

SEC* » AND 

HAS 

SEIZED 

IT 

AT 

REL, 

CLK. 

6655 

FOR 

10 

SECONDS. 

B 

2 

FMP 

DSC 

6667 

0 

B 

2 

DSC 

SPS 

6668 

0 

REQUESTED 

the 

SPS1 

PROCESSOR  AT 

REL.  CLK, 

6669 

SEC*  d AND 

HAS 

SEIZED 

IT 

AT 

RFL, 

CLK. 

6669 

for 

60 

SECONDS. 

JOB  U 35  COMPLETE  AT  RELATIVE  CLOCK  • 6730  SEC, 


SUMMARY  OF  JOB  » 36 


1 SECONDS, 
t RFCONOS, 


10  SECONDS. 


60  SECONDS, 


: no 

. NUMBER  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TlMf  (SEC),., 

DURATION 

OF  TRANSFER  (SEC) 

REQUESTED  THE 

SPS1 

PROCESSOR  AT 

REL.  CLK, 

5518 

SEC, • AND  HAS  SEIZED 

IT  AT 

REL*  CLK. 

5510 

FOR 

REQUESTED  TMe 

SPSi 

PROCESSOR  AT 

NEL.  CLK, 

6119 

SEC**  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK, 

6127 

FOR 

I 

1 

SPS 

OSC 

6129 

0 

I 

1 

DSC 

FMP 

6131 

0 

2 

1 

OPH2 

DSC 

6132 

1 

2 

1 

DSC 

FMP 

6133 

0 

REQUESTED  the 

FMP 

PROCESSOR  AT 

REL,  CLK, 

6134 

SEC, 9 AND  HAS  SEIZED 

IT  AT 

RFL,  CLK. 

6805 

for 

9 

90 

FMP 

OSC 

6820 

3 

9 

90 

OSC 

SPS 

6849 

26 

REQUESTED  the 

SPSI 

PROCESSOR  AT 

REL,  CLK, 

6B50 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

6850 

FOR 

JOB  * 36  COMPLETE  AT  RELATIVE  CLOCK  a 6911  SEC* 


1 1-A-43 


SUMMARY  OF  JOB  U 37 


; no 

• number  of  from 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEO... 

DURATION 

OF  TRANSFER  <SEC> 

REQUESTED 

the 

SPSI 

PROCESSOR  AT 

REL.  CLK. 

5523 

SEC.,  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

5523  FOR 

1 

SECONDS. 

REQUESTED 

THE 

SPSI 

PROCESSOR  AT 

REL.  CLK. 

6124 

SEC. » ANO  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

6128  FOR 

1 

SECONDS. 

l 

1 

SPS 

DSC 

6130 

0 

l 

1 

DSC 

FMP 

6132 

0 

2 

1 

GPHI 

DSC 

6133 

1 

. 

2 

1 

DSC 

FMP 

6134 

0 

REQUESTED 

the 

FMP 

PROCESSOR  AT 

REL.  CLK, 

6135 

SEC. » AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

6815  FOR 

10 

SECONDS. 

a 

2 

FMP 

DSC 

6827 

0 

a 

2 

DSC 

SPS 

6829 

1 

requested 

THE 

SPSI 

PROCESSOR  AT 

REL,  CLK. 

6830 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK, 

6830  FOR 

60 

SECONDS. 

JOB  # 37  COMPLETE  AT  RELATIVE  CLOCK  * 689!  SEC. 


SUMMARY  OF  JOB  H 33 


file  no 

• NUMBER  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  <SEC) 

» ■ • 

DURATION 

OF  TRANSFER  <SEC> 

requested 

THE 

SPSI 

PROCESSOR  AT 

* 

PROCESSOR  AT 

REL.  CLK. 

5590 

SEC.*  AND  HAS  SEIZED 

IT 

AT 

RFL.  Cl'K. 

5590 

FOR 

1 

SECONDS. 

requested 

the 

SPSI 

REL.  CLK, 

6191 

SEC.*  ANO  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

6191 

FOR 

1 

SECONDS. 

REQUESTED 

THE 

SPSI 

PROCESSOR  AT 

REL.  CLK. 

6492 

SEC..  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

6492 

FOR 

l 

SECONDS, 

l 

1 

SPS 

OSC 

6494 

0 

I 

1 

DSC 

FMP 

6495 

0 

2 

1 

6PH1 

DSC 

6497 

1 

2 

l 

DSC 

FMP 

6498 

0 

REQUESTED 

THE 

FMP 

PROCESSOR  AT 

HEL.  CLK. 

6499 

SEC.*  and  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

69)5 

FOp 

10 

SECONDS. 

a 

2 

FMP 

DSC 

6927 

0 

a 

2 

DSC 

SPS 

6928 

0 

requested 

the 

SPSI 

PROCESSOR  AT 

REL,  CLK, 

6929 

SEC.*  AND  HAS  SEIZED 

IT 

AT 

RFL,  CLK. 

6929 

FOR 

60 

SECONDS. 

JOB  * 38  COMPLETE  AT  RELATIVE  CLOCK  ■ 6990  SEC. 


SUMMARY  OF  JOB  * 39 


FILE  NO 

• number  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  ISEC1 ... 

DURATION 

OF  TRANSFER  <SEC> 

REQUESTED  THE  SPSl 

PROCESSOR  AT 

REL,  CLK, 

5656 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK, 

5656  FOR 

I 

seconds. 

i 

1 

SPS 

DSC 

5658 

0 

I 

I 

DSC 

FMP 

5659 

0 

2 

1 

GPHi 

DSC 

5661 

I 

2 

I 

DSC 

FMP 

5662 

0 

REQUESTED  the  FMP 

PROCESSOR  AT 

REL,  CLK. 

5663 

SEC. 9 AND  HAS  SEIZEO 

IT  AT 

REL.  CLK. 

6675  FOR 

10 

SECONDS, 

9 

90 

FMP 

DSC 

6691 

4 

9 

90 

DSC 

SPS 

6749 

57 

requested  the  spsi  processor  at 

REL*  CLK. 

6750 

SEC. o AND  HAS  5ET2ED 

IT  AT 

RFL*  CLK* 

6750  FOR 

60 

SECONDS. 

JOB  * 39  COMPLETE  AT  RELATIVE  CLOCK  * 6811  SEC* 


I 

> 

I 

Jr 

Jr 


FILE  NO*  NUMBER  OF 

BLOCKS  TRANSFERRED 


SUMMARY  OF  JOB  tt  AO 
FROM 


TO 


TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIME  <SEC>.,*  OF  TRANSFER  (SEC) 


REQUESTED  THE  SPSI  PROCESSOR  At  REL.  CLK,  5690  SEC*o  ANO  HAS  SEIZED  IT  AT  RFL*  CLK*  5690  FOR 
REQUESTED  THE  SPSV  PROCESSOR  at  REL.  CLK*  6291  SEC*i  AND  HAS  SEIZED  IT  AT  REL*  CLK.  6291  FOR 

0 
0 
1 
0 


1 

1 

SPS 

DSC 

6294 

I 

1 

DSC 

FMP 

6295 

2 

1 

0PH2 

DSC 

6296 

2 

I 

DSC 

FMp 

6297 

1 SECONDS, 
I SECONDS. 


the 

FMP 

PROCESSOR  AT 

REL.  CLK. 

6298 

SEC.*  AND 

HAS 

SEIZED 

IT 

AT 

RFL. 

CLK. 

6835 

FOR 

10  SECONDS. 

90 

FMP 

DSC 

6850 

4 

90 

DSC 

SPS 

6896 

44 

the 

SPSi 

PROCESSOR  AT 

REL,  CLK. 

6897 

SEC« • AND 

HAS 

SEIZED 

IT 

AT 

RFL. 

CLK. 

6897 

FOR 

60  SECONDS. 

JOB  * 40  COMPLETE  AT  RELATIVE  CLOCK  « 69S8  SEC* 


SfT-V-l  L 


SUMMARY  OF  JOB  U 41 


FILE  NO.  NUMHEH  OF 

BLOCKS  TRANSFERRED 


FROM 


TO 


TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC).*. 


DURATION 

OF  TRANSFER  (SEC) 


REQUESTED  THE  SPSI  PROCESSOR  AT  PEL  * CLK.  5880  SEC.#  AND  HAS  SEIZED  IT  AT  RFL.  Cl  K. 

i I 

1 ) 

^ 1 

* 1 

requested  the  fmp  processor  at  rel.  clk.  5887  sec.#  and  has  seized  it  at  rfl.  clk. 


d 

2 

FMP 

DSC 

6707 

8 

2 

DSC 

SPS 

6709 

5880  FOR 


SPS 

DSC 

5682 

0 

DSC 

FMP 

5883 

0 

GPH2 

DSC 

5884 

l 

DSC 

FMP 

5886 

0 

REQUESTED  THE  SPSI  PROCESSOR  at  REL,  clk,  6710  SECo  AND  HAS  SEIZED  IT  AT  RFL,  CLK. 
JOB  H 41  COMPLETE  AT  RELATIVE  CLOCK  * 6771  SEC. 


6695  FOR 

0 

l 

6710  FOR 


10 


60 


SUMMARY  OF  JOB  * 42 


FILE  NO 

• NUMBER  of 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  ( SEC) .,« 

DURATION 

OF  TRANSFER  (SEC) 

REQUESTED  THE  SPS2 

PROCESSOR  AT 

REL.  CLK. 

6078  SEC..  ANO  HAS  SEIZED,  XT  AT 

RFL.  CLK.  6078  FOR 

l 

1 

SPS 

DSC 

6080 

0- 

1 

1 

DSC 

FMP 

6082 

0 

2 

1 

GPH1 

DSC 

6083 

l 

2 

1 

DSC 

FMP 

6084 

0 

REQUESTED  THE  FMP  PROCESSOR  AT  REL,  CLK,  6085  SEC.#  AND  HAS  SEIZED  IT  AT  RfL.  CLK, 


8 

2 

FMP 

OSC 

6797 

8 

2 

DSC 

SPS 

6798 

REQUESTED  THE  SPS2  PROCESSOR  AT  HEL,  CLK.  6799  SEC.#  AND  HAS  SEIZED  IT  AT  REL.  CLK. 
JOB  * 42  COMPLETE  AT  RELATIVE  CLOCK  « 6860  SEC. 


6785  FOR 
0 
0 

6799  FOR 


SECONDS. 


SECONDS. 


SECONDS . 


I SECONDS. 


10  SECONDS, 


60  SECONDS, 


11-A-46 


SUMMARY  Of  JOS  » 43 


FlLfc  NO 

» NUMRER  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

transfer  completed  AT 
RELATIVE  CLOCK  TIME  (SEC) 

41  » 

DURATION 

OF  TRANSFER  <SEC> 

REQUESTED 

THE 

SPS2 

PROCESSOR  AT 

REL*  CLK. 

6088 

SEC**  AND  HAS  SEIZED 

IT 

AT 

REL.  CLK. 

6088  fur 

1 

1 

1 

SPS 

DSC 

6090 

0 

l 

1 

DSC 

FMP 

6092 

0 

2 

I 

GPH2 

DSC 

6093 

1 

2 

\ 

DSC 

FMP 

6094 

0 

REQUESTEO 

THE 

FMP 

PROCESSOR  AT 

REL*  CLK. 

6095 

SEC* * ANO  HAS  SEIZED 

IT 

AT 

RFL*  CLK. 

6795  FOR 

10 

9 

90 

FMP 

OSC 

6810 

3 

9 

90 

DSC 

SPS 

6913 

53 

REQUESTED 

THE 

SPSS 

PROCESSOR  AT 

REL.  CLK* 

6914 

SEC*,  AND  HAS  SEIZED 

IT 

AT 

RFL.  CLK. 

6915  FOR 

60 

JOB  M 43  COMPLETE  AT  RELATIVE  CLOCK  * 6976  SEC* 


Summary  of  job  * 44 


FILE  NO 

• NUMQEH  of  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  at 
RELATIVE  CLOCK  TIME  (SEC)..* 

DURATION 

OF  TRANSFER  (SEC) 

requested  the 

SPS2 

PROCESSOR  AT 

REL*  CLK. 

6357  SEC*.  AND  HAS  SEIZED  IT  AT 

RFL*  CLK. 

6357  FOR 

l 

1 

l 

SPS 

DSC 

6359 

0 

1 

l 

DSC 

FMP 

6361 

0 

2 

1 

OPH1 

OSC 

6362 

1 

2 

t 

DSC 

FMP 

6363 

0 

REQUESTEO  THE 

FMP 

PROCESSOR  AT 

REL*  CLK* 

6364  SEC**  AND  HAS  SEIZED  IT  AT 

RFL.  CLK. 

6845  FOR 

10 

9 

90 

FMP 

DSC 

6862 

5 

9 

90 

DSC 

SPS 

6915 

52 

REQUESTEO  THf  SPS2  PROCESSOR  AT  R£L.  CLK*  6 916  SEC*,  ANO  HAS  SEIZED  IT  AT  RFL.  CLK.  6975  FOR  60 
JOB  * 44  COMPLETE  AT  RELATIVE  CLOCK  « 7036  SEC* 


SECONDS* 


SECONDS. 


SECONDS. 


SECONDS. 


SECONDS. 


SECONDS. 


SUMMARY  OF  JOS  * 4b 


: no 

. numbeh  of  from 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC).., 

duration 

OF  TRANSFER  (SEC) 

REQUESTED 

the 

SPS2  PROCESSOR  AT 

REL,  CLK. 

6530 

SEC.*  AND  HAS  SEIZED 

IT  AT 

REL,  CLK. 

6530  FOR 

1 

seconds 

REQUESTED 

the 

SPS2  PROCESSOR  AT 

REL.  CLK. 

7131 

SEC..  AND  HAS  SET2ED 

IT  AT 

RFL.  CLK. 

7131  FUR 

1 

SECONDS 

1 

l 

S PS 

DSC 

7133 

0 

l 

i 

DSC 

FMP 

7134 

0 

2 

I 

GPHI 

DSC 

7136 

1 

2 

1 

DSC 

FMP 

7137 

0 

REQUESTED 

THE 

FHP  PROCESSOR  AT 

REL.  CLK. 

7136 

SEC.*  AND  HAS  SETZEO 

IT  AT 

RFL.  CLK, 

7655  FUR 

10 

SECONDS 

B 

2 

FMP 

OSC 

7667 

0 

6 

2 

DSC 

SPS 

7670 

2 

REQUESTED 

the 

SPS2  PROCESSOR  AT 

REL.  CLK. 

7671 

SEC*.  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

7671  FOR 

60 

SECONDS, 

I 

> 

I 

4= 


SUMMARY  OF  JOB  » 46 


FILE  NO*  NUMBER  OF  FROM  TO 

BLOCKS  TRANSFERRED 

REQUESTED  THE  SPSi  PROCESSOR  AT  REL.  CLK. 
REQUESTED  THE  SPSi  PROCESSOR  AT  REL,  CLK. 


TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIME  ($EC>...  OF  TRANSFER  (SEC) 

6926  SEC.*  AND  HAS  SEIZED  IT  AT  REL.  CLK.  6926  FOR 

7527  SEC. « AND  HAS  SEIZED  IT  AT  RFL.  CLK.  7627  FOR 


1 SECONDS 

i seconds 


1 1-A-48 


SUMMARY  Of  JOB  U 47 


FILE  NO 

* NUMBER  OF  FROM 

BLOCKS  TRANSFERRED 

TO  TRANSFER  COMPLETED  AT 

RELATIVE  CLOCK  TIME  (SEC),** 

DURATION 

OF  TRANSFER  (SEC) 

REQUESTED  THE 

SPSl 

PROCESSOR  AT 

REL.  CLK*  7089 

SEC**  AND  HAS  SEIZEO 

IT  AT 

RFL.  CLK, 

70B9  FUR 

1 

SECONDS, 

i 

1 

SPS 

DSC 

7092 

O 

t 

I 

DSC 

FMP 

7093 

0 

2 

1 

GPH1 

DSC 

7094 

1 

2 

1 

DSC 

FMP 

7095 

0 

REQUESTED  THE 

FMP 

PROCESSOR  AT 

REL*  CLK*  7096 

SEC.*  AND  HAS' SEIZED 

IT  AT 

RFLo  CLK* 

7645  FOR 

10 

SECONDS 

a 

2 

FMP 

DSC 

7657 

0 

8 

2 

DSC 

SPS 

7659 

O 

REQUESTED  the 

SPSl 

PROCESSOR  AT 

REL*  CLK,  7660 

SEC**  ANO  HAS  SETZEO 

IT  AT 

RFL*  CLK, 

7660  FOR 

60 

SECONDS 

SUMMARY  Of  JOB  « 46 


FILE  NO*  NUMBER  Of  FROM  TO 

BLOCKS  TRANSFERRED 

REQUEST £0  THE  SPSl  PROCESSOR  AT  REL*  CU* 


TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIME  (SEC),.*  Of  TRANSFER  (SEC) 

TIAO  SEC**  AND  HAS  SEtZEO  IT  AT  RFL*  CLK,  7148  FOR 


serowns. 


SUMMARY  OF  JOS  # 49 


FILE  MO*  NUMBER  OF  FROM  TO 

BLOCKS  TRANSFERRED 


TRANSFER  COMPLETED  At  DURATION 

RELATIVE  CLOCK  TIME  (SEC).**  OF  TRANSFER  (SEC) 


REOUgSTEO  THE  SP51  PROCESSOR  AT  REL*  CLK*  7347  SEC**  ANO  HAS  SEIZED  IT  AT  REL.  CLK.  7347  FOR 


SFCONDS. 


SUMMARY  OF  JOB  « SO 


FILE  NO*  NUMBER  OF  FROM  TO 

BLOCKS  TRANSFERRED 

REQUESTED  THE  SPS1  PROCESSOR  AT  «EL*  CLK* 


transfer  completed  at  duration 

. RELATIVE  CLOCK  time  (SEC) * *«  OF  TRANSFER  (SEC) 
735A  SEC.*  AND  HAS  SEIZED  IT  AT  RFL.  CLK,  7354  FOR 


SECOwnS  * 


SUMMARY  OF  JOB  » 51 

F|LE  NO.  NUMBER  OF  FROM  TO'  TRANSFER  COMPLETED  AT  DURATION 

BLOCKS  TRANSFERRED  RELATIVE  CLOCK  TIME  (SEC).*.  OF  TRANSFER  (SEC) 

REQUESTED  THE  SPSS  PROCESSOR  AT  REL.  CLK • 7358  SEC. * AND  HAS  SEIZED  IT  AT  RFL.  CLK.  7358  FOR  \ SECONDS. 


i 

I 

SPS 

DSC 

7360 

0 

1 

1 

DSC 

FMP 

7361 

0 

2 

1 

OPH1 

DSC 

7363 

1 

2 

1 

DSC 

FMP 

7364 

0 

SUMMARY  OF  JOB  * 52 

FILE  NO.  NUMBER  OF  FROM  TO  TRANSFER  COMPLETED  AT  DURATION 

BLOCKS  TRANSFERRED  RELATIVE  CLOCK  TIME  (SEC)**.  OF  TRANSFER  CS£C) 

REQUESTED  THE  SPS1  PROCESSOR  AT  REL*  CLK.  7535  SEC*.  AND  HAS  SEIZED  IT  AT  REL.  CLK*  7535  FOR  1 srCONOS* 


1 

1 

SPS 

DSC 

7537 

0 

1 

1 

DSC 

FMP 

7538 

0 

2 

1 

0PH1 

DSC 

7540 

1 

2 

1 

DSC 

FMP 

7541 

0 

1 1-A-50 


SUMMARY  OF  JOB  ft  61 


FILE  NO 

• NUMBER  of  from 

blocks  transferred 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  <SEC)*#* 

DURATION 

OF  TRANSFER  (S£C> 

REQUESTED  THE  SPS1 

PROCESSOR  AT 

REL.  CLK«, 

613 

SEC.*  AND  HAS  SEIZED  IT  AT 

RFl e CLK. 

813  FOR 

X 

SECONDS, 

requested  the  spsi 

PROCESSOR  AT 

PEL*  CLK. 

H14 

SEC..  AND  HAS  SEIZED  IT  AT 

RFL.  CLK. 

1414  FOR 

1 

SECONDS, 

1 

2 

SPS 

OSC 

1417 

0 

1 

2 

DSC 

FMP 

1418 

0 

2 

2 

GPH2 

OSC 

i 

1421 

2 

2 

2 

DSC 

FMP 

1422 

0 

J 

IV 

SPS 

DSC 

1427 

5 

3 

19 

DSC 

FMP 

1429 

0 

requested  the  fmp 

PROCESSOR  AT 

RELc  CLK* 

1430 

SEC. i AND  HAS  SEIZED  IT  AT 

RFL*  CLK. 

2349  FOr 

60 

SECONDS 

9 

125 

FMP 

OSC 

2415 

4 

9 

125 

FMP 

DSC 

2421 

5 

9 

12S 

OSC 

SPS 

2485 

69 

9 

125 

DSC 

SPS 

2490 

6T 

JOB  # 61  COMPLETE  AT  RELATIVE  CLOCK  « 2491  SEC. 


IS“V-1  l 


SUMMARY  OF  JOB  » 62 


FILE  NO 

*v 

4 *4 

' ,t  > 

. number  Of  from 

BLOCKS  TRANSFERRED 
REOUESTEO  THE  SPS2  PROCESSOR  AT 

TO 

PEL.  CLK, 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  <SEC>,„. 

1349  SEC, » ANO  HAS  SEIZED  IT  AT 

DURATION 

OF  TRANSFER  ISEC1 
RFL*  CLK.  1349  FOR 

1 

SECONDS 

l 

2 

SPS 

DSC 

1351 

0 

1 

; 2 

DSC 

FMP 

1353 

0 

z 

i 

GPH1 

SPS 

1354 

1 

REOUESTEO 

THE 

SPS2  PROCESSOR  AT 

REL.  CLK. 

1355 

SEC. » AND  HAS  SEIZED 

IT  AT 

RFL*  CLK, 

1355  FUR 

BO 

SECONDS 

2 

* 

2 

SPS 

DSC 

1436 

0 

2 

2 

DSC 

FMP 

1438 

0 

J 

l* 

SPS 

DSC 

1443 

5 

3 

19 

DSC 

FMR 

1445 

0 

REOUESTEO 

THE 

fmp  PROCESSOR  AT 

REL.  CLK. 

1 446 

SEC. * ANO  HAS  SETZED 

IT  AT 

RFL,  CLK. 

2409  FUR 

60 

SECONDS, 

d 

6 

FMP 

DSC 

2471 

0 

d 

6 

DSC 

SPS 

2475 

2 

REQUESTED 

the 

SPS2  PROCESSOR  AT 

REL.  CLK, 

2476 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

2476  FOR 

180 

SECONDS, 

7 

4 

SPS 

GPH1 

2660 

2 

JOB  # 62  COMPLETE 

AT  RELATIVE  CLOCK  * 2661  SEC. 

SUMMARY  Of  JOB  « 63 


FILE  NO 

• NUMBER  or  FROM 

blocks  transferred 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC) « . o 

duration 

OF  TRANSFER  (SEC) 

REQUESTED  THE 

SRS2 

processor  AT 

REL*  CL K. 

1355 

SEC.  * AND  HAS  SEIZED 

XT  AT 

REL.  CLK. 

1355  FOR 

i 

REQUESTED  THE 

SRS2 

processor  at 

REL,  CLK. 

1956 

SEC. « AND  HAS  SEIZED 

IT  AT 

REL.  CLK. 

1956  FOR 

1 

requested  the 

SPSS 

processor  at 

REL.  CLK. 

225T 

SEC. * AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

2257  FOR 

1 

1 

2 

SPS 

DSC 

2260 

0 

1 

2 

DSC 

FMP 

2261 

0 

2 

2 

0PH2 

DSC 

2264 

3 

2 

2 

DSC 

FMP 

2265 

0 

3 

19 

SPS 

OSC 

2271 

9 

3 

19 

DSC 

FMP 

2272 

0 

REQUESTED  the 

FMP 

PROCESSOR  AT 

REL.  CLK. 

2273 

SEC. t>  AND  HAS  SEIZED 

IT  At 

RFL.  CLK* 

2539  FOR 

60 

a 

12 

FMP 

OSC 

2601 

0 

a 

12 

OSC 

SPS 

2664 

a 

REQUESTED  the 

SPS2  PROCESSOR  AT 

REL*  CLK. 

2665 

SEC.*  AND.  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

27?4  FOR 

360 

7 

a 

SPS 

GPH2 

3090 

4 

JOB  * 63  COMPLETE 

AT  RELATIVE  CLOCK  ■ 3091  SEC. 

SECONDS. 

SECONDS, 

SECONDS. 


SECONDS. 

SECONDS. 


-53 


SUMMAAV  OF  JOB  U 64 


rue  NO 

. NUMBER  OF  FROM 

BLOCKS  TRANSFERRED 

to  transfer  completed  AT 

RELATIVE  CLOCK  TIME  <SEC)»,. 

DURATION 

OF  TRANSFER  {SEC) 

REQUESTED  THE 

SPSI 

PROCESSOR  AT 

R£L.  CLK,  2014 

SEC. • AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

2014  FOR 

1 

SECONDS. 

REQUESTED  THE 

SPSI 

PROCESSOR  AT 

REL » CLK.  2615 

SEC. • AND  HAS  SEIZEO 

IT  AT 

RFL . CLK. 

2615  FOR 

1 

SFCONOS. 

1 

2 

SPS 

DSC 

2618 

0 

1 

2 

DSC 

FMP 

2619 

0 

d 

2 

QPH2 

DSC 

2622 

2 

d 

2 

DSC 

FMP 

2623 

0 

3 

1* 

SPS 

DSC 

2628 

5 

3 

DSC 

FMP 

2630 

0 

REQUESTED  THE 

FMP 

PROCESSOR  AT 

REL.  CLK.  2631 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

2631  FOR 

60 

SECONDS, 

0 

6 

FMP 

DSC 

2692 

0 

0 

6 

DSC 

SPS 

2695 

2 

REQUESTED  THE 

SPSI 

PROCESSOR  AT 

REL.  CLK.  2696 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

2696  FOR 

)80 

SECONDS. 

7 

4 

SPS 

6PH2 

2880 

2 

job  n 

64  COMPLETE 

AT  RELATIVE  CLOCK  ■ 2881  SEC. 

SUMMARY  OF  JOS  * 65 


I 

> 

I 

U1 

-Cr 


FILE  NO 

• number  of  from 

blocks  transferred 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SCO... 

DURATION 

OF  TRANSFER  (SEC) 

REQUESTED  the 

SPS1 

PROCESSOR  AT 

REL.  CLK. 

2862 

SEC.*  AND  HAS  SEIZED 

IT  AT 

REL.  CLK. 

2882  FOR 

l 

SECONDS* 

requested  the 

SPSl 

PROCESSOR  AT 

REL.  CLK. 

3483 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

3483  FOR 

I 

SECONDS. 

X 

2 

SPS 

OSC 

3485 

0 

\ 

2 

OSC 

FMP 

3487 

0 

2 

2 

QPH2 

DSC 

3489 

2 

2 

2 

OSC 

FMP 

3491 

0 

3 

19 

SPS 

DSC 

3496 

5 

3 

19 

DSC 

FMP 

3498 

0 

REQUESTED  THE 

FMP 

PROCESSOR  AT 

REL,  CtK. 

3499 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

3499  FOR 

60 

SECONDS. 

8 

6 

FMP 

DSC 

3560 

0 

6 

6 

DSC 

SPS 

3563 

2 

requested  the 

SPSl 

PROCESSOR  AT 

REL.  CLK. 

3564 

SEC.*  AND  HAS  SEIZED 

IT  AT 

PFL.  CLK. 

3564  FUR 

180 

seconds; 

7 

4 

SPS 

GPH2 

3747 

2 

JOB  * 65  COMPLETE  AT  RELATIVE  CLOCK  o 3748  SEC. 


-55 


SUMMARY  OF  JOB  # 66 


E NO 

t NUMBE*  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEO... 

DURATION 

OF  TRANSFER  <SEC> . 

REQUESTED  THE 

SPS1 

w 

PROCESSOR  AT 

HEL.  CLK. 

2965 

SEC..  AND  HAS  SEIZED 

IT  AT 

PEL • CLK,  2965  FOr 

1 

SECONDS 

REQUESTED  THE 

bPSl 

PROCESSOR  AT 

HEL.  CLK. 

3566 

SEC. # AND  HAS  SEIZED 

IT  AT 

REL.  CLK.  3592  FOR 

1 

SECONDS 

1 

2 

SPS 

OSC 

3595 

0 

1 

2 

ObC 

FMP 

3596 

0 

z 

2 

GPH1 

DSC 

3599 

3 

z 

2 

DSC 

FMP 

3601 

0 

j 

19 

SPS 

OSC 

3612 

11 

j 

19 

DSC 

FMP 

3614 

1 

REQUEbTEO  Th£ 

FMP 

PROCESSOR  AT 

«EL.  CLK. 

3615 

SEC. • AND  has  seized 

IT  AT 

RfL*  CLK.  3615  FOR 

60 

SECONDS 

V 

125 

FMP 

DSC 

368  l1 

4 

• 

9 

125 

FMP 

OSC 

3689 

7 

9 

125 

DSC 

SPS 

3751 

69 

9 

125 

DSC 

SPS 

3758 

67 

’ 

JOB  » 66  COMPLETE  AT  RELATIVE  CLOCK  * 3759  SEC. 


1 1-A-56 


SUMMARY  OF  JOB  # 67 


FILE  NO 

• NUMBER  of  from 

BLOCKS  TRANSFERRED 

TO  TRANSFER  COMPLETED  AT 

RELATIVE  CLOCK  TIME  <SEC).** 

DURATION 

OF  TRANSFER  (SEC) 

requested  the 

SPS1  PROCESSOR  AT 

REL.  CLK,  3077 

SEC*#  AN()  HAS  SEIZED 

IT  AT 

RFL*  CLK, 

3077  FOR 

1 

SECONDS 

1 

2 

SPS 

DSC 

3030 

1 

1 

2 

DSC 

FMP 

3081 

0 

2 

2 

OPH2 

SPS 

3082 

1 

REQUESTED  THE 

SPS1  PROCESSOR  AT 

REL.  CLK*  3063 

SEC*#  AND  HAS  SEIZED 

IT  AT 

RFL*  CLK. 

3063  FUR 

80 

SECONDS 

2 

2 

SPS 

osc 

3165 

0 

2 

2 

DSC 

FMP 

3166 

0 

3 

1* 

SPS 

DSC 

3172 

5 

3 

19 

DSC 

FMP 

3174 

0 

REQUESTED  the 

FMP  PROCESSOR  AT 

REL.  CLK,  3175 

SEC*#  AND  HAS  SEIZED 

IT  AT 

RFL*  CLK* 

3175  FOR 

60 

SECONDS 

9 

126 

FMP 

OSC 

32*0 

4 

9 

125 

FMP 

DSC 

3247 

5 

9 

125 

DSC 

SPS 

3309 

68 

9 

125 

DSC 

SPS 

3315 

67 

uoe  * 67  complete 

AT  RELATIVE  CLOCK  * 3316  SEC* 

-57 


SUMMARY  OF  JOB  * 68 


FILE  NO, 

, NUMBER  OF  * FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  tIHE  (SEC). 

> o • 

OF 

DURATION 
TRANSFER  (SEC) 

REQUESTED  THE 

SPS2 

PROCESSOR  AT 

REL'.  CLKt 

3280 

SEC**  AND 

HAS  SEIZED 

IT 

AT 

RFL. 

CLK. 

3280  FOR 

1 

SECONDS. 

REQUESTED  THE 

SPS2 

PROCESSOR  AT 

PEL*  CLK. 

3881 

SEC.*  AND 

HAS  SEIZED 

IT 

AT 

RFL. 

CLK. 

3881  FUR 

1 

SECONDS. 

REQUESTED  THE 

SPSS 

PROCESSOR  AT 

PEL » CLK  « 

4182 

SEC.*  AND 

HAS  SET2E0 

IT 

AT 

RFL. 

CLK. 

4182  FUR 

i 

SECONDS. 

1 

2 

SPS 

DSC 

4 185 

0 

1 

2 

OSC 

FMP 

4186 

0 

2 

2 

GPH1 

OSC 

4189 

3 

2 

2 

DSC 

FMP 

4190 

0 

3 

IV 

SPS 

DSC 

4195 

5 

3 

IV 

DSC 

FMP 

4197 

0 

REQUESTED  THE 

FMP 

PROCESSOR  AT 

PEL*  CLK. 

4198 

SEC.*  AND 

HAS  SETZFO 

IT 

AT 

RFL. 

CLK. 

4515  FOR 

60 

SECONDS. 

8 

6 

FHP 

DSC 

4577 

0 

“k 

8 

6 

DSC 

SPS 

4580 

2 

1 

> 

requested  the 

SPS2 

PROCESSOR  AT 

REL.  CLK. 

4581 

SEC..  AND 

HAS  SEIZED 

IT 

AT 

RFL. 

CLK. 

4631  FOR 

1 BO 

SECONDS. 

7 4 SPS  GPH1  4814  2 


JOS  * 68  COMPLETE  AT  RELATIVE  CLOCK  » 4815  SEC. 


■1 1-A-58 


SUMMARY  Of  JOB  I 69 


IU  NO 

• NUMBEK  of  from 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEOc.o 

OURATION 

OF  TRANSFER  (SEC) 

REQUESTED  THE 

SPS2 

PROCESSOR  AT 

REE*  CUi 

3338 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

3338  rOR 

1 

SECONDS. 

requested  the 

SRS2 

PROCESSOR  AT 

REL0  CLK. 

3939 

SEC.*  AND  HAS  SEIZED 

IT  At 

»EL.  CLK. 

3939  FOR 

1 

SECONDS. 

I 

2 

SPS 

DSC 

3942 

0 

1 

2 

DSC 

FMP 

3944 

0 

2 

2 

0PH2 

DSC 

3946 

2 

2 

2 

OSC 

FMP 

3947 

0 

3 

i* 

SPS 

DSC 

3953 

5 

3 

19 

DSC 

FMP 

3955 

0 

REQUESTED  THE 

FmP 

PROCESSOR  AT 

REL.  CLKe 

3956 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

4385  FOR 

60 

SECONDS. 

a 

6 

FMP 

DSC 

4447 

0 

ti 

6 

DSC 

SPS 

4450 

1 

requested  the 

SPS2 

PROCESSOR  AT 

REL.  CLK* 

4451 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

4451  FOR 

180 

SECONDS. 

7 

4 

SPS 

0PH2 

4634 

2 

JOB  A 69  COMPLETE  AT  RELATIVE  CLOCK  a 4635  SEC. 


I 

> 

l 

cn 

vC 


FILE  NO,  NUMBER  OF 

blocks  transferred 


SUMMARY  OF  JOB  tf  70 
FROM  TO 


TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIME  (SEC),,,  nF  TRANSFER  (SEC) 


requested 

the 

SPS2 

PROCESSOR 

AT 

HEL, 

CLK  * 

3S30 

SEC,  ♦ 

AND 

HAS 

SEIZED 

IT 

AT 

u, 

a. 

CLK. 

3530 

for 

requested 

the 

SRS2 

PROCESSOR 

AT 

NEL, 

CLK, 

4131 

SEC,  * 

AND 

HAS 

SEIZED 

IT 

AT 

REL, 

CLK, 

4f31 

FOR 

i 

2 

SPS 

DSC 

4134 

‘ 

0 

i 

2 

DSC 

FMP 

4135 

0 

2 

2 

GPH 1 

DSC 

4136 

3 

• 

2 

2 

DSC 

FMP 

4140 

0 

3 

IV 

SPS 

DSC 

4245 

5 

3 

IV 

DSC 

FMP 

4147 

0 

requested 

the 

FMP  PROCESSOR  AT 

HEL,  CLK,  4148 

SEC.*  ANO 

HAS  SEIZED 

IT 

AT 

*»FL. 

CLK, 

4455 

FOr 

a 

12 

FMP 

DSC 

4517 

' 

0 

a 

)2 

DSC 

SPS 

4521 

3 

REQUESTED 

THE 

SPS2  PROCESSOR  AT 

HEL,  CLK,  4522 

SEC.*  AND 

HAS  SEIZED 

IT 

AT 

neu 

CLK, 

4522 

FOR 

7 

a 

SPS 

(3PH1 

4886 

4 

J08  # 70  COMPLETE 

AT  RELATIVE  CLOCK  m 4089 

SEC. 

60 


360 


SECONDS, 

SECONDS, 


SECONDS, 

SECONDS, 


09- 


SUMMARY  OF  JOB  # 71 


I 

> 


FILE  NO 

• number  of  from 

BLOCKS  TRANSFERRED 

TO 

TRAN5FER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  <SEC)i 

» » • 

DURATION 

OF  TRANSFER  <S£C> 

REQUESTED 

the 

SPS2 

PROCESSOR  AT 

REL#  CLK • 

3729 

SEC#.  ANO  HAS  SEIZED 

IT 

AT 

RFl.  Cl  K * 

3729 

FUR 

REQUESTED 

THE 

SPS2 

PROCESSOR  AT 

REL.  CLK# 

4330 

SEC#*  AND  HAS  SE|2EO 

IT 

AT 

RFL.  CLK# 

4330 

FOR 

i 

Z 

SPS 

DSC 

4333 

0 

1 

2 

DSC 

FMP 

4334 

0 

2 

2 

GPH2 

OSC 

4336 

2 

2 

2 

DSC 

FMP 

4336 

0 

3 

SPS 

OSC 

4343 

5 

3 

19 

DSC 

FMP 

4345 

0 

requested 

the 

FMP 

PROCESSOR  AT 

REL,  CLK# 

4346 

SEC#*  ANO  HAS  SEIZED 

IT 

AT 

RFLe  CLK# 

5235 

FOR 

9 

125 

FMP 

OSC 

5309 

12 

9 

125 

FMP 

DSC 

5320 

9 

9 

125 

OSC 

SPS 

5398 

67 

9 

125 

DSC 

SPS 

5402 

* 

80 

JOB  # 71  COMPLETE 

AT  RELATIVE  CLOCK  » 5403  SEC. 

1 

l 


60 


sec owns 

seconds 


SECONDS 


19-V-l  l 


SUMMARY  OF  JOB  * 72 


: no 

. number  of  from 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SECL... 

DURATION 

OF  transfer  <sec> 

reouesteo  the 

SPS1 

PROCESSOR  AT 

«EL.  CLK. 

3799 

SEC* • AND  HAS  SETZFD 

IT  AT 

RFL.  CLK. 

3799  FOR 

1 

SECONDS 

1 

2 

SPS 

DSC 

3002 

0 

X 

2 

DSC 

fmp 

3603 

0 

z 

2 

GPH1 

SPS 

3804 

1 

REQUESTED  THE 

SPS* 

PROCESSOR  AT 

REL.  CLK* 

3005 

SEC*  ? AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

3605  FUR 

. 60 

SECONDS 

2 

2 

SPS 

DSC 

3866 

0 

2 

2 

DSC 

FMP 

3060 

0 

3 

IV 

SPS 

DSC 

3893 

5 

3 

JV 

DSC 

FMP 

3095 

0 

REQUESTED  the 

FMP 

PROCESSOR  AT 

MEL.  CLK. 

3096 

SEC* • and  HAS  SEIZED 

IT  AT 

RFL.  CLK, 

43JS  FUr 

60 

SECOwnS 

0 

6 

V 

FMP 

DSC 

4377 

0 

0 

6 

DSC 

SPS 

4360 

1 

REOUESTEO  The 

SPS1 

PROCESSOR  AT 

REL.  CLK. 

4361 

SEC.*  AND  HAS  SEIZED 

IT  AT 

REL.  CLK. 

4361  FOR 

LBO 

SECONDS, 

7 

4 

SPS 

GPH1 

4564 

2 

Joe  u 

t 72  COMPLETE 

AT  RELATIVE  CLOCK  - 4565  SEC. 

29” 


SUMMARY  OF  JOB  * 73 


NO 

♦ number  of  from 

BLOCKS  TRANSFERRED 

TO  TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIME  <SEC>...  OF  TRANSFER  (SEC) 

REQUESTED  THE 

SPS1 

PROCESSOR  AT 

REL*  CLK • 4152 

SEC* • AND  HAS  SEIZED 

IT  AT  'RFLo  r 1 K. 

4152  FOR 

1 

SECOmdS. 

REQUESTED  THE 

SPS1 

PROCESSOR  AT 

REL.  CLK*  4753 

SEC » e AND  HAS  SEIZED 

IT  AT  RFLo  CLK* 

4942  FOR 

1 

* SECONDS. 

requested  the 

SPS1 

PROCESSOR  AT 

REL*  CLK*  5243 

SEC* i AND  HAS  SETZEO 

IT  AT  RFL.  CLK. 

5243  FOR 

l 

SECONDS. 

i 

2 

SPS 

OSC 

5246 

0 

I 

2 

DSC 

FMP 

5247 

0 

2 

2 

GPH1 

DSC 

5254 

6 

2 

2 

DSC 

FMP 

5255 

0 

3 

\V 

SPS 

OSC 

5262 

6 

3 

19 

DSC 

FMP 

5264 

1 

REQUESTED  the 

FMP 

PROCESSOR  AT 

REL.  CLK*  5265 

SEC*t>  AND  HAS  SEIZED 

IT  AT  RFL*  CLK* 

5995  FOR 

60 

SECONDS. 

a 

6 

FMP 

DSC 

6057 

0 

a 

6 

DSC 

SPS 

6127 

l 

REQUESTED  THE 

SPSl 

PROCESSOR  AT 

REL*  CLK*  6128 

SEC*  o AND  HAS  SEIZED 

IT  AT  RFL*  CLK. 

6279  FOR 

180 

SECONDS. 

7 

* 

SPS 

©PHI 

6462 

2 

JOB  * 73  COMPLETE  At  RELATIVE  CLOCK  » 6*63  SEC* 


1 1-A-63 


SUMMARY  OF  JOB  # 74 

FILE  NO.  NUMBER  OF  FROM  TO  TRANSFER  COMPLETED  AT  DURATION 

BLOCKS  TRANSFERRED  RELATIVE  CLOCK  TIME  (SECl...  OF  TRANSFER  <SEC> 


REQUESTED 

THE 

SPSi 

PROCESSOR  AT 

REL.  CLK. 

5879 

SEC..  AND 

HAS 

SEIZED 

IT 

AT 

RFL. 

CLK  » 

5879 

FOR 

1 

SECONDS, 

REQUESTED 

THE 

SPSl 

PROCESSOR  AT 

REL.  CLK. 

6480 

SEC. t AND 

HAS 

SEIZED 

IT 

AT 

RFU 

CLK, 

6480 

FOR 

l 

SECONDS. 

i 

2 

SPS 

DSC 

6482 

0 

i 

2 

DSC 

FMP 

6483 

0 

2 

2 

OPHl 

DSC 

6486 

2 

• 

2 

2 

DSC 

FMP 

6487 

0 

3 

19 

SPS 

DSC 

6493 

6 

3 

, 

DSC 

FMP 

6495 

0 

REQUESTED 

the 

FMP 

PROCESSOR  AT 

REL.  CLK. 

6496 

SEC. i AND 

HAS 

seizeo 

IT 

AT 

HSU 

CLK. 

6855 

FOR 

60 

SECONDS. 

8 

12 

• 

FMP 

DSC 

6917 

0 

8 

12 

DSC 

SPS 

6922 

3 

REQUESTED 

the 

SPSl 

PROCESSOR  AT 

REL*  CLK. 

6923 

SEC.i  AND 

HAS 

SEIZED 

IT 

AT 

«FL. 

CLK, 

6923 

FOR 

360 

SECONDS. 

7 

8 

SPS 

OPHl 

7289 

4 

JOB  * 74  COMPLETE  AT  RELATIVE  CLOCK  * 7290  SEC. 


SUMMARY  Of  JOB  # 75 


FILE  NO 

0 number  of  from 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  <SEC>... 

DURATION 

OF  TRANSFER  (SEC> 

requested 

the 

SPS2  PROCESSOR  AT 

REL.  CLK. 

6148 

SEC.  » AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

6148  FOR 

I 

SECONDS 

REQUESTED 

the 

SPS2  PROCESSOR  AT 

REL.  CLKo 

6749 

SEC. » AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

6749  FUR 

1 

SFCONDS 

requested 

the 

SPS2  PROCESSOR  AT 

REL.  CLK. 

7050 

SEC. • AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

7268  FOR 

! 

SECONDS 

1 

2 

SPS 

DSC 

7271 

0 

1 

2 

DSC 

FMP 

7273 

0 

2 

2 

GPHl 

DSC 

7275 

2 

2 

2 

DSC 

FMP 

7276 

0 

3 

l* 

SPS 

DSC 

72B2 

5 

3 

19 

DSC 

FMP 

7283 

0 

requested 

the 

FMP  PROCESSOR  AT 

PEL*  CLK. 

7284 

SECot  ANO  HAS  SETZEO 

IT  AT 

RFL.  CLK. 

7665  FOr 

60 

SECONDS, 

I 

5> 


SUMMARY  OF  JOB  « 76 


FILE  NO.  NUMBER  OF  FROM  TO 

BLOCKS  TRANSFERRED 


requested 

THE 

SPS2 

PROCESSOR  AT 

REL.  CLK 

REQUESTED 

the 

SPS2 

PROCESSOR  AT 

REL.  CLK 

1 

2 

SPS 

OSC 

i 

2 

DSC 

FMP 

2 

2 

GPH1 

DSC 

2 

2 

OSC 

FMP 

3 

19 

SPS 

DSC 

3 

. 

19 

DSC 

FMP 

REQUESTED 

the 

FMP 

PROCESSOR  AT 

REL.  CLK 

9 

125 

FMP 

DSC 

9 

125 

FMP 

OSC 

I 

> 

I 

ON 

lh 


transfer  completed  at 

RELATIVE  CLOCK  TIME  (SEC) . . * 

DURATION 

OF  TRANSFER  ISECl 

6215 

SEC. » AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

6215  FOR 

1 

SFCONDS 

6316 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL*  CLK. 

70?l  FOR 

1 

SECONDS 

7024 

0 

7025 

0 

7 0 2B 

2 

7029 

0 

7041 

5 

7042 

0 

7043 

SEC. t AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

75R5  FOr 

60 

SECOND 

7651 

4 

7650 

6 

SUMMARY  OF  JOB  S 77 


FILE  NO 

• NUMBER  of  from 

TO 

TRANSFER  COMPLETED  AT 

DURATION 

BLOCKS  TRANSFERRED 

RELATIVE  CLOCK  TIME  {SEC).*. 

OF  TRANSFER  {SEC) 

requested  the 

SPS2  PROCESSOR  AT 

REL.  CLK,  6486 

SEC. o ANO  HAS  SEIZED 

IT  AT 

REL.  CLK. 

6486  FOR 

l 

SECONDS. 

1 

2 

SPS 

DSC 

6489 

0 

i 

2 

DSC 

FMP 

6490 

0 

2 

2 

GPH1 

SPS 

6491 

1 

requested  T 

SPS2  PROCESSOR  AT 

REL*  CLK.  6492 

SEC. • AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

6492  FOR 

80 

SECONDS. 

2 

2 

SPS 

DSC 

6574 

0 

2 

2 

DSC 

FMP 

6575 

0 

3 

19 

SPS 

DSC 

6581 

5 

3 

1 9 

DSC 

FMP 

6583 

0 

requested  the 

FMP  PROCESSOR  AT 

REL.  CLK  * 6584 

SEC. 6 AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

6925  FOR 

60 

SECONDS. 

ti 

6 

FMP 

DSC 

6987 

0 

B 

6 

DSC 

SPS 

7023 

2 

1 

> 

REQUESTED  the 

SPS2  PROCESSOR  AT 

REL.  CLK.  7024 

SEC.*  ANO  HAS  SEIZED 

IT  AT 

REL.  CLK. 

7088  FOr 

180 

SECONDS. 

1 

ON 

7 

4 

SPS 

GRHl 

7272 

2 

CT* 

JOB  * 77  COMPLETE 

AT  RELATIVE  CLOCK  » 7273  SEC. 

SUMMARY  OF  JOB  » 70 


FILE  HO 

• NUMBER  of  from 

BLOCKS  TRANSFERRED 

TO 

transfer  completed  at 
RELATIVE  CLOCK  TIME  (SEO.,. 

DURATION 

or  transfer  i sec) 

REQUESTED 

THE  SPS2 

PROCESSOR  AT 

PEL#  CLK* 

6522 

SEC»»  AND  HAS  SEIZED 

IT  AT 

REL.  CLK. 

6522  FOR 

l 

SECONDS. 

REQUESTED 

THE  SPS2 

processor  AT 

PEL*  CLK| 

7123 

SEC*'  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK* 

7269  F9R 

1 

SECONDS. 

REQUESTED 

THE  SPS2 

PROCESSOR  AT 

fl£L#  CLK* 

7570 

SEC*#  AND  HAS  SEIZED 

IT  AT 

BFL#  CLK* 

7570  FOR 

I 

SECONDS* 

I 

2 

SPS 

OSC 

7573 

0 

1 

2 

DSC 

FMp 

7574 

0 

2 

2 

GPHX 

OSC 

7577 

2 

2 

2 

OSC 

FMP 

7578 

0 

3 

IV 

SPS 

OSC 

7584 

5 

3 

19 

OSC 

rwp 

7586 

0 

I 

P> 

CTk 

-3 


SUMMARY  OF  JOB  * 79 


, NO 

• number  OF 

BLOCKS  TRANSFERRED 

FROM 

l 

TO 

TRANSFER  COMPLETED 
RELATIVE  CLOCK  TIME 

AT 

1 S£c) ««  # 

DURATION 

OF  TRANSFER  <SEC> 

requested  the 

SPS2 

PROCESSOR  AT 

PEL.  CLK, 

6767  SEC.#  AND 

HAS 

SEIZED 

IT  AT 

PEL.  CLK, 

6767  FOR 

1 SECONDS. 

REQUESTEO  THE 

SPS2 

PROCESSOR  AT 

NEl.  CLK, 

7368  SEC.#  ANO 

HAS 

SEIZED 

IT  AT 

RFL.  CLK. 

7368  FOR 

1 SECONDS* 

I 

2 

SPS 

OSC 

T371 

0 

i 

2 

OSC 

FMP 

7372 

0 

2 

2 

GPHl 

DSC 

7375 

2 

2 

2 

OSC 

FMP 

7376 

0 

3 

19 

SPS 

DSC 

7382 

5 

3 

19 

DSC 

FMP 

7383 

0 

1 1-A-68 


SUMMARY  OF  JOB  0 80 


FILE  NO®  NUMBER  OF  FROM  TO  TRANSFER  COMPLETED  AT  DURATION 

BLOCKS  TRANSFERRED  RELATIVE  CLOCK  TIME  (SEC)®.*  OF  TRANSFER  (SEC) 

REOUESTEO  THE  SPSl  PROCESSOR  A 7 PEL.  CU . 7302  SEC* ? AND  HAS  SEIZED  IT  AT  RfU  CLK*  7302  FOR  1 


SUMMARY  OF  JOB  0 81 


NUMBER  OF 

FROM 

TO 

TRANSFER  COMPLETED 

AT 

DURATION 

BLOCKS  TRANSFERRED 

RELATIVE  CLOCK  TIME 

( SEC) o o o 

OF  TRANSFER  (SEC) 

REUliebTeo  THE  SPS1  PROCESSOR  at  REL.  CLK.  7595  SEC..  AND  HAS  SEIZED  IT  At  REL.  CLK.  7595  FOR  \ 


SUMMARY  OF  JOB  * 85 


si 

££ 


: NO 

■>  NUMBER  of 

FROM 

TO 

transfer  completed  at 

DURATION 

BLOCKS  TRANSFERRED 

RELATIVE  CLOCK  TIME  (SEC), 

» * • 

OF  TRANSFER  (SEC) 

l 

4 

SPS 

OSC 

397 

l 

1 

4 

DSC 

FMP 

398 

0 

2 

4 

OPHJ 

SPS 

401 

2 

REQUESTeO  THE  SPSl 

PROCESSOR  AT 

HEL.  CLK. 

402 

SEC®.  AND  HAS  SEIZED 

IT 

AT 

PEL.  CLK* 

402  FOR 

360 

3 

46 

SPS 

DSC 

777 

14 

' 

3 

46 

DSC 

FMP 

700 

2 

3 

46 

sps 

OSC 

792 

14 

3 

46 

DSC 

FMP 

795 

1 

REQUESTED  the  fmp 

PROCESSOR  AT 

HEL®  CLK* 

796 

SEC.*  AND  HAS  SEIZED 

IT 

AT 

flFL*  CLK* 

1009  FOft 

60 

8 

3 

FMP 

DSC 

1070 

0 

8 

3 

DSC 

SPS 

1072 

1 

REQUESTED  the  spsi 

PROCESSOR  AT 

PEL*  CLK* 

1073 

SEC* * ANO  HAS  SEIZED 

IT 

AT 

RFL.  CLK* 

1073  FOR 

300 

7 

2 

SPS 

GPHI 

1375 

1 

JOB 

A 85  COMPLETE 

AT  RELATIVE  CLOCK  * 1376  SEC* 

SECONDS. 


SECONDS. 


SECONDS. 


SECOttnS. 


SECONDS. 


1 1-A-69 


SUMMARY  OF  JOB  H 86 


FILE  NO 

• NUMBEH  of  from 

blocks  transferred 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC)... 

DURATION 

OF  TRANSFER  (SEC) 

I 

4 

SPS 

DSC 

3684 

2 

1 

4 

DSC 

FHP 

3686 

0 

2 

4 

SPS 

DSC 

3687 

1 

Z 

4 

DSC 

FMP 

3689 

0 

REQUESTED  the 

FHP 

PROCESSOR  AT 

REL.  CLK. 

3690 

SEC.#  AND  HAS  SET2ED 

IT  AT 

RFL.  CLK. 

4275  FOR 

Mo 

SECONDS. 

requested  the 

FMP 

PROCESSOR  AT 

H£L  » CLK. 

4286 

SEC*#  ANO  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

4575  FOR 

60 

SECONDS. 

9 

160 

FHP 

osc 

4642 

5 

B 

3 

FHP 

DSC 

4643 

0 

,9 

160 

DSC 

SPS 

4689 

46 

a 

3 

DSC 

SPS 

4690 

0 

REQUESTEO  the 

SPS2 

PROCESSOR  AT 

HEL.  CLK. 

4691 

SEC.#  AND  HAS  SEIZED 

IT  AT 

FPL.  CLK. 

4811  FOR 

300 

SECONDS. 

7 

2 

SPS 

0PH2 

5113 

1 

JOB  « 86  COMPLETE  AJ  RELATIVE  CLOCK  * 5114  SEC. 


11-A-70 


SUMMARY  OF  JOB  * 87 


file  no 

* NUMBER  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC)*,. 

DURATION 

OF  TRANSFER  (SEC) 

l 

4 

SPS 

OSC 

4570 

1 

X 

4 

DSC 

FMP 

4579 

0 

2 

4 

GPH2 

SPS 

4501 

2 

REQUESTED  The  SPSJ 

PROCESSOR  AT 

REL.  CLKc 

4562 

SEC..  AND  HAS  SEIZED 

IT  AT 

RFL*  CLK, 

4502  FOR 

360 

SECONDS* 

i 

92 

SPS 

DSC 

4970 

26 

3 

92 

DSC 

FMP 

4974 

3 

REQUESTED  THE  FMP 

PROCESSOR  AT 

REL*  CLK* 

4975 

SEC • i AND  HAS  SEIZED 

IT  AT 

RFL.  CLK* 

5915  FOR 

60 

SECONDS* 

B 

3 

FHP 

DSC 

5977 

0 

ti 

3 

DSC 

SPS 

5979 

1 

REQUESTED  THE  SRSl 

PROCESSOR  AT 

REL*  CLK« 

5900 

SEC"  AND  HAS  SEjZfD 

IT  AT 

RFL.  CLK* 

5900  FOR 

300 

SECONDS* 

7 

2 

SPS 

GPH2 

6202 

1 

JOB  # 07  COMPLETE  AT  RELATIVE  CLOCK  **  6203  SEC, 


1 1-A-71 


SUMMARY  OF  JOB  « BB 


FILE  NO 

. NUMBE«  OF 

BLOCKS  TRANSFERRED 

FROM 

to 

transfer  completed  at 

RELATIVE  CLOCK  TIME  (SEC). 

• » 

duration 

OF  TRANSFER  (SEC) 

I 

4 

SP5 

osc 

4890 

1 

1 

4 

DSC 

FMP 

4092 

0 

2 

4 

SPS 

DSC 

4892 

1 

• 

2 

4 

DSC 

FMP 

4894 

0 

REQUESTED  THE 

FMP 

PROCESSOR  AT 

REL.  CLK. 

4895 

SEC. • and  has  seized 

11 

AT 

REL.  CLK. 

5905  FOR 

10’ 

SECONDS. 

REQUESTED  THE 

FMP 

PROCESSOR  AT 

REL*  CLK. 

5916 

sec.#  and  has  seized 

IT 

AT 

REL.  CLK. 

6715  FOR 

60- 

SECONDS. 

9 

220 

FMP 

DSC 

6784 

7 

a 

3 

FMP 

DSC 

6785 

0 

a 

3 

DSC 

SPS 

6707 

1 

REQUESTED  THE 

SPS2 

PROCESSOR  AT 

REL.  'CLK. 

6788 

SEC.#  ANO  HAS  SEIZED 

IT 

AT 

REL.  CLK. 

6788  FOR 

300 

SECONDS. 

7 

2 

SPS 

GPHt 

7091 

1 

JOB  a 

i sa  complete 

AT  RELATIVE  CLOCK  * 7092  SEC* 

SUMMARY  OF  JOS  * 89 


FILE  NO.  NUMBER  OF  FROM  TO 

BLOCKS  TRANSFERRED 


TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TINE  (SEC)...  OF  TRANSFER  (SEC) 


REQUESTED  THE  SPS1  PROCESSOR  AT  REL.  CLK«  73S7  SEC.#  AND  HAS  SEIZED  IT  AT  REL*  CLK.  7357  FOR  3 SECONDS 


SPS 

DSC 

SPS 


DSC 

FHP 

DSC 

FMP 


7363 

7364 
7366 


2 


4 


osc 


7367 


0 


22.- V- 1 L 


summary  of  job  n 92 


FILE  NO.  NUMBEH  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED 
RELATIVE  CLOCK  TIME 

AT 

(SEC)..* 

nURAIION 
OF  TRANSFER 

l A 

SPS 

DSC 

1 

1 

1 4 

DSC 

FMP 

2 

0 

2 4 

GPH2 

SPS 

4 

2 

REQUESTED  THE 

SPSI 

PROCESSOR  AT 

REL.  CLK. 

5 

SEC.i  AND 

HAS 

SEIZED 

IT 

AT 

RFL. 

CLK. 

S FOR 

360 

SECONDS. 

3 

92 

SPS 

D5C 

393 

27 

3 

92 

DSC 

FMP 

398 

3 

REQUESTED  THE 

FMP 

PROCESSOR  AT 

REL.  CLK. 

399 

SEC.*  AND 

HAS 

SETZED 

IT 

AT 

RFL. 

CLK. 

399  FUR 

600 

SECONDS. 

8 

e 

FMP 

DSC 

1000 

< 

0 

8 

8 

DSC 

SPS 

1004 

2 

requested  the 

SPSI 

PROCESSOR  AT 

REL.  CLK. 

1005 

SEC.*  AND 

HAS 

SEIZED 

IT 

at 

REL. 

CLK. 

1005  FUR 

360 

SECONnS. 

REQUESTED  THE 

SPSI 

PROCESSOR  AT 

REL.  CLK. 

1366 

SEC. » AND 

HAS 

SET ZED 

IT 

AT 

RFL  e 

CLK. 

1366  FUR 

360 

SECONDS • 

? 

3 

SPS 

OPH2 

1728 

- 

l 

JOB  * 92  COMPLETE  AT  RELATIVE  CLOCK  * 1729  SEC* 


SUMMARY  Of  JOS  # 93 


; no 

• NUMBER  of  from 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  <SEC>*** 

DURATION 

OF  TRANSFER  <S£C> 

i 

4 

SPS 

DSC 

1104 

1 

i 

4 

DSC 

FMP 

1105 

0 

2 

4 

SPS 

DSC 

1106 

1 

2 

4 

DSC 

FMP 

1107 

0 

requested 

THE 

FMP 

PROCESSOR  AT 

PEL*  CLK* 

1108 

SEC*.  AND  HAS  SEIZED 

IT  AT 

RFL*  Cl  K. 

nos 

FOR 

10 

SECONDS 

requested 

the 

FMP 

PROCESSOR  AT 

PEL.  CLK* 

1119 

SEC*  t AND  HAS  SEIZED 

IT  AT 

REL*  CLK. 

ni9 

for 

600 

SECONDS 

9 

310 

FHP 

DSC 

1731 

10 

S 

a 

FMP 

DSC 

1732 

0 

a 

B 

DSC 

SPS 

1736 

2 

REQUESTED 

the 

SPS2 

PROCESSOR  AT 

REL,  CLK* 

1737 

SEC*  > AND-HAS  SEIZED 

IT  AT 

RFL*  CLK* 

1737 

FUR 

360 

SFCOwnS 

REQUESTED 

THE 

SPS2 

PROCESSOR  AT 

REL*  CLK* 

2098 

SEC* • AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

2098 

FUR 

360 

SECONDS 

7 

3 

SPS 

GPH2 

2461 

1 

JOB  n 93  COMPLETE  AT  RELATIVE  CLOCK  * 2462  SEC* 


-74 


SUMMARY  OF  JOB  * 94 


FILE  NO 

♦ number  Of  FROM 

BLOCKS  TRANSFERRED 

TO 

transfer  completed  at 
RELATIVE  CLOCK  TIME  tSECl,,. 

DURATION 

OF  TRANSFER  fSEC) 

REQUESTED  THE  SPS2 

PROCESSOR  AT 

REL.  CLKc 

ii  n 

SEC* • AND  HAS  SEIZED 

IT  AT 

REL.  CLK. 

1171  FOR 

3 

SECONDS. 

1 

4 

SPS 

DSC 

1177 

1 

1 

4 

DSC 

FMP 

1178 

0 

2 

4 

SPS 

osc 

1179 

1 

2 

4 

DSC 

FMP 

1160 

0 

REQUESTED  the  fmp 

PROCESSOR  AT 

REL.  CLK. 

nai 

SEC. 9 AND  HAS  SEIZEO 

IT  AT 

RFL.  CLK. 

1729  FUR 

600 

SECONDS. 

a 

8 

FMP 

DSC 

2331 

0 

0 

8 

DSC 

SPS 

2335 

3 

REQUESTED  the  SPSS 

PROCESSOR  AT 

REL.  CLK. 

2336 

SEC* t AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

2336  FOR 

360 

SECONDS. 

9 

160 

FMP 

DSC 

2337 

6 

REQUESTED  THE  SPSS 

PROCESSOR  AT 

REL.  CLK. 

2697 

SEC*t  ANO  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

2697  FOR 

360 

SECONDS. 

7 

3 

SPS 

GPH2 

3060 

1 

JOB  A 94  COMPLETE  AT  RELATIVE  CLOCK  » 3061  SEC. 


1 1-A-75 


SUMMARY  OF  JOB  to  95 


FILE  NO 

0 NUMBER  OF  FROM 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  (SEC)... 

DURATION 

OF  TRANSFER  (SEC) 

I 

A 

SPS 

DSC 

3226 

1 

1 

4 

DSC 

FMP 

3229 

0 

Z 

4 

OPHl 

SPS 

3231 

2 

REQUESTED  the  SPSi 

PROCESSOR  AT 

PEL.  CLK,  3232 

SEC,.  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

3232 

FOR 

360 

3 

46 

SPS 

DSC 

3615 

21 

3 

46 

DSC 

FMP 

3619 

2 

3 

46 

SPS 

DSC 

3630 

14 

* . 

3 

46 

DSC 

FMP 

3633 

1 

requested  the  fmp 

PROCESSOR  AT 

RELo  CLK,  3634 

SEC,.  AND  HAS  SEIZED 

IT  AT 

RFL,  CLK* 

3675 

FOR 

600 

a 

& 

FMP 

DSC 

4277 

0 

a 

9 

DSC 

SPS 

4260 

2 

REQUESTED  the  spsi 

PROCESSOR  AT 

«EL,  CLK,  42B J 

SEC, e AND  HAS  SEIZED 

IT  AT 

RFL©  CLK, 

42B 1 

FOR 

360 

REQUESTED  THE  SPSI 

PROCESSOR  AT 

PEL*  CLK,  4642 

SEC,.  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

4642 

FOR 

360 

7 

3 

SPS 

OPHl 

5005 

1 

JOB  to  95  COMPLETE  AT  RELATIVE  CLOCK  ' 5006  SEC. 


V>  & 


CT4? 


SECONDS. 


SECONDS. 

SECONDS* 

seconds* 


SUMMARY  OF  JOB  U 96 


FILE  NO. 

number  of 

blocks  transferred 

FROM 

TO 

TRANSFER  COMPLETED 
RELATIVE  CLOCK  TIME 

AT 

{ SEC ) • 1 1 

DURATION 
OF  TRANSFER 

1 

6 

SPS 

OSC 

3755 

1 

1 

4 

DSC 

FMP 

3757 

0 

2 

4 

SPS 

DSC 

3756 

1 

4 

osc 

FMP 

3759 

0 

REQUESTED 

the 

FMP 

PROCESSOR  AT 

REL.  CLK. 

3760 

SEC,*  AND 

HAS 

SEIZED 

IT 

AT 

RFlo 

CLK, 

4295  FOR 

10 

SECONDS, 

* 

REQUESTED 

the 

FMP 

PROCESSOR  AT 

REL.  CLK. 

4306 

SEC.*  AND 

HAS 

SEIZEO 

IT 

AT 

RFL. 

CLK. 

4635  FOR 

600 

SECONDS, 

9 

160 

FMP' 

DSC 

5242 

5 

0 

8 

FMP 

DSC 

5244 

O 

0 

8 

DSC 

SPS 

5249 

4 

* 

REQUESTED 

THE 

SRS2 

PROCESSOR  AT 

REL,  CLK. 

5250 

SEC..  AND 

HAS 

SEIZED 

IT 

AT 

RFL. 

CLK. 

5250  FOR 

360 

SECONDS, 

9 

160 

DSC 

SPS 

5343 

99 

REQUESTED 

the 

SPS2 

PROCESSOR  AT 

REL,  CLK. 

5611 

SEC,*  AND 

HAS 

SEIZED 

IT 

AT 

RFL. 

CLK. 

5611  FOR 

360 

SECONDS 

1 

> 

7 

3 

SPS 

GPH2 

5974 

1 

I JOB  # 96  COMPLETE  At  RELATIVE  CLOCK  * 5975  SEC* 

Cf\ 


11-A-77 


SUMMARY  OF  JOB  * 97  ? 


FILE  NO 

• number  of  from 

BLOCKS  TRANSFERRED 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  <SEC).*o 

DURATION 

OF  TRANSFER  <SEC> 

1 

4 

SPS 

DSC 

3927 

1 

X 

4 

DSC 

FMP 

3929 

0 

2 

4 

SPS 

DSC 

3930 

l 

2 

4 

DSC 

FMP 

3931 

0 

REQUESTEO  the 

FMP 

PROCESSOR  AT 

REL.  CLK. 

3932 

SEC. t AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

' 4375 

FOR 

10 

SECONDS 

REQUESTED  THE 

FMP 

PROCESSOR  AT 

PEL*  CLK. 

4366 

SEC.*  AND  HAS  SEIZED 

IT  At 

RFL.  CLK. 

5295 

FOR 

600 

SECONDS 

9 

310 

FMP 

DSC 

S911 

14 

a 

a 

FMP 

DSC 

5912 

0 

a 

6 

DSC 

SPS 

5918 

4 

requested  the 

SRSl 

PROCESSOR  AT 

REL.  CLK. 

5919 

SEC « * AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

5919 

FOR 

36  0 

SECONDS 

REQUESTED  THE 

SRS1 

PROCESSOR  AT 

REL.  CLK. 

6260 

SEC.*  AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

62B0 

FOR 

36  0 

SECONDS 

7 

3 

SPS 

GPH2 

6643 

I 

* 

JOB  i 

* 97  COMPLETE 

AT  RELATIVE  CLOCK  • 6644  SEC. 

1 1-A-78 


SUMMARY  or  JOB  * 98 


FILE  NO 

• numreh  of 

BLOCKS  TRANSFERRED 

FROM 

1 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME  <$EC>.0« 

DURATION 

OF  TRANSFER  (SEC) 

1 

4 

SPS 

DSC 

4901 

1 

i 

4 

osc 

FMP 

4902 

0 “ 

z 

4 

0PH2 

SPS 

4905 

2 

REQUESTED  THE  SPS2 

PROCESSOR  AT 

REL*  CLK. 

4906 

SEC* » AND  HAS  SEIZED 

IT  AT 

RFL.  CLK. 

4906 

FOR 

360 

seconds; 

3 

46 

SPS 

OSC 

5295 

28 

1 

3 

4b 

DSC 

FMP 

5303 

6 

3 

46 

SPS 

DSC 

5337 

40 

3 

46 

DSC 

FMP 

5343 

4 

requested  the  fmp 

PROCESSOR  AT 

MELo  CLKo 

5344 

SEC  * » AND  HAS  SEIZED 

IT  AT 

RFL*  CLK. 

6055 

FOR 

600 

SECONDS. 

U 

8 

FMP 

DSC 

6657 

0 

a 

a 

OSC 

SPS 

6660 

2 

REQUEMEO  the  SPS2 

PROCESSOR  AT 

R£L.  CLK. 

6661 

SEC**  AND  HAS  SEIZED 

IT  AT 

RFL*  CLK « 

6661 

for 

360 

SECONDS. 

requested  THE  SPS2 

PROCESSOR  AT 

R£L * CLK. 

7022 

SEC.*  AND  HAS  SETZEO 

IT  AT 

RFL.  CLK. 

7024 

for 

360 

SECONDS. 

7 

3 

SPS 

GPH2 

7307 

1 

JOB  4 

> 98  COMPLETE 

AT  RELATIVE  CLOCK  ft  7308  SEC. 

-79 


SUMMARY  OF  J08  # 99 


FILE  NO 

• NUMBS*  of  from 

BLOCKS  TRANSFERRED 

TO 

transfer  completed  AT 

RELATIVE  CLOCK  TIME  (SEO... 

duration 

OF  TRANSFER  (SEC) 

1 

4 

SPS 

OSC 

5946 

1 

1 

4 

DSC 

FNP 

5947 

0 

2 

4 

SPS 

DSC 

5940 

1 

2 

4 

DSC 

FMP 

5949 

0 

requested  THE 

FMP 

PROCESSOR  AT 

PEL,  CLK. 

5950 

SEC.fr  AND  HAS  SEI2EO  IT  AT 

RFL.  CLK. 

6775  FOR 

,10 

SECONDS 

REQUESTED  THE 

FMP 

PROCESSOR  AT 

PEL,  CLK. 

6786 

SEC.*  AND  HAS  SEWED  IT  AT 

REL.  CLK. 

6985  FOr  * 

600 

SECONDS 

8 

B 

FMP 

DSC 

7587 

0 

ti 

8 

DSC 

SPS 

7590 

2 

REUUE^ED  THE 

SPS2 

PROCESSOR  AT 

PEL.  CLK. 

7591 

SEC . ta  AND  HAS  SEIZED  IT  AT 

RFL.  CLK. 

7591  FOr 

36  0 

SECONDS 

I 

> 


-80 


SUMMARY  OF  FILE  TRANSFER  REQUESTS 


JOB  NO* 

FILE  NO. 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

Transfer  completer  at 

RELATIVE  CLOCK  TIMF(SEC)...  OF 

duration 

transfer 

<SFC. ) 

92 

1 

4 

SPS 

DSC 

l 

1 

92 

1 

4 

DSC 

FHP 

2 

0 

92 

2 

4 

6PH2 

SPS 

4 

* 2 

JOB 

* 

92 

REQUESTED 

THE 

SPS1  PROCESSOR 

AT 

REL*  CLK. 

5 SEC. » 

AND  HAS 

SEIZED  IT 

AT 

RFL.  CLK. 

b 

FOR  360 

SECONDS i 

JOB 

it 

l 

requested 

THE 

SPS2  PROCESSOR 

AT 

REL*  CLK. 

157  SEC. t 

AND  HAS 

SEIZED  IT 

AT 

REL.  CLK. 

1ST 

FOR 

1 

SFC0NOS, 

JOB 

it 

2 REQUESTED 

the 

SPS2  PROCESSOR 

AT 

REL*  CLK. 

251  SEC*  * 

AND  HAS 

SEIZED  IT 

AT 

REL.  CLK. 

251 

FOR 

r 

SECONDS, 

JOB 

H 

3 

REQUESTED 

the 

SPS2  PROCESSOR 

AT 

REL*  CLK. 

354  SEC*  t 

AND  HAS 

SEIZEO  IT 

AT 

REL.  CLK. 

354 

FOR 

i 

SECO'iOS, 

3 

I 

1 

SPS 

DSC 

356 

0 

3 

• 

I 

I 

DSC 

FHP 

35T 

0 

3 

2 

1 

GPHl 

DSC 

359 

1 

3 

2 

1 

DSC 

FHP 

360 

0 

JOB 

it 

3 

REQUESTED 

the 

FHP  PROCESSOR 

AT 

REL.  CLK. 

361  SEC** 

AND  HAS 

SEIZED  IT 

AT 

REL.  CLK. 

36  i 

FOR 

10 

SECONDS, 

3 

a 

2 

FHP 

DSC 

372 

0 

3 

8 

2 

DSC 

SPS 

374 

0 

JOB 

it 

3 

REQUESTED 

the 

SPS2  PROCESSOR 

AT 

REL*  CLK. 

375  SEC.* 

and  HAS 

SEIZED  IT 

AT 

REL.  CLK. 

375 

FOR 

60 

SECONDS 

JOB 

it 

4 

REQUESTED 

the 

SPS1  PROCESSOR 

AT 

REL*  CLK. 

390  SEC.* 

AND  HAS 

SEIZEO  IT 

AT 

REL.  CLK. 

390 

FOR 

l 

SECONDS 

92 

3 

92 

SPS 

DSC 

393 

2? 

65 

1 

4 

SPS 

DSC 

397 

1 

92 

3 

92 

DSC 

FHP 

396 

3 

18-V-i l 


FILE  TRANSFER  SUMMARY  * PAOC  2 


JOB  NO* 
85 
85 


l 

1 

1 

1 

85 

65 

85 

85 


7 

7 

7 


FILE  NO. 

number  OF 

FROM 

TO 

transfer  completed  at 

DURATION 

BLOCKS 

TRANSFERRED 

RELATIVE  CLOCK  TIME (SEC) ...  OF  TRANSFER 

{SEC. > 

1 

4 

DSC 

FHP 

398 

0 

JOB 

# 

92  REQUESTED 

the 

FHP 

PROCESSOR 

AT 

REL.  CLK. 

399  SEC*  • 

AND 

HAS 

SEIZED  IT 

AT 

RFL* 

CLK* 

399 

FOR  600 

seco'ios. 

2 

4 

GPHX 

SPS 

401 

2 

JOB 

* 

85 

REQUESTED 

the 

SPS1 

PROCESSOR  at 

REL*  CLK, 

402  SEC*  • 

AND 

HAS 

SEIZED  IT 

AT 

REL* 

CLK* 

402 

FOR  360 

SECONDS. 

JOB  A 

» 3 

complete  at 

RELATIVE  CLOCK  ■ 436 

SEC. 

JOB 

u 

5 

requested'  the 

SPS2 

PROCESSOR 

AT 

REL*  CLK* 

745  SEC*. 

AND 

HAS 

SEIZEO  IT 

AT 

REL* 

CLK* 

745 

FOR  ' 

I 

seconds. 

JOB 

ft 

l 

requested 

THE 

SPS2 

PROCESSOR 

AT 

REL*  CLK* 

758  SEC*  t 

ANO 

HAS 

SEIZEO  IT 

AT 

RFL. 

CLK* 

758 

FOR 

1 

seconds. 

1 

1 

SPS 

OSC 

761 

0 

1 

1 

DSC 

FMP 

762 

0 

2 

I 

GPH2 

DSC 

764 

1 

2 

1 

OSC 

FHP 

765 

0 

- 

JOB 

ft 

6 

REQUESTED 

the 

SPS2 

PROCESSOR 

AT 

REL*  CLK. 

775  SEC*# 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK, 

775 

FOR 

1 

SECONDS. 

3 

46 

SPS 

DSC 

777 

14 

3 

46 

DSC 

FMP 

780 

2 

3 

46 

SPS 

DSC 

792 

14 

3 

46 

DSC 

FMP 

795 

1 

JOB 

ft 

61 

requested 

THE 

SPS1 

PROCESSOR 

AT 

REL*  CLK. 

813  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK. 

813 

FOR 

1 

SECONDS. 

JOB 

ft 

2 

requested 

THE 

SPS2 

PROCESSOR 

AT 

REL*  CLK* 

852  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL* 

CLK. 

852 

FOR 

1 

SECONDS. 

JOB 

ft 

7 

requested 

THE 

SPS1 

PROCESSOR 

AT 

REL*  CLK. 

940  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK* 

940 

FOR 

1 

SECONDS. 

l 

l 

SPS 

OSC 

942 

0 

1 

X 

DSC 

FMP 

943 

0 

2 

1 

GPH2 

OSC 

945 

1 

FILE  TRANSFER  SUMMARY  - PAGE  3 


I 

> 

l 

CO 

ro 


JOB  NO* 

FILE  NO. 

number  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

transfer  complete*  at 

RELATIVE  CLOCK  TIMFISFCI.. 

duration 
„ OF  TRANSFER 

(SFC.l 

7 

2 

1 

DSC 

FMP 

946 

0 

JOB 

# 

4 

REQUESTED 

THE 

SPSl 

PROCESSOR 

AT 

REL.  CLK. 

991  SEC*# 

AND 

HAS 

SEIZED  IT 

AT 

RFL# 

CLK. 

991 

FOR 

1 

SECONDS. 

4 

1 

1 

SPS 

DSC 

993 

0 

4 

1 

1 

DSC 

FMP 

994 

0 

4 

2 

1 

GPH1 

DSC 

996 

1 

4 

2 

1 

DSC 

FMP 

997 

'0 

JOB 

ft 

1 

requested 

the 

FMP 

PROCESSOR 

AT 

REL*  CLK. 

766  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK. 

999 

FOR 

m 

SECONDS, 

92 

B 

a 

FMP 

DSC 

1000 

0 

92 

B 

8 

DSC 

SPS 

1004 

? 

JOB 

U 

92 

REQUESTED 

the 

SPSl 

PROCESSOR 

AT 

REL*  CLK. 

1005  SEC*  t 

and 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK. 

1005 

FOR 

360 

SECONDS, 

JOB 

ft 

as  Requested 

The 

FMP 

PROCESSOR 

AT 

REL*  CLK. 

796  SEC*# 

AND 

HAS 

SEIZED  IT 

AT 

REL# 

CLK. 

1009 

FOR 

60 

SECONDS, 

1 

8 

2 

FMP 

DSC 

1010 

0 

1 

3 

2 

osc 

SPS 

1012 

0 

JOB 

ft 

1 

requested 

the 

SPS2 

PROCESSOR 

AT 

REL*  CLK. 

1013  SEC.# 

and 

HAS 

SEIZED  IT 

AT 

REL. 

CLK* 

1013 

FOR 

60 

SECONDS, 

JOB 

u 

8 

requested 

THE 

SPS2 

PROCESSOR 

AT 

REL#  CLK. 

1032  SEC*# 

AND 

HAS 

SEIZED  IT 

AT 

RFL# 

CLK* 

1032  FOR 

1 

SECONDS, 

JOB 

ft 

7 

requested 

The 

FMP 

PROCESSOR 

AT 

REL*  CLK# 

947  SEC.# 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK. 

106* 

FOR 

10 

SECONDS, 

63 

8 

3 

FMP 

OSC 

1070 

0 

85 

a 

3 

DSC 

SPS 

1072 

1 

JOB 

ft 

65 

REQUESTED 

THE 

SPSl 

PROCESSOR 

AT 

REL#  CLK. 

1073  SEC.# 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK. 

10T3 

FOR 

300 

SECO* DS 

JOB  M 1 COMPLETE  AT  RELATIVE  CLOCK  « 1074  SEC* 

JOB  # 4 REOUESTEO  THE  FMP  PROCESSOR  AT  REL.  CLK.  996  SEC*#  AND  HAS  SEIZED  IT  AT  REL.  CLK.  1079  FOR  10  SECONDS. 


T 

8 

2 

FMP 

DSC 

1080 

T 

6 

2 

OSC 

SPS 

1082 

T REQUESTED  THE  SPSl  PROCESSOR  AT  REL.  CLK.  1003  SEC#«  and  has  SEIZED  IT  AT  REL#  CLK*  10S3  FOR 


JOB  # 


60  SECONDS 


£8“V“l  l 
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JOB  NO> 

FILE  NO# 

number  of 

faLOCKS  TRANSFERRED 

FROM 

70 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME1SECU, 

duration 

,#  OF  TRANSFER 

(SEC.) 

JOB  # 

9 

REQUESTED 

THE 

SPS2  PROCESSOR 

AT 

REL.  CLK# 

1067  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

RFL* 

CLK,  1067 

FOR 

1 

secor  DS. 

4 

9 

90 

FMP 

DSC 

1093 

3 

93 

1 

4 

SPS 

OSC 

1104 

1 

93 

1 

4 

DSC 

FMP 

1105 

0 

93 

2 

4 

SPS 

OSC 

1106 

1 

JOB  tf 

10 

REQUESTED 

THE 

SPS2  PROCESSOR 

AT 

REL*  CLK, 

1106  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK,  1106 

FOR 

* 1 

SFCDnDS. 

93 

2 

4 

DSC 

FMP 

HOT 

0 

JOB  * 

93 

requested 

THE 

fmp  PROCESSOR 

AT 

REL.'  CLK# 

1106  SEC.* 

and 

HAS 

SEIZED  IT 

AT 

RFL* 

CLK,  1106 

for 

10 

SFOONDS. 

JOB  4 

93 

requested 

THE 

FMP  PROCESSOR 

AT 

REL#  CLK# 

1119  SEC#* 

AND 

HAS 

SEIZED  IT 

AT 

RFL* 

CLK,  1119 

FOR  600 

SECONDS. 

JOB  * 7 COMPLETE  AT  RELATIVE  CLOCK  ■ 1144 

SEC. 

JOB  U 

2 

requested 

THE 

SPS2  PROCESSOR 

AT 

REL,  CLK. 

1153  sec** 

AND 

HAS 

SEIZED  IT 

AT 

RFl  # 

CLK.  HS3 

FOR 

1 

SECONDS. 

2 

1 

1 

SPS 

OSC 

1155 

0 

2 

1 

1 

DSC 

FMP 

1156 

0 

2 

2 

1 

GPH1 

DSC 

1157 

1 

2 

2 

l 

DSC 

FMP 

1159 

0 

4 

9 

90 

DSC 

SPS 

1170 

26 

JOB  # 

4 

requested 

THE 

SPSl  PROCESSOR 

AT 

REL.  CLK# 

1171  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK#  1171 

FOR 

60 

secdnos.’ 

JOB  tf 

94 

requested 

the 

SPS2  PROCESSOR 

AT 

REL.  CLK# 

1171  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

REL# 

CLK#  1171 

FOR 

3 

SECONDS • 

94 

1 

4 

SPS 

DSC 

1177 

1 

' 

94 

1 

4 

DSC 

FMP 

1176 

0 

94 

2 

4 

SPS 

DSC 

1179 

l 

94 

2 

4 

osc 

FMP 

1160 

0 

JOB  * 4 COMPLETE  AT  RELATIVE  CLOCK  * 1232  SEC* 


FILE  TRANSFER  SUMMARY  - PAGE  5 


joq  no t 

FILE  NO. 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

Transfer  completed  at  ouration 

RELATIVE  CLOCK  TIME (SEC> OF  TRANSFER 

(SEC.) 

JOB 

* 

11 

REQUESTED 

THE 

SPS2 

PROCESSOR 

AT 

REL.  CLK, 

1297  SEC*  » 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK.  1297  FOR 

1 

SECONDS 

11 

1 

1 

SPS 

DSC 

1299 

0 

ii 

1 

1 

DSC 

FMP 

1300 

0 

n 

2 

1 

OPH2 

DSC 

1301 

1 

n 

2 

1 

DSC 

FMP 

1303 

0 

JOB 

# 

5 

requested 

The 

SPS2 

PROCESSOR 

AT 

REL*  CLK. 

1366  SEC*  * 

AND  HAS 

SEIZED  IT 

AT 

REL* 

CLK*  1366  FOR 

1 

SECONDS 

JOB 

# 

62 

requested 

the 

SPS2 

PROCESSOR 

AT 

REL*  CLK. 

1369  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK,  1369  FOR 

1 

SECONDS 

s 

1 

1 

SPS 

DSC 

1369 

0 

5 

1 

1 

DSC 

FMP 

1350 

0 

5 

2 

1 

GPH2 

DSC 

1351 

1 

62 

1 

2 

SPS 

DSC 

1351 

0 

5 

2 

1 

DSC 

FMP 

1352 

0 

62 

1 

2 

DSC 

FMP 

1353 

0 

62 

2 

2 

GPH1 

SPS 

1356 

1 

JOB 

62 

REQUESTED 

.the 

SPS2 

PROCESSOR 

AT 

REL*  CLK. 

1355  SEC.* 

AND  HAS 

SEIZEO  IT 

AT 

REL. 

CLK.  1355  FOR 

80 

SECONDS, 

JOB 

# 

63 

requested 

THE 

SPS2 

PROCESSOR 

AT 

REL*  CLK, 

1355  SEC*# 

AND  HAS 

SEIZED  IT 

AT 

REL* 

CLK.  1355  FOR 

1 

SECONDS, 

JOB 

* 

92 

requested 

The 

spsi 

PROCESSOR 

AT 

REL*  CLK, 

1366  SEC*. 

ANO  HAS 

SEIZEO  IT 

AT 

REL. 

CLK,  1366  FOR  360 

SEC0NOS, 

85 

7 

2 

SPS 

GPH1 

1375 

1 

JOB 

* 

6 

requested  the 

SPS2 

PROCESSOR 

AT 

REL*  CLK, 

1376  SEC*  o 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK.  1376  FOR 

1 

SECONDS, 

JOB  n 85  COMPLETE  AT  RELATIVE  CLOCK  p 1376 

SEC. 

JOB 

U 

61 

requested 

THE 

SPSI 

PROCESSOR 

AT 

REL.  CLK, 

1616  SEC.* 

AND  HAS 

SEIZEO  IT 

AT 

RFL. 

CLK.  1616  FOR 

1 

SECONDS, 

61 

1 

2 

SPS 

DSC 

1617 

0 

61 

1 

2 

DSC 

FMP 

1618 

0 

11-A-85 
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JOB  NO « 

FILE  NO, 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

transfer  completed  at  duration 

RELATIVE  CLOCK  TIMFISEC),..  OF  TRANSFER 

(SEC.) 

61 

2 

2 

GPH2 

DSC 

1421 

2 

61 

2 

2 

OSC 

FMP 

1422 

0 

61 

3 

19 

SPS 

DSC 

1427 

5 

6l 

3 

19 

DSC 

FMP 

1429 

0 

62 

2 

2 

SPS 

OSC* 

1436 

0 

62 

2 

2 

OSC 

FMP 

1438 

0' 

62 

3 

19 

SPS 

DSC 

1443 

5 

62 

3 

19 

DSC 

FMP 

1445 

0 

JOB  * 

12 

HEQUESTED 

THE 

SPS2 

PROCESSOR 

AT 

REL.  CLK, 

14B7  SEC, t 

AND 

HAS 

SEIZED  IT  AT  REL, 

CLK.  14BT  FOR 

1 

SECONDS*. 

JOB  U* 

a 

requested 

THE 

SPS2 

PROCESSOR 

AT 

REL.  CLK, 

1633  SEC,# 

AND 

HAS 

SEIZED  IT  AT  REL. 

CLK*  1633  FOR 

1 

SECONDS. 

3 

l 

1 

SPS 

DSC 

1635 

0 

8 

1 

l 

DSC 

FMP 

1636 

0 

8 

2 

1 

GPH2 

OSC 

1637 

1 

8 

2 

1 

OSC 

FMP 

1639 

0 

JOB  * 

6 

REQUESTED 

THE 

SPS2 

PROCESSOR 

AT 

REL*  CLK, 

1677  SEC,. 

AND 

HAS 

SEIZED  IT  AT  REL* 

CLK,  1677  FOR 

1 

SECONDS, 

6 

1 

1 

SPS 

DSC 

1680 

0 

6 

1 

1 

DSC 

FMP 

1631 

0 

^ 6 

2 

l 

GPH1 

OSC 

1632 

1 

6 

2 

1 

OSC 

FMP 

1683 

0 

JOB  » 

13 

requested 

the 

SPS2 

PROCESSOR 

AT 

REL « CLK, 

1686  SEC,. 

AND 

HAS 

SEIZED  IT  AT  RELo 

CLK*  1686  FOR 

1 

SECONOS. 

JOB  ft 

9 

requested 

THE 

SPS2 

PROCESSOR 

AT 

REL.  CLK, 

1688  SEC.# 

ANO 

HAS 

SEIZED  IT  AT  REL. 

CLK,  1688  FOR 

1 

SECONDS. 

9 

1 

l 

SPS 

DSC 

1690 

0 

9 

l 

1 

OSC 

FMP 

1692 

0 

9 

2 

1 

GPH2 

OSC 

1693 

1 

FILE  TRANSFER  SUMMARY  - PAGE  7 


JOB  NO* 

FILE  N0o 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIME(SEC>*, 

duration 
OF  TRANSFER 

(SEC, 1 

9 

' 2 

1 

DSC 

FMP 

1694 

0 

JOB 

U 

10 

HEQUESTeO 

THE 

SPS2  PROCESSOR 

AT 

REL*  CLK, 

1707  SEC,* 

AND 

HAS 

SEIZED  IT 

AT 

REL* 

CLK, 

1707 

FOR 

1 

SECONDS 

JOB 

U 

2 

requested 

THE 

FMP  PROCESSOR 

AT 

REL*  CLK, 

1 1 60  SEC, « 

AN£> 

HAS 

SEIZED  IT 

at 

REL, 

CLK, 

1719 

FOR 

10 

SECONOS 

92 

7 

3 

SPS 

GPH2 

1728 

1 

JOB 

u 

94 

REQUESTED 

THE 

FMP  PROCESSOR 

AT 

REL*  CLK, 

1161  SEC*  t 

AND 

HAS 

SEIZED  IT 

At 

REL. 

CLK, 

1729 

FOR 

600 

SEC  O' OS, 

JOS  « 

1 92  COMPLETE  AT  RELATIVE  CLOCK  • 1729 

SECi 

« 

2 

8 

2 

FMP 

DSC 

1730 

0 

93 

9 

310 

FMP 

DSC 

1731 

10 

2 

a 

2 

DSC 

SPS 

1732 

0 

93 

e 

8 

FMP 

DSC 

1732 

0 

JOB 

2 

requested 

the 

SPS2  PROCESSOR 

AT 

REL*  CLK, 

1733  SEC*  t 

and 

HAS 

SEIZED  IT 

AT 

RFL* 

CLK, 

1733 

FOR 

60 

*5FCONOS 

93 

b 

8 

DSC 

SPS 

1736 

2 

JOB 

* 

93 

REQUESTED 

The 

SPS2  PROCESSOR 

AT 

REL*  CLK, 

1737  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK. 

1737 

FOR 

360 

SECONDS 

JOB  * 
1 

f 2 COMPLETE  AT  RELATIVE  CLOCK  « 1794 

SEC, 

JOB 

« 

14 

KEQUESTEO 

the 

SPSI  PROCESSOR 

AT 

REL*  CLK, 

1801  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK. 

1801 

FOR 

1 

SFCONDS 

JOS 

# 

15 

REQUESTED 

THE 

SPS1  PROCESSOR 

AT 

REL*  CLK, 

1816  SEC*. 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK, 

lai* 

FOR 

1 

SECONDS 

IS 

1 

1 

SPS 

DSC 

1819 

0 

15 

l 

1 

DSC 

FMP 

1820 

0 

15 

2 

1 

GPH2 

DSC 

1821 

1 

IS 

2 

1 

DSC 

FMP 

1823 

0 

JOB 

# 

63 

REQUESTED 

the 

SPS2  PROCESSOR 

AT 

REL,  CLK. 

1956  SEC* i 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK, 

1956 

FOR 

1 

SECONDS, 

JOB 

* 

10 

KEQUESTEO 

THE 

SPS2  processor 

AT 

REL*  CLK, 

2008  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

RFL, 

CLK. 

2008 

FOR 

1 

SFCO^OS 

10 

1 

1 

SPS 

DSC 

2011 

0 

10 

1 

1 

DSC 

FMP 

2012 

0 

FILE  TRANSFER  SUMMARY  • PAGE  8 


JOB  NOt 

FILE  NO* 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM  TO 

TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIME (SEC) • OF  TRANSFER 

(SEC.) 

10 

2 

1 

0PH1  DSC 

2013 

1 

JOB 

« 

64 

requested 

the 

SPSi 

PROCESSOR 

AT 

REL*  CLK*  2014  SEC.i 

AND 

HAS 

SEIZED  IT 

AT 

REL.  CLK* 

2014 

FOR 

1 

SECONDS. 

10 

2 

1 

DSC  FKP 

2015 

ft 

JOB 

« 

16 

REQUESTED  the 

SPS1 

PROCESSOR 

AT 

REL*  CLK*  2039  SEC*# 

AND 

HAS 

SEIZED  IT 

AT 

RFL.  CLK. 

2039 

FOR 

1 

SECONDS. 

JOB 

§ 

17 

requested  the 

SP$i 

PROCESSOR 

AT 

REL*  CLK*  2051  SEC*  * 

AND 

HAS 

SEIZED  IT 

AT 

REL.  CLK, 

2051 

FOR 

1 

SCCONOS. 

JOB 

* 

12 

requested  the 

SPS2 

PROCESSOR 

AT 

REL.  CLK*  20B8  SEC*. 

AND 

HAS 

SEIZED  IT 

AT 

REL*  CLK. 

2068 

FOR 

1 

SECONDS. 

12 

1 

1 

SPS  DSC 

2090 

D 

ia 

1 

1 

DSC  FMP 

2091 

0 

12 

2 

1 

0PH2  OSC 

2093 

1 

12 

2 

1 

DSC  FMP 

2094 

0 

JOB 

U 

93 

requested 

THE 

SPS2 

PROCESSOR 

AT 

REL*  CLK , 2096  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

RFL*  CLK, 

2096 

FOR 

360 

SECONDS. 

~± 

JOB 

* 

ia 

requested 

THE 

SPS1 

PROCESSOR 

AT 

REL*  CLK*  2146  $EC*t 

AND 

HAS 

SEIZED  IT 

AT 

RFL*  CLK. 

2148 

FOR 

1 

SECONDS. 

1 

1 

oo 

-o 

JOB 

* 

19 

requested 

THE 

SPS1 

PROCESSOR 

AT 

REL*  CLK*  2223  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

RFL.  CLK. 

2223 

FOR 

, 

1* 

SECONDS. 

19 

1 

1 

SPS  DSC 

2225 

0 

19 

1 

1 

DSC  FMP 

2226 

0 

♦ 

19 

2 

l 

GPH2  DSC 

2228 

1 

19 

2 

1 

DSC  FMP 

2229 

0 

JOB 

H 

63 

requested 

THE 

5PS2 

PROCESSOR 

AT 

REL*  CLK,  2257  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

RFL.  CLK. 

2257 

FOR 

1 

SECONDS. 

63 

1 

2 

SPS  DSC 

2260 

0 

63 

1 

2 

DSC  FMP 

2261 

0 

-88 
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IOB  NO* 

FILE  NO* 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

Transfer  cohpleteo  at 
RELATIVE  CLOCK  TIHE<SEO... 

DURATION 
OF  TRANSFER 

<scc*> 

JOB 

# 

20 

requested 

the 

SPS1  PROCESSOR 

AT 

REL.  CLK* 

2262  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK. 

2262 

FOR 

1 

seconds. 

63 

2 

2 

GPH2 

DSC 

2264 

3 

63 

2 

2 

DSC 

FMP 

2265 

0 

63 

3 

19 

SP5 

DSC 

2271 

5 

63 

3 

19 

DSC 

FMP 

2272 

0 

JOB 

13 

REQUESTED 

the 

SP52  PROCESSOR  AT 

REL*  CLK. 

2287  SEC* « 

and 

HAS 

SEIZED  IT 

AT 

REL* 

CLK, 

2287 

FOR 

l 

seconds'. 

13 

1 

1 

SPS 

DSC 

2289 

0 

13 

1 

1 

OSC 

FHP 

2291 

0 

13 

2 

1 

GPNl 

DSC 

2292 

1 

13 

2 

1 

DSC 

FMP 

2293 

0 

JOB 

* 

11 

hequesteo 

the 

FHP  PROCESSOR 

AT 

REL*  CLK* 

1304  SEC** 

AND 

HAS 

SEIZED  IT 

AY 

REL. 

CLK. 

2329 

FOR 

10 

seconds. 

94 

8 

8 

FHP 

OSC 

2331 

0 

94 

8 

8 

DSC 

, SPS 

2335 

3 

JOB 

* 

94 

hequesteo 

the 

SPS2  PROCESSOR 

AT 

REL.  CLK* 

2336  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK* 

2336 

FOR 

360 

SECONDS. 

94 

9 

160 

FHP 

DSC 

2337 

6 

JOB 

# 

5 

HEQUESTEO 

the 

FMP  PROCESSOR 

AT 

REL*  CLK » 

1353  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

REL* 

CLK. 

2339 

FOR 

10 

SECONDS, 

ir 

9 

90 

FHP 

DSC 

2343 

3 

JOB 

H 

61 

REQUESTED 

the 

FHP  PROCESSOR 

AT 

REL.  CLK. 

1430  SEC*  * 

AND 

HAS 

SEIZED  IT 

AT 

REL* 

CLK. 

2349 

FOR 

60 

seconds. 

s 

8 

2 

FMR 

DSC 

23S0 

0 

5 

6 

2 

DSC 

SPS 

2352 

0 

it 

9 

90 

DSC 

SPS 

2372 

, 27 

JOB 

tt 

5 

hequesteo 

the 

SPS2  PROCESSOR 

AT 

REL.  CLK. 

2353  SEC.* 

AND 

Has 

SEIZED  IT 

AT 

REL. 

CLK. 

2372 

FOR 

60 

SECONDS. 

JOB 

* 

14 

requested 

the 

SPS1  PROCESSOR 

AT 

REL.  CLK. 

2402  SEC,* 

AND 

has 

SEIZED  IT 

AT 

REL* 

CLK. 

2402 

FOR 

l 

secoNOs. 

JOB 

U 

62 

HEQUESTEO 

the 

FHP  PROCESSOR 

AT 

REL.  CLK* 

1446  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

PEL. 

CLK. 

2409 

FOR 

60 

SECONDS. 

61 

9 

125 

FHP 

OSC 

2415 

4 

61 

9 

125 

FMp 

DSC 

2421 

5 

69-V-ll 
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JOB  NO. 

FILE  NO. 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  at  DURATION 

RELATIVE  CLOCK  TIME (SEC U..  OF  TRANSFER 

<sec.i 

joa 

# 

n 

REQUESTED 

the 

SPS2  PROCESSOR  AT 

PEL#  CLK. 

2373  SEC.# 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK.  2432  FOR 

60 

SECONDS. 

JOB  it 

5 COMPLETE  AT  RELATIVE  CLOCK  » 2433 

SEC. 

93 

7 

3 

SPS 

GPH2 

2461 

1 

job  n 

93  COMPLETE  AT  RELATIVE  CLOCK  » 2462 

SEC. 

JOB 

* 

a 

requested 

the 

FMP  PROCESSOR  AT 

REL.  CLK, 

1640  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK.  2469  FOR 

10 

seconos. 

62 

a 

6 

FMP 

DSC 

2471 

0 

62 

6 

6 

DSC 

SPS 

2475 

2 

JOB 

0 

62 

REQUESTED 

THE 

SPS2  PROCESSOR  AT 

| 

REL#  CLK. 

2476  SEC. a 

and  HAS 

SEIZED  IT 

AT 

REL. 

CLK.  2476  FOR  1B0 

seconds’. 

JOB 

ft 

6 

Requested 

THE 

FMP  PROCESSOR  AT 

REL.  CLK. 

16B4  SEC. » 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK.  2479  FOR 

10 

SECONDS. 

61 

9 

1 25 

osc 

SPS 

2485 

69 

a 

9 

90 

FMP 

OSC 

2466 

5 

JOB 

u 

9 requested  the 

FMP  PROCESSOR  AT 

REL.  CLK. 

1695  SEC,. 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  2489  FOR 

10 

SECONDS. 

6 

8 

2 

FMP 

DSC 

2490 

0 

61 

9 

125 

DSC 

SPS 

2490 

67 

JOB  * 6]  COMPLETE  AT  RELATIVE  CLOCK  « 2491  SEC, 
000  » XI  COMPLETE  AT  RELATIVE  CLOCK  * 2493  SEC. 


JOB 

0 

is 

requested 

the 

FMP 

PROCESSOR 

AT 

REL,  CLK. 

1824  'SEC. 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK. 

2499 

FOR 

10 

SECONDS. 

9 

8 

2 

FHP 

DSC 

2500 

0 

JOB 

n 

10 

requested 

THE 

FMP 

processor 

AT 

REL.  CLK. 

2016  SEC.. 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK. 

2509 

FOR 

10 

SECONDS. 

15 

8 

2 

FMP 

DSC 

2510 

0 

15 

8 

2 

DSC 

SPS 

2512 

0 

JOB 

0 

15  REQUESTED 

THE 

SPS1 

PROCESSOR 

AT 

REL.  CLK. 

2913  SEC* • 

AND 

HAS 

SEIZEO  IT 

AT 

RFL. 

CLK. 

2513 

FOR 

60 

SECONDS. 

8 

9 

90 

DSC 

SPS 

2518 

26 

JOB 

u 

12 

REQUESTED 

the 

FMP 

PROCESSOR 

AT 

REL.  CLK. 

2095  SEC.. 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK. 

2519 

FOR 

10 

seconds'. 

6 

e 

2 

DSC 

SPS 

* 

2519 

0 

9 

e 

2 

DSC 

SPS 

2520 

0 

06- 
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NO. 

FILE  NO. 

number  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIMftseC).*. 

DURATION 
OF  TRANSFER 

(SEC.) 

m 

o 

# 

a requested 

the 

SPS2  PROCESSOR 

AT 

REL.  CLK. 

2519  SEC. t 

AND  HAS  SEIZEO  IT  AT  REL.  CLK 

. 2520  FOR 

60 

SECONDS'. 

10 

8 

2 

FMP 

DSC 

2520 

0 

JOB 

U 

19  REQUESTED 

the 

FMP  PROCESSOR 

AT 

REL.  CLK. 

2230  SEC.* 

AND  HAS  SEIZEO  IT  AT  REL.  CLK 

. 2520  FOR 

to 

SECONDS* 

12 

9 

90 

FMP 

DSC 

2533 

3 

JOB 

u 

63  REQUESTED 

THE 

FMP  PROCESSOR 

AT 

REL.  CLK. 

2273  SEC.. 

AND  HAS  SEIZED  IT  AT  RFL.  CLK 

. 2539  FOR 

60 

SECONDS* 

19 

9 

90 

FMP 

DSC 

2543 

3 

19 

9 

90 

DSC 

SPS 

2571 

26 

JOB  tf  19  MEOUESTEO  THE  SRS1  PROCESSOR  AT  REL.  CLK,  2572  SEC**  AND  HAS  SEIZEO  IT  AT  REL.  CLK.  2572  FOR  60  SECONDS. 
JOB  * 15  COMPLETE  AT  RELATIVE  CLOCK  • 2574  SEC. 


JOB 

U 

6 REQUESTED 

the 

SPS2  PROCESSOR 

AT 

REL.  CLK.  2520  SEC.t 

AND 

HAS 

SEIZED  IT 

AT 

REL.  CLK*  2560 

FOR 

60 

SECONDS. 

JOB  * 

0 COMPLETE  AT 

RELATIVE  CLOCK  • 25SX 

SEC* 

JOB 

* 

13  REQUESTED 

THE 

FMP  PROCESSOR 

AT 

REL.  CLK.  2294  SEC*. 

AND 

HAS 

SEIZED  IT 

AT 

REL.  CLK,  2599  FOR 

10 

SECONOS. 

63 

a 

12 

FMP  DSC 

2601 

0 

13 

8 

2 

FMP  OSC 

2610 

0 

JOB 

# 

64  REQUESTED 

the 

SPS1  PROCESSOR 

AT 

REL.  CLK.  2615  SEC*. 

AND 

HAS 

SEIZEO  IT 

AT 

REL.  CLK.  2615 

FOR 

l 

SECONDS. 

64 

1 

2 

SPS  DSC  ^ 

2616 

0 

64 

1 

2 

DSC  FMP 

2619 

0 

64 

2 

2 

GPH2  DSC 

2622 

2 

64 

2 

2 

DSC  FMP 

2623 

0 

64 

3 

19 

SPS  OSC 

2626 

5 

64 

3 

19 

DSC  FMP 

2630 

0 

JOB 

H 

64  REQUESTED 

the 

FMP  PROCESSOR 

AT 

REL.  CLK.  2631  SEC*. 

AND 

HAS 

SEIZED  IT 

AT 

REL.  CLK.  2631 

FOR 

60 

SECONDS'. 

JOB  J 

» 19  COMPLETE  AT  RELATIVE  CLOCK  > 2633 

SEC 

D 

' 

JOB 

t) 

16  requesteo  THE 

SPS1  PROCESSOR 

AT 

REL.  CLK.  2640  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL.  CLK.  2640 

FOR 

1 

SECONDS. 

JOB 

» 

9 requested 

THE 

SP$2  PROCESSOR 

AT 

REL.  CLK*  2521  SEC.. 

AND 

HAS 

SEIZED  IT 

AT 

REL.  CLK,  2640 

FOR 

60 

SECONDS. 

JOB  # 6 COMPLETE  AT  RELATIVE  CLOCK  • 2641  SEC* 


16-V-l  l 
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JOB  NO* 

\ FILE  NO. 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM  ' 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TlMf(SEC) * 

DURATION 
..  OF  TRANSFER 

(SEC. ) 

16 

1 

1 

SRS 

DSC 

2642 

0 

16 

1 

l 

OSC 

FMP 

2644 

0 

16  , 

2 

1 

GPH1 

OSC 

2645 

1 

JOB 

21 

REQUESTED 

THE 

SP51 

PROCESSOR 

AT 

REX 4 CLK. 

2646  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK.  2646  FOR 

1 

SECONDS 

16 

2 

1 

OSC 

FMP 

2646 

0 

21 

1 

1 

SPS 

DSC 

2648 

0 

21 

1 

1 

OSC 

FMP 

2649 

0 

21 

2 

1 

GPH1 

DSC 

2650 

1 

* 21 

2 

1 

DSC 

FMP 

2652 

0 

JOB 

# 

17 

requested 

THE 

SPSl 

PROCESSOR 

AT 

REL.  CLK. 

2652  SEC. • 

ANO  HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  2652  FOR 

l 

SFCO'-DS 

17 

l 

1 

SPS 

DSC 

2654 

0 

17 

1 

1 

DSC 

FMP 

2656 

0 

10 

6 

2 

DSC 

SPS 

2657 

1 

17 

2 

1 

GPH2 

OSC 

2658 

2 

17 

2 

1 

DSC 

FMP 

2659 

0 

62 

7 

4 

SPS 

GPH1 

2660 

2 

JOB  4 62 

COMPLETE  AT  RELATIVE  CLOCK  •*  2661 

SEC* 

13 

8 

2 

DSC 

SPS 

2661 

1 

JOB 

10 

requested 

THE 

SPS2 

PROCESSOR 

AT 

REL«  CLK. 

2656  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK.  2661  FOR 

60 

SECONDS, 

63 

8 

\z 

DSC 

SPS 

2664 

8 

JOB 

* 

13 

requested 

the 

SPS2 

PROCESSOR 

AT 

REL.  CLK. 

2662  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  2664  FOR 

60 

SECOnDS, 

12 

9 

90 

DSC 

SPS 

2687 

31 

JOB 

* 

12 

REQUESTED 

THE 

SPS2 

processor 

AT 

REL*  CLK, 

2688  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  2686  FOR 

60 

SFCO^OS, 

JOB 

n 

16 

requested 

THE 

FMP  PROCESSOR 

AT 

REL.  CLK, 

2647  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  2691  FOR 

10 

SECONDS. 

64 

8 

6 

FMP 

DSC 

2692 

0 
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JOB  NO* 


FILE  NO. 


NUMBER  OF 

BLOCKS  TRANSFERRED 


FROM 


TO 


TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIMF(SEC)*.. 


DURATION 

OF  TRANSFER  (SEC*) 


I 

I 

vO 

ro 


64 

8 

6 

OSC 

SPS 

2695 

2 

JOB 

# 

64 

REQUESTED 

THE 

SPSl 

PROCESSOR 

AT 

REL*  CLK. 

2696  SEC*. 

ANO 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK. 

26^6 

FOR 

I AO 

SECONDS. 

JOB 

• 

94 

requested 

THE 

SPS2 

PROCESSOR 

AT 

REL.  CLK . 

2697  SEC*. 

AND 

HAS 

SEIZEO  IT 

AT 

RFL. 

CLK, 

2097 

FOR 

360 

SFCONDS* 

JOB 

21 

requested 

THE 

FMP 

PROCESSOR 

AT 

REL.  CLK* 

2653  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK, 

2701 

FOR 

10 

SECONDS, 

job  * 

» 9 COMPLETE  At 

RELATIVE  CLOCK  « 2701 

SEC* 

JOB 

# 

14 

requesteo 

THE 

SPSl 

PROCESSOR 

AT 

REL.  CLK, 

2703  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK* 

2703 

FOR 

1 

SECONDS. 

16 

9 

90 

FMP 

DSC 

2T05 

3 

16 

1 

1 

SPS 

DSC 

2706 

0 

16 

1 

1 

DSC 

FMP 

2700 

0 

14 

2 

1 

GPH2 

OSC 

2710 

2 

JOB 

ft 

17 

requested 

THE 

FMP 

PROCESSOR 

AT 

REL.  CLK. 

2660  SEC*. 

AND 

HAS 

SEIZEO  IT 

AT 

RFL. 

CLK* 

271 1 

FOR 

10 

SECONDS. 

14 

2 

1 

DSC 

FMP 

27U 

0 

21 

6 

2 

FMP 

DSC 

2712 

0 

21 

8 

2 

DSC 

SPS 

2715 

1 

JOB 

« 

21 

REQUESTED 

the 

SPSl 

PROCESSOR 

AT 

REL.  CLK. 

2716  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK. 

2716 

FOR 

60 

SECONDS. 

JOB 

# 

14 

REQUESTEO 

THE 

FMP 

PROCESSOR 

AT 

REL.  CLK. 

2712  SEC.* 

AND 

HAS 

SEIZEO  IT 

AT 

REL. 

CLK. 

2721 

FOR 

10 

SECONDS. 

17 


17 


14 

14 


JOB  * 10  COMPLETE  AT  RELATIVE  CLOCK  « 2722  SEC* 

6 2 FMP  DSC  2722  0 

JOB  * 63  REQUESTED  THE  SPS2  PROCESSOR  AT  REL.  CLK,  2665  SEC#*  AND  HAS  SEIZED  IT  AT  REL#  CLK.  2724  FOR  360  SFCONOS. 

6 2 DSC  SPS  2725  1 

JOB  * 13  COMPLETE  AT  RELATIVE  CLOCK  » 2725  SEC. 

JOB  » 17  REQUESTED  THE  SPSl  PROCESSOR  AT  REL#  CLK*  2726  SEC# « and  HAS  SEIZED  IT  AT  REL#  CLK.  2726  FOR  60  SECONDS. 

8 2 

8 2 

9 90 

JOB  # 14  REQUESTED  THE  SPSl  PROCESSOR  AT  REL#  CLK.  2735  SEC.*  AND  HAS  SEIZEO  IT  AT  REL.  CLK.  2736  FOR  60  SECONDS. 


FMP 

OSC 

2732 

0 

OSC 

SPS 

2734 

0 

DSC 

SPS 

2736 

30 

16 


FILE  TRANSFER  SUMMARY  * PAGE  14 


I 

> 

I 

v£> 

uo 


1 NO* 

FILE  NO. 

number  of 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIMEISEO#*.  OF  TRANSFER 

(SEC.) 

JOB  # 12  COMPLETE  AT 

RELATIVE  CLOCK  * 2749 

SEC# 

JOB 

# 

16 

requested 

THE  SP51  PROCESSOR 

AT  REL.  CU« 

2737  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

REL# 

CLK#  2776 

FOR 

60 

SECONDS. 

JOB  n 21  complete  AT 

RELATIVE  CLOCK  * 2777 

SEC.  ‘ 

JOB 

» 

16 

requested 

THE  SPS1  PROCESSOR 

AT  REL#  CLK# 

2749  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK,  2786 

FOR 

1 

SECONDS.’ 

JOB  * 17  COMPLETE  AT 

RELATIVE  CLOCK  » 2787 

SEC# 

JOB  * 14  COMPLETE  AT 

RELATIVE  CLOCK  m 2797 

SEC# 

JOB 

U 

22 

requested 

THE  SPSi  PROCESSOR 

AT  REL#  CLK, 

2031  SEC.* 

AND  HAS 

SEIZEO  IT 

AT 

REL# 

CLK#  2631 

FOR 

1 

SECONDS. 

23 

1 

1 

SPS 

DSC 

2833 

0 

22 

1 

1 

DSC 

FMP 

2834 

0 

23 

2 

1 

GPHI 

OSC 

2835 

1 

JOB  # 16  COMPLETE  AT 

RELATIVE  CLOCK  ■ 2837 

SEC# 

22 

2 

1 

DSC 

FMP 

3837 

0 

* 

JOB 

* 

22 

requested 

The  fmp  processor 

AT  REL.  CLK. 

3838  SEC*. 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK,  2030 

FOR 

10 

SECONDS. 

23 

8 

2 

FMP 

OSC 

2849 

0 

22 

6 

2 

DSC 

SPS 

2850 

0 

JOB 

u 

22 

REQUESTED 

THE  SPSI  PROCESSOR 

AT  REL#  CLK, 

2651  SEC#* 

AND  HAS 

SEIZED  IT 

AT 

RFL# 

CLK#  2851 

FOR 

60 

SECONDS'. 

JOB 

# 

20 

REQUESTED 

THE  SPSI  PROCESSOR 

AT  REL#  CLK. 

2863  SEC#* 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK,  2863 

FOR 

1 

SECONDS. 

20 

1 

1 

SPS 

OSC 

£666 

0 

20 

1 

1 

DSC 

FMP 

2867 

0 

20 

2 

1 

GPHI 

DSC 

2868 

1 

20 

2 

1 

OSC 

FMP 

2070 

0 

JOB 

H 

20 

requested 

The  fmp  PROCESSOR 

AT  REL.  CLK# 

2871  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK,  2871 

FOR 

10 

SECONDS. 

64 

7 

4 

SPS 

GPH2 

2880 

2 

JOB  # 64  COMPLETE  AT  RELATIVE  CLOCK  * 3881  SEC# 
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JOB  NO* 

FILE  NO* 

NUMSEP  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TlMF(SEC)***  OF  TRANSFER 

< SEC* ) 

JOB 

* 

65 

REQUESTED 

THE  SPSI 

PROCESSOR 

AT 

REL*  CLK* 

2862  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

REL* 

CLK.  2882 

FOR 

1 

SECONDS. 

20 

9 

90 

FHP 

DSC 

2005 

3 

20 

9 

90 

DSC 

SPS 

2912 

26 

JOB  M 22 

COMPLETE  AT  RELATIVE  CLOCK  * 2912 

$EC< 

JOB 

it 

20 

requested 

the  spsi 

PROCESSOR 

AT 

REL.  CLK , 

2913  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK,  2913 

FOR 

60 

SECONDS. 

JOB 

It 

23 

requested 

THE  SPSI 

PROCESSOR 

AT 

REL*  CLK* 

2950  sec*. 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK*  29S0 

FOR 

1 

SECONDS* 

23 

1 

1 

SPS 

DSC 

2961 

0 

23 

1 

1 

DSC 

FMP 

2962 

0 

23 

2 

1 

QPHJ 

DSC 

2963 

l 

23 

2 

1 

DSC 

FMP 

2964 

0 

JUB 

It 

23 

hequested 

the  . fmp 

PROCESSOR 

AT 

REL*  CLK* 

2965  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK*  2965 

FOR 

10 

SECONDS*. 

- 

JOB 

tt 

66 

hequesfeo 

THE  SPSI 

PROCESSOR 

AT 

REL.  CLK* 

2965  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK,  2965 

FOR 

1 

SECONDS. 

M* 

1 

JOB  tt  20 

COMPLETE  A! 

RELATIVE  CLOCK  « 2974 

sec, 

> 

1 

23 

8 

2 

FMP 

DSC 

2977 

0 

VO 

4r 

23 

6 

2 

* 

DSC 

SPS 

2970 

0 

JOB 

It 

23 

requested 

THE  SPSI 

PROCESSOR 

AT 

REL*  CLK* 

2979  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

RFt. 

CLK*  2979 

FOR 

60 

SECONDS. 

JOB 

tt 

24 

requested 

the  spsi 

PROCESSOR 

AT 

REL*  CLK* 

3031  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL* 

CLK*  3031 

FOR 

1 

SECONDS. 

24 

1 

1 

SPS 

DSC 

3534 

0 

24 

1 

1 

DSC 

FMP 

3035 

0 

• 

24 

2 

1 

GPH2 

DSC 

3036 

l 

24 

2 

1 

DSC 

Fmp 

3037 

0 

JOS 

it 

24 

requested 

THE  FMP 

PROCESSOR 

AT 

REL.  CLK* 

3030  SEC.* 

ANO 

HAS 

SEIZED  IT 

AT 

REL. 

CLK*  3030 

FOR 

10 

SECONDS. 

JOB  # 23  COMPLETE  AT  RELATIVE  CLOCK  ■ 30*0  SEC* 
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JOB  NO. 

24 

94 

67 

24 

67 

67 


IB 

63 

la 

18 

10 

IB 

ie 

67 

67 


FILE  NO*  NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT  »U«aTION 

RELATIVE  CLOCK  TIMF<SEC> . * . OF  TRANSFER 

ISFC.) 

9 

90 

FMP 

DSC 

3053 

3 

7 

3 

SPS 

OPH2 

3060 

1 

JOB  H 

94  COMPLETE  AT 

RELATIVE  CLOCK  « 3061 

SEC. 

JOB 

0 

67 

REQUESTED  THE 

SPSI  PROCESSOR 

AT  REL#  CLK. 

3077  SEC., 

AND  HAS 

SEIZED  IT  AT 

RFL.  CLK.  3077  FOR 

1 

SECONOS. 

1 

2 

SPS 

DSC 

3080 

1 

9 

90 

DSC 

SPS 

3081 

26 

1 

2 

DSC 

FMP 

3081 

0 

JOB 

0 

24 

requested  the 

SPSI  PROCESSOR 

AT  REL.  CLK. 

3002  SEC., 

AND  HAS 

SEIZED  IT  AT 

REL.  CLK.  3082  FOR 

60 

SECONDS, 

2 

2 

GPH2 

SPS 

3002 

1 

JOB 

0 

67 

requested  the 

SPSI  PROCESSOR 

AT  REL.  CLK. 

3083  SEC., 

AND  HAS 

SEIZED  IT  AT 

REL.  CLK.  3083  FOR 

00 

SECONDS* 

JOB 

0 

10 

REQUESTED  the 

SPSI  PROCESSOR 

AT  REL.  CLK. 

3087  SEC., 

AND  HAS 

SEIZED  IT  AT 

REL.  CLK.  3007  FOR 

l 

SECONDS. 

1 

1 

SPS 

DSC 

3089 

0 

7 

0 

SPS 

GPH2 

3090 

4 

1 

1 

DSC 

FMP 

3090 

0 

JOB  * 

i 63  COMPLETE  AT  RELATIVE  CLOCK  « 3091 

SEC. 

2 

l 

GPH2 

DSC 

3091 

1 

2 

1 

DSC 

FMP 

3092 

0 

JOB 

0 

10 

REQUESTED  THE 

FMP  PROCESSOR 

AT  REL.  CLK. 

3093  SEC., 

AND  HAS 

SEIZED  IT  AT 

RFL.  CLK.  3093  FOR 

10 

SECONDS, 

0 

2 

FMP 

DSC 

3105 

0 

a 

2 

DSC 

SPS 

3106 

0 

JOB  0 10  REQUESTED  THE  SPS1  PROCESSOR  AT  REL.  CLK*  3107  SEC. » AND  HAS  SEIZED  IT  it  RFL.  CLK.  3107  FOR  60  SECONDS* 

JOB  « 24  COMPLETE  AT  RELATIVE  CLOCK  » 3143  SEC. 

2 2 SPS  DSC  3165  0 

2 2 DSC  FMP 

JOB  4 18  COMPLETE  AT  RELATIVE  CLOCK  • 3160  SEC* 


3166 


0 
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JOB  NO* 

FILE  NO* 

number  of 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIME<SEC>...  OF  TRANSFER 

(SEC. 1 

67 

3 

19 

SPS 

OSC 

3172 

5 

67 

3 

19 

DSC 

FMP 

3174 

0 

JOB 

« 

67 

requested 

the 

FMP  PROCESSOR 

AT 

REL.  CLK. 

3175  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

REL.  CLK.  3175  FOR 

60 

SECONDS. 

JOB 

n 

25 

requested 

THE 

SP51  PROCESSOR 

AT 

REL.  CLK. 

3208  SEC. « 

AND  HAS 

SEIZED  IT 

AT 

RFL.  CLK.  3206  FOR 

1 

SECONDS. 

95 

l 

4 

SPS 

DSC 

3228 

1 

95 

1 

4 

OSC 

FMP 

3229 

0 

JOB 

£6 

requested 

the 

SPS2  PROCESSOR 

AT 

REL.  CLK. 

3231  SEC. i 

AND  HAS 

SEIZED  IT 

AT 

REL.  CLK,  3231  FOR 

1 

SECONDS. 

95 

2 

4 

OPH1 

SPS 

3231 

2 

JOB 

95 

requesteo 

the 

SPS1  PROCESSOR 

AT 

REL.  CLK. 

3232  SEC. * 

AND  HAS 

SEIZED  IT 

AT 

REL,  CLK.  3232  FOR  360 

SECONDS. 

67 

9 

125 

FMP 

OSC 

3240 

4 

67 

9 

125 

FMP 

OSC 

3247 

5 

JOB 

* 

68 

REQUESTED 

the 

5RS2  PROCESSOR 

AT 

REL.  CLK* 

32B0  SEC. « 

AND  HAS 

SEIZED  IT 

AT 

REL,  CLK,  3280  FOR 

1 

SECONDS. 

1 

67 

9 

125 

DSC 

SPS 

3309 

66 

> 

1 

67 

9 

125 

OSC 

SPS 

3315 

67 

VO 

o\ 

JOB  « 67  COMPLETE  AT  RELATIVE  CLOCK  * 3316 

SEC. 

JOB 

# 

69 

REQUESTED 

the 

SPS2  PROCESSOR 

AT 

REL.  CLK, 

3336  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

RFL.  CLK.  3338  FOR 

1 

SECONOS. 

JOB 

U 

65 

requested 

the 

SPS1  PROCESSOR 

AT 

REL.  CLK. 

3483  SEC. t 

AND  HAS 

SEIZED  IT 

AT 

REL,  CLK.  3463  FOR 

1 

SECONDS. 

65 

1 

2 

SPS 

DSC 

3465 

0 

65 

1 

2 

DSC 

FMP 

3487 

0 

65 

2 

2 

6PH2 

DSC 

3469 

2 

65 

2 

2 

DSC 

FMP 

3491 

0 

9?'? 


I 

> 

l 

vo 


FILE  TRANSFER  SUMMARY  - PAGE 

JOB  NO.  FILE  NO,  NUMBER  OF  FROM  TO 

BLOCKS  TRANSFERRED 


65 

3 

19 

SPS 

DSC 

65 

3 

19 

DSC 

FMP 

JOB 

0 

65 

requested 

THE 

FMP  PROCESSOR 

AT 

REL.  CLK, 

3499  SEC 

JOB 

0 

70 

kequesteo 

THE 

SPS2  PROCESSOR 

AT 

REl,  CLK, 

3530  SEC 

65 

e 

6 

FMP 

DSC 

65 

a 

6 

DSC 

SPS 

JOB 

0 

65 

REQUESTED 

THE 

SPS1  PROCESSOR 

AT 

REL.  CLK, 

3564  SEC 

JOB 

0 

66 

REQUESTED 

THE 

SPSl  PROCESSOR 

AT 

REl.  CLK, 

3566  SEC 

66 

1 

2 

SPS 

DSC 

66 

1 

2 

DSC 

FMP 

66 

2 

2 

GRH1 

DSC 

66 

2 

2 

DSC 

FMP 

66 

3 

19 

SPS 

DSC 

66 

3 

19 

DSC 

FMP 

JOB 

0 

66  HEQUESTeQ 

THE 

rMP  PROCESSOR 

AT 

REL.  CLK, 

3615  SEC. 

95 

3 

46 

SPS 

DSC 

95 

3 

46 

DSC 

FMP 

95 

3 ” 

46 

SPS 

DSC 

95 

3 

46 

DSC 

FMP 

JOB 

0 

95 

REQUESTeO 

the 

FMP  PROCESSOR 

AT 

REL.  CLK, 

3634  SEC. 

66 

9 

135 

FMP 

DSC 

86 

l 

4 

SPS 

DSC 

66 

I 

4 

DSC 

FMP 

86 

2 

4 

SPS 

DSC 

TRANSFER  COMPLETER  AT  OURATION 

RELATIVE  CLOCK  TlMEtSEO...  OF  TRANSFER  <SEC,> 


3667 


t 
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OB  NO. 

FILE  NO. 

NUMBER  OF 

FROM 

TO 

TRANSFER  COMPLETED  AT  DURATION 

BLOCKS  TRANSFERRED 

RELATIVE 

CLOCK  TIME (SEC) » • « OF  TRANSFER 

(SEC.) 

86 

2 

4 

DSC 

FMP 

3689 

0 

66 

9 

125 

FMP 

DSC 

3669 

7 

JOB 

H 

71 

requested 

THE  SPS2  PROCESSOR 

at 

REL.  CLK . 

3729  SEC.. 

AND 

HAS 

SEIZED  IT  AT 

REL.  CLK.  3729  FOR 

1 

SECONOS. 

6S 

7 

4 

SPS 

GPH2 

3747 

2 

JOB  * 65  COMPLETE 

at 

RELATIVE  CLOCK  * 

3748 

SECo 

JOB 

8 

27 

REQUESTED 

THE  SPS2  PROCESSOR 

AT 

REL.  CLK, 

3750  SEC.. 

AND 

HAS 

SEIZED  IT  AT 

REL.  CLK.  3750  FOR 

\ 

SECONDS. 

66 

9 

125 

DSC 

SPS 

375! 

69 

27 

1 

’ I 

SPS 

DSC 

3752 

0 

27 

1 

l 

DSC 

FMP 

3754 

0 

96 

1 

4 

SPS 

DSC 

3755 

1 

27 

2 

l 

GPH1 

DSC 

3756 

2 

96 

1 

4 

DSC 

FMP 

3757 

0 

27 

2 

i 

DSC 

FMP 

3757 

0 

96 

2 

4 

SPS 

DSC 

3756 

1 

66 

9 

125 

DSC 

SPS 

3758 

67 

JOB  * 66  COMPLETE 

at 

RELATIVE  CLOCK  t. 

3759 

SEC. 

96 

2 

6 

DSC 

FMP 

3759 

0 

JOB 

H 

72 

REQUESTED 

The  SPS1  PROCESSOR 

AT 

REL.  CLK. 

3799  SEC.. 

and 

HAS 

SEIZED  IT  AT 

REL.  CLK*  3799  FOR 

! 

SFCOhOS. 

72 

1 

2 

SPS 

DSC 

3802 

0 

72 

\ 

2 

DSC 

FMP 

3803 

0 

72 

2 

2 

GPH1 

SPS 

3804 

l 

JOB 

H 

72 

requested 

the  spsi  processor 

AT 

REL.  CLK. 

3805  SEC. e 

AND 

HAS 

SEIZED  IT  AT 

REL.  CLK.  3805  FOR 

00 

SECONDS. 
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JOB  NO. 

FILE  NO, 

number  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

transfer  completed  at 

RELATIVE  CLOCK  TIHE(SEC)... 

duration 
OF  TRANSFER 

(SFC.J 

JOB 

* 

25 

requested 

the 

SPSl  PROCESSOR 

AT 

REL.  CLK. 

3809  SEC.* 

AND 

HAS 

SEIZED  IT  AT  RFL.  CLK, 

3809  fOR 

I 

SECONDS 

25 

1 

1 

SP5 

DSC 

3011 

0 

25 

l 

1 

DSC 

FMP 

3012 

0 

25 

2 

1 

SPHl 

DSC 

3814 

1 

25 

2 

1 

DSC 

FMP 

• 

38 1 S 

0 

JOB 

0 

26 

requested 

the 

SPS2  PROCESSOR 

AT 

REL*  CLK, 

3832  SEC.* 

AND 

HAS 

SErZEO  ft  AT  RFL.  CLK. 

3832  FOR 

1 

SECONDS, 

JOB 

0 

68 

REQUESTED 

THE 

SPS2  PROCESSOR 

AT 

REL*  CLK, 

3881  SEC.* 

AND 

HAS 

SEIZEO  IT  AT  RFL.  CLK. 

3881  FOR 

1 

SECONDS 

72 

2 

2 

SPS 

DSC 

3886 

0 

72 

2 

2 

DSC 

FMP 

3888 

0 

72 

3 

19 

SPS 

DSC 

3893 

5 

72 

3 

19 

OSc 

FMP 

3095 

0 

97 

, 

1 

4 

SPS 

DSC 

3927 

1 

97 

I 

4 

DSC 

FMP 

3929 

0 

97 

2 

4 

SPS 

OSC 

3930 

1 

97 

2 

4 

DSC 

FMP 

3931 

0 

JOB 

0 

28 

requesteo 

THE 

SPSl  PROCESSOR 

AT 

REL*  CLK, 

3932  SEC.* 

AND 

HAS 

SEIZEO  TT  AT  RFL.  CLK, 

3932  FOR 

1 

srcoNos, 

JOB 

0 

69 

REQUESTED 

THE 

SPS2  PROCESSOR 

at 

REL*  CLK, 

3939  SEC.* 

AND 

HAS 

SEIZEO  IT  AT  RFL.  CLK. 

3939  FoR 

1 

SECONDS 

69 

I 

2 

SPS 

DSC 

3942 

0 

69 

1 

2 

DSC 

FMP 

3944 

0 

69 

2 

2 

8PH2 

DSC 

3946 

2 

69 

2 

2 

OSC 

FMP 

3947 

0 

69 

3 

19 

SPS 

OSC 

3953 

5 

69 

3 

19 

DSC 

FMP 

3955 

0 

JOB 

0 

70 

requesteo 

the 

SPSS  PROCESSOR 

AT 

REL*  CLK, 

4131  SEC.* 

AND 

HAS 

SEIZEO  IT  AT  REL,  CLK. 

4131  FOR 

i 

SECONDS, 

FILE  TRANSFER  SUMMARY  - PAGE  21 


1 NO* 

FILE  NO, 

number  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

Transfer  completed  at  duration 

RELATIVE  CLOCK  TIME(SEC1.**  OF  TRANSFER 

tSFC.I 

JOB  * 

26  REQUESTED 

THE 

SPS2  PROCESSOR 

AT 

REL*  CLK, 

4133  SEC* * 

AND 

HAS 

SEIZED  IT  AT  REL. 

CLK*  4133  FOR 

1 

SECONDS. 

TO 

1 

2 

$PS 

DSC 

4134 

0 

26 

1 

l 

SPS 

DSC 

4135 

0 

70 

1 

2 

DSC 

FMP 

4135 

0 

26 

1 

l 

DSC 

FMP 

• 

4137 

0 

26 

2 

l 

0PH2 

DSC 

4138 

1 

70 

2 

2 

GPHl 

DSC 

4138 

3 

26 

2 

1 

DSC 

FHP 

4139 

0 

70 

2 

2 

DSC 

FMP 

4140 

0 

70 

3 

19 

SPS 

DSC 

4145 

5 

70 

3 

19 

DSC 

FMP 

4147 

0 

JOB  * 

73  REQUESTED 

THE 

SPS1  PROCESSOR 

AT 

REL.  CLK, 

4152  SEC. a 

ANO 

HAS 

SEIZED  IT  AT  REL. 

CLK*  4152  FOR 

1 

seconds. 

JOB  tf 

66  REQUESTED 

THE 

SPS2  PROCESSOR 

AT 

REL.  CLK, 

4162  SEC*  t 

and 

HAS 

SEIZED  IT  AT  PEL. 

CLK*  4182  FOR 

1 

SECONDS. 

66 

1 

2 

SPS 

DSC 

4105 

0 

68 

i 

2 

DSC 

FMP 

4186 

0 

68 

2 

2 

GPHl 

DSC 

4189 

3 

68 

2 

2 

DSC 

FMP 

4190 

0 

68 

3 

19 

SPS 

DSC 

4195 

5 

68 

3 

19 

DSC 

FMP 

4197 

0 

JOB  * 

66  REQUESTED 

THE 

FMP  PROCESSOR 

AT 

REL.  CLK, 

3690  SEC. 9 

AND 

HAS 

SEIZED  IT  AT  PEL. 

CLK,  4275  FOR 

10 

SECONOS. 

95 

6 

6 

FMP 

DSC 

4277 

0 

95 

6 

8 

DSC 

SPS 

4280 

2 

JOB  * 

95  HEQUESIEO 

THE 

SPS1  PROCESSOR 

AT 

REL*  CLK. 

4281  SEC.  * 

AND 

HAS 

SEIZED  IT  AT  REL* 

CLK*  4281  FOR  360 

SECONDS. 

JOB  n 

27  REQUESTED 

THE 

FMP  PROCESSOR 

AT 

REL.  CLK. 

3756  SEC.* 

AND 

HAS 

SEIZED  IT  AT  RFi  . 

CLK.  42«5  FOR 

10 

SECONDS. 

JOB  '# 

96  REQUESTED 

THE 

FMP  PROCESSOR 

AT 

REL.  CLK, 

3760  SEC** 

AND 

HAS 

SEIZED  IT  AT  RFL. 

CLK,  42pS  FOR 

10 

SECONDS. 

10  L- 
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JOB  NO# 

FILE  NO# 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TlMf<SEC># 

DURATION 
##  OF  TRANSFER 

(SEC# 1 

27 

0 

2 

FMP 

DSC 

4297 

0 

27 

0 

2 

DSC 

SPS 

4298 

A 

JOB 

* 

27 

requested 

THE 

SPS2  PROCESSOR 

AT 

REL.  CLK# 

4299  SEC#  t 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK,  4299 

FOR 

60 

SECONDS 

JOB 

# 

25 

Requested 

THE 

FMP  PROCESSOR 

AT 

REL.  CLK. 

3816  SEC,. 

Am 

HAS 

SEI7ED  17 

AT 

RFL. 

CLK#  4305 

FOR 

JO 

SECONDS 

JOB 

* 

72 

hequesteo 

the 

FMP  PROCESSOR 

AT 

REL.  CLK, 

3096  SEC.t 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK#  4315 

FOR 

60 

SECONDS 

25 

0 

2 

FMP 

OSC 

431? 

0 

25 

8 

2 

DSC 

SPS 

4310 

0 

JOB 

* 

25 

requested 

THE 

SPS1  PROCESSOR 

AT 

REL#  CLK, 

4319  SEC#. 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK#  4319 

FOR 

60 

SECONDS, 

JOB 

# 

71 

HEQUESTEO 

THE 

SPSZ  PROCESSOR 

AT 

REL*  CLK# 

4330  SEC.t 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  4330 

FOR 

1 

SECONDS, 

71 

1 

2 

SPS 

DSC 

4333 

0 

71 

1 

2 

DSC 

FMP 

4334 

0 

7i  ‘ 

2 

2 

QPM 

OSC 

4336 

2 

71 

• 

2 

2 

DSC 

FMP 

4338 

0 

71 

3 

19 

SPS 

OSC 

4343 

5 

71 

3 

19 

OSC 

FMP 

4345 

0 

JOB  * 

1 27  COMPLETE  AT 

RELATIVE  CLOCK  4 4360 

SEC. 

JOB 

6 

97 

requested 

the 

FMP  PROCESSOR 

AT 

REL#  CLK# 

3932  SEC.t 

ANO 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK#  4375 

FOR 

10 

seconds, 

72 

0 

6 

FMP 

OSC 

4377 

0 

72 

0 

6 

DSC 

SPS 

4300 

1 

Joe  * 

25  COMPLETE  AT 

RELATIVE  CLOCK  * 4360 

SEC* 

JOB 

U 

72 

HEQUESTEO 

THE 

SPSl  PROCESSOR 

AT 

REL#  CLK# 

4301  SEC.t 

ANO 

HAS 

SEIZED  IT 

AT 

REL# 

CLK#  4361 

FOR 

lfiO 

SECOnOS. 

JOB 

* 

69 

REQJE5TE0 

the 

FMP  PROCESSOR 

AT 

REL#  CLK# 

3956  SEC#  t 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK#  4365 

FOR 

60 

SECONDS, 

JOB 

* 

26 

requested 

The 

FMP  PROCESSOR 

AT 

REL#  CLK# 

4140  SEC.t 

ANO 

HAS 

SEIZEO  IT 

AT 

REL. 

CLK#  4445 

FOR 

10 

SECONDS, 

69 

0 

6 

FMP 

OSC 

4447 

0 

69 

S 

6 

DSC 

SPS 

4450 

1 

JOB  M 69  REQUESTED  THE  SPS2  PROCESSOR  AT  REL#  CLK.  6451  SEC.t  ANO  HAS  SEIZED  IT  AT  REL.  CLK.  4451  FOR  100  SECONDS 


-102 
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JOB  NO* 

FILE  NO. 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIME<$CC>...  OF  TRANSFER 

(SEC.) 

JOB 

U 

70 

requested 

the  fmp 

PROCESSOR 

AT 

REL*  CLK, 

4146  SEC*# 

AND 

HA5 

SEIZED  IT 

AT 

REL  o 

CLK. 

4455 

FOR 

60 

SECnwOS. 

26 

8 

2 

FMP 

DSC 

4457 

0 

26 

B 

2 

DSC 

SPS 

4456 

0 

JOB 

u 

26 

requested 

THE^  SPS2 

PROCESSOR 

AT 

REL.  CLK. 

4459  SEC*  * 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK, 

4459 

FOR 

60 

SECONDS'. 

JOB 

* 

66 

REQUESTED 

the  fhp 

PROCESSOR 

AT 

REL*  CLK. 

4198  SEC . * 

AND 

HAS 

SEIZED  IT 

AT 

RFL  * 

CLK. 

4515 

FOR 

60 

seconds. 

70 

a 

32 

FMP 

DSC 

45}7 

0 

JOB  # 26 

COMPLETE  AT 

RELATIVE  CLOCK  » 4520 

SEC. 

t 

70 

8 

12 

DSC 

SPS 

4521 

3 

JOB 

* 

70 

requested 

The  SPS2 

PROCESSOR 

AT 

REL.  CLK. 

4522  SEC. « 

AND 

HAS 

SEIZED  IT 

AT 

RFL* 

CLK. 

4522 

FOR 

160 

seconds. 

JOB 

# 

29 

requested 

the  spsi 

processor 

AT 

REL.  CLK, 

4532  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK. 

4532 

FOR 

1 

SECONDS. 

JOB 

u 

28 

requested 

THE  SPsl 

PROCESSOR 

AT 

REL.  CLK. 

4533  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK, 

4533 

FOR 

1 

SECONDS. 

28 

1 

1 

SPS 

DSC 

4536 

0 

2S 

1 

1 

DSC 

FMP 

4537 

0 

28 

2 

1 

GPHl 

DSC 

4538 

1 

28 

2 

1 

DSC 

FMP 

4540 

0 

72 

7 

4 

SPS 

GPHl 

4564 

2 

JOB  tf  72 

COMPLETE  AT  RELATIVE  CLOCK  « 4*65 

SEC, 

i 

JOB 

* 

66 

REQUESTED 

THE  FMP 

PROCESSOR 

AT 

REL.  CLK, 

42B6  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK. 

4575 

FOR 

60 

seconds. 

66 

8 

6 

FMP 

DSC 

4577 

0 

87 

l 

4 

SPS 

DSC 

4576 

1 

87 

l 

4 

DSC 

FHP 

4579 

0 

68 

8 

6 

DSC 

SPS 

4560 

? 

87 

2 

4 

GPH2 

SPS 

4561 

? 

JOB 

tt 

87 

requested 

THE  SPSI 

PROCESSOR 

AT 

REL.  CLK. 

4582  SEC.. 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK  o 

4562 

FOR 

360 

SECONDS. 
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, FILE  TRANSFER  SUMMARY  - PAOE  24 

JO®  N0*  FJ*-E  NO,  NUMBER  of  FROM  TO  TRANSFER  COMPLETED  AT  DURATION 

BLOCKS  TRANSFERRED  RELATIVE  CLOCK  TlMEtSEO.,,  OF  TRANSFER  (SEC.) 


JOB 

N 

66 

REQUESTED  THE  SPS2 

PROCESSOR 

AT 

REL.  CLK. 

4501  SEC. • 

AND  MAS 

SEIZED  IT 

AT 

REL. 

CLK. 

4631 

FOR 

180 

SECONDS 

69 

- 

7 

4 

SPS 

0PH2 

4634 

2 

JOB  » 69 

complete  at 

RELATIVE  CLOCK  » 4635 

SEC, 

JOB 

« 

96 

requested  the  fmp 

PROCESSOR 

AT 

REL.  CLK. 

4306  SEC. i 

AND  MAS 

SEIZED  IT 

AT 

REL, 

CLK. 

4635 

FOR 

600 

SECONDS 

66 

9 160 

FHR 

DSC 

4642 

5 

* 

JOB 

n 

95 

requested  the  spsi 

PROCESSOR 

AT 

REL.  CLK. 

4642  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK, 

4642 

FOR 

360 

SECONDS 

66 

a 

3 

FMP 

DSC 

4643 

0 

86 

9 160 

DSC 

SPS 

4609 

46 

06 

8 

3 

DSC 

SPS 

4690 

0 

JOB 

H 

66 

REQUESTED  The  SPS2 

PROCESSOR 

AT 

REL.  CLK. 

4691  SEC,. 

AND  MAS 

SEIZED  IT 

AT 

REl  . 

CLK, 

4011 

FOR 

300 

SECONDS, 

60 

7 

4 

SPS 

GPH1 

4014 

2 

Job  * 68 

COMPLETE  at 

RELATIVE  CLOCK  * 4815 

SEC, 

70 

7 

0 

SPS 

GPH1 

4086 

4 

JOB  # 70 

complete  at 

RELATIVE  CLOCK  « 4809 

SEC. 

aa 

l 

A 

SPS 

DSC 

4090 

l 

03 

1 

4 

DSC 

FMP 

4892 

0 

83 

2 

4 

SPS 

DSC 

4892 

1 

6B 

2 

4 

DSC 

FMP 

4094 

o 

93 

1 

4 

SPS 

DSC 

4901 

l 

90 

l 

4 

DSC 

FMP 

4902 

0 

90 

2 

4 

(3PH2 

SPS 

4905 

z 

JOB 

u 

90 

requested  the  sp$2 

PROCESSOR 

AT 

REL.  CLK, 

4906  SEC, . 

and  has 

SEIZED  IT 

AT 

REL, 

CLK  • 

4906 

FOR 

360 

SECONDS, 

JOB 

4 

73 

requested  the  spsi 

PROCESSOR 

AT 

REL.  CLK, 

4753  SEC,, 

AND  HAS 

SEIZEO  IT 

AT 

REL, 

CLK. 

4942 

FOR 

1 

SECONOS, 

67 

3 

92 

SPS 

DSC 

4970 

26 

-104 


FILE  TRANSFER  SUMMARY  - PAGE  2S 


■ MO  i 

FILE  NO, 

NUMBER  OF 

blocks  Transferred 

FROM 

TO 

TRANSFER  COMPLETED  AT  DURATION. 

RELATIVE  CLOCK  TIME<$ EC)*.,  OF  TRANSFER 

(SFC.l 

87 

3 

92 

DSC 

FMP 

497* 

3 

JOB 

tf 

30*  requested 

the 

SPS1  PROCESSOR 

AT 

REL.  CLK, 

4992  SEC*  * 

AND  HAS 

SEIZED  IT 

AT 

REL,  CLK.  4992 

FOR 

1 

SECONDS. 

95 

7 

3 

SPS 

QPNl 

5005 

1 

Joa  « 

' 95  COMPLETE  AT 

RELATIVE  CLOCK  m 5006 

SEC* 

JOB 

n 

31 

requested 

the 

SPS1  PROCESSOR 

AT 

REL*  CLK , 

5035  SEC* i 

AND  HAS 

SEIZED  IT 

AT 

REL.  CLK.  5035 

FOR 

1 

SECONDS* 

31 

i 

1 

SPS 

DSC 

503T 

0 

JOB 

u 

32 

requested 

the 

SPS1  PROCESSOR 

AT 

REL*  CLK, 

5038  SEC* « 

AND  HAS 

SEIZED  IT 

AT 

REL*  CLK,  5038 

FOR 

1 

SECONDS. 

31 

1 

1 

DSC 

FMP 

5036 

0 

31 

. 

2 

1 

0PH2 

DSC 

5040 

I 

31 

2 

1 

DSC 

FMP 

5041 

0 

JOB 

H 

33 

REQUESTED 

the 

SPS1  PROCESSOR 

AT 

REL*  CLK, 

5102  SEC, o 

and  has 

SEIZED  IT 

AT 

RFL,  CLK.  5102 

FOR 

t 

SECONDS, 

86 

7 

2 

SPS 

GPH2 

5113 

1 

JOB  ft 

> 86  COMPLETE  AT 

RELATIVE  CLOCK  » 5114 

SEC. 

JOB 

* 

29 

REQUESTED 

the 

SPS1  PROCESSOR 

AT 

REL,  CLK, 

5133  SEC*. 

AND  HAS 

SCIZEO  IT 

AT 

RFL.  CLK*  5133 

FOR 

1 

SECONDS, 

29 

1 

l 

SPS 

DSC 

5136 

0 

29 

1 

1 

DSC 

FMP 

5137 

0 

29 

2 

1 

OPH2 

DSC 

5138 

1 

29 

2 

1 

DSC 

FMP 

5139 

0 

JOB 

71 

REQUESTED 

the 

FMP  PROCESSOR 

AT 

REL,  CLK, 

4346  SEC*  o 

AND  HAS 

SEIZED  IT 

AT 

REL.  CLK.  5235 

FOR 

60 

SECONDS. 

96 

9 

160 

FMP 

DSC 

5242 

5 

JOB 

0 

73 

requested 

the 

SPS1  PROCESSOR 

AT 

REL,  CLK, 

5243  SEC** 

AND  HAS 

SEIZED  IT 

AT 

REL.  CLK.  5243 

FOR 

1 

SECONDS. 

96 

a 

a 

FMP 

DSC 

5244 

0 

FILE  TRANSFER  SUMMARY  « PAGE  26 


JOB  NO* 

% FILE  NO, 

number  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

Transfer  completed  at  duration 

RELATIVE  CLOCK  TIMF<SEC>...  OF  TRANSFER 

<sec*> 

73 

1 

2 

SPS 

DSC 

5246 

0 

73 

l 

2 

DSC 

FMP 

5247 

0 

96 

e 

B 

DSC 

SPS 

5249 

4 

JOB 

U 

96 

requested 

THE 

SPS2  PROCESSOR 

AT 

REL#  CLK, 

5250  SEC*  9 

AND 

HAS 

SEIZED  IT 

AT 

REL.  CLK,  5250 

FOR  360 

SFCONDS, 

73 

2 

2 

OPH 1 

DSC 

5254 

6 

73 

2 

2 

DSC 

FMP 

5255 

0 

JOB 

N 

34 

REQUESTED 

THE 

SPS1  processor 

AT 

REL#  CLK. 

5257  SEC*  ♦ 

AND 

HAS 

SEIZED  IT 

AT 

RFL.  CLK.  5257 

FOR 

l 

SFCJV'DS  < 

73 

3 

19 

SPS 

OSC 

5262 

6 

73 

3 

19 

DSC 

FMP 

5264 

1 

’ 9& 

3 

46 

SPS 

DSC 

5295 

28 

JOB 

ft 

97 

requested 

the 

FMP  PROCESSOR 

AT 

REL*  CLK, 

4366  SEC* • 

AND 

HAS 

SEIZED  IT 

AT 

RFL.  CLK.  5295 

FOR  600 

SFCDMOS, 

98 

3 

46 

DSC 

FMP 

5303 

6 

71 

9 

125 

FMP 

DSC 

5309 

12 

71 

9 

125 

FMP 

DSC 

5320 

9 

9Q 

3 

46 

SPS 

DSC 

5337 

40 

98 

3 

46 

DSC 

FMP 

5343 

4 

96 

9 

160 

DSC 

SPS 

5343 

99 

JOB 

U 

35 

REQUESTED 

the 

SPS1  PROCESSOR 

AT 

REL,  CLK, 

5366  SEC.# 

and 

HAS 

SEIZED  IT 

AT 

RFL.  CLK,  5366 

FOR 

i 

SFCONDS 

35 

1 

1 

SPS 

DSC 

5368 

0 

35 

1 

1 

DSC 

FMP 

5369 

0 

35 

2 

1 

GPHl 

DSC 

5373 

4 

35 

2 

1 

OSC 

FMP 

5375 

0 

71 

9 

125 

DSC  , 

SPS 

5390 

87 

71 

9 

125 

DSC 

SPS 

5402 

80 
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1 NO. 

FILE  NO. 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TIMF<SFC>. 

“Oration 
..  OF  TRANSFER 

rsFr.i 

JOB  1 

* 71 

COMPLETE  at  RELATIVE  CLOCK  *■  54Q3 

sec< 

» 

JOB 

« 

36 

requested 

THE 

SPS1 

PROCESSOR 

AT 

REL.  CLK. 

5518  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

RFL* 

CLK,  5519 

FOR 

l 

SECONDS. 

JOB 

# 

37 

REQUESTED 

THE 

SPSl 

PROCESSOR 

AT 

REL.  CLK. 

5523  SEC*! 

AND 

HAS 

SEIZED  IT 

AT 

RfL  • 

CLK.  5523 

FOR 

l 

SFCO'-DS. 

JOB 

n 

39 

requested 

THE 

SPS1 

PROCESSOR 

AT 

REL.  CLK. 

5590  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  55^0 

FOR 

l 

SEC  o*ns. 

JOB 

n 

30 

requested 

THE 

SPSl 

PROCESSOR 

AT 

REL.  CLK* 

5593  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK,  S5HJ 

FOR 

l 

SECONDS. 

JOB 

# 

96 

REQUESTED 

THE 

SPS2 

PROCESSOR 

AT 

REL.  CLK. 

5611  SEC,# 

AND 

HAS 

SEIZED  it 

AT 

RFL# 

CLK*  5611 

FOR 

360 

SECONOS. 

JOB 

u 

32 

REQUESTED 

THE 

SPSl 

PROCESSOR 

AT 

REL*  CLK. 

5639  SEC,* 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK,  5639 

FOR 

‘ l 

SECONDS. 

32 

\ 

1 

SPS 

DSC 

5641 

0 

32 

1 

1 

DSC 

FMP 

5643 

0 

32 

2 

1 

GPHl 

DSC 

5644 

1 

32 

2 

1 

DSC 

FMP 

56*5 

0 

JOB 

* 

39 

REQUESTED 

the 

SPSl 

PROCESSOR 

AT 

REL*  CLK. 

5656  SEC** 

AND 

has 

SEIZED  ! T 

AT 

RFL. 

CLK,  5656 

FOR 

\ 

seen*  ns. 

39 

1 

1 

SPS 

DSC 

5658 

l> 

39 

1 

1 

osc 

FMP 

5659 

0 

39 

2 

1 

GPHl 

DSC 

5661 

) 

39 

2 

l 

DSC 

F HP 

5662 

0 

JOB 

* 

40 

REQUESTED 

the 

SPSl 

PROCESSOR 

AT 

REL*  CLK. 

5690  SEC.* 

AND 

MAS 

SEIZED  IT 

AT 

RFL. 

CLK,  5690 

FOR 

i 

SECONDS. 

JOB 

0 

33 

REQUESTED 

THE 

SPSl 

PROCESSOR 

AT 

REL*  CLK. 

5703  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  57'JJ 

FOR 

l 

SFCO^DS. 

33 

1 

1 

SPS 

DSC 

5705 

0 

33 

1 

1 

DSC 

FMP  * 

5706 

0 

33 

2 

1 

0PH1 

DSC 

5709 

) 
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JOB  NO* 

FILE  NO* 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIME{$EC>...  OF  TRANSFER 

(SEC.1 

33 

2 

1 

DSC 

FMP 

5709 

0 

JOB 

# 

34 

REQUESTED 

THE 

SPS1  PROCESSOR 

AT 

REL*  CLK* 

5858  SEC. f 

AND  HAS 

SEIZED  IT 

AT 

RFL  . 

CLK.  5858  FOR 

1 

SECONDS 

JOB 

n 

74 

requested 

THE 

SPSl  PROCESSOR 

AT 

REL*  CLK. 

5879  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK,  5879  FOR 

1 

SECONOS 

JOB 

u 

41 

requested 

THE 

spsi  processor 

AT 

REL*  CLK. 

5880  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK,  5880  FOR 

1 

SECONDS 

41 

1 

l 

SPS 

DSC 

5862 

0 

41 

1 

l 

DSC 

FMP 

5883 

0 

41 

2 

l 

QPH2 

DSC 

58fl4 

1 

41 

2 

l 

osc 

FHP 

5806 

0 

JOB 

* 

30 

requested 

The 

SPSl  PROCESSOR 

AT 

REL.  CLK, 

589*  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  5894  FOR 

1 

SECONDS 

JOB 

n 

28 

requested 

The 

FMP  PROCESSOR 

AT 

REL.  CLK* 

4541  SEC.  i 

AND  HAS 

seized  rr 

&T 

REL. 

CLK,  5895  FOK 

JO 

SECONDS, 

30 

l 

1 

SPS 

DSC 

5897 

0 

30 

1 

1 

osc 

FMP 

5896 

0 

30 

2 

1 

GPHl 

DSC 

5899 

l 

30 

2 

1 

DSC 

FMP 

5901 

0 

JOB 

n 

88 

requested 

The 

FMP  PROCESSOR 

AT 

REL.  CLK* 

4895  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK.  59<ib  FOR 

10 

SFCOi’fF)<; 

97 

9 

310 

FMP 

DSC 

• 

5911 

.14 

97 

8 

a 

FMP 

DSC 

5912 

0 

2a 

9 

90 

FMP 

DSC 

5913 

6 

JOB 

H 

87 

requested 

the 

FMP  PROCESSOR 

AT 

REL.  CLK, 

4975  SEC** 

AND  HAS 

SEIZED  IT 

AT 

RFl  . 

CLK*  5915  FOR 

60 

SFCn^ns 

97 

8 

8 

DSC 

SPS 

5916 

4 

JOB 

# 

97 

requested 

the 

SPSl  processor 

AT 

REL*  CLK* 

5919  SEC*. 

AND  MAS 

SEIZED  IT 

AT 

RFL. 

CLK.  5919  FOR  360 

SFCONDS 

28 

9 

90 

DSC 

SPS 

5942 

28 

JOB 

* 

28 

requested 

THE 

SPSl  PROCESSOR 

AT 

REL.  CLK* 

5943  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK*  5943  FOR 

60 

SECONDS, 
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JOB  NO* 

FILE  NO. 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  at  duration 

RELATIVE  CLOCK  TIMEISEO...  OF  TRANSFER 

(SEC  » 1 

99 

1 

4 

SPS 

OSC 

5946 

I 

99 

1 

4 

DSC 

FMP 

5947 

0 

99 

2 

4 

SPS 

DSC 

5948 

1 

99 

2 

4 

osc 

FMP 

6949 

0 

96 

7 

3 

SPS 

GPH2 

5974 

1 

JOB  0 

96  COMPLETE  AT 

RELATIVE  CLOCK  a 5975 

SEC. 

JOB 

31 

requested 

THE 

fmp 

PROCESSOR 

AT 

REL.  CLK. 

5042  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK.  5975 

FOR 

10 

SECONDS. 

87 

8 

3 

FMP 

DSC 

5977 

0 

87 

6 

3 

DSC 

SPS 

5979 

1 

JOB 

0 

87 

HEUUE5TEU 

THE 

spsi 

PROCESSOR 

AT 

REL.  CLK, 

5980  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  5980 

FOR 

300 

5FCOK  R5, 

JOB 

U 

29 

requested 

THE 

FMP 

PROCESSOR 

AT 

REL.  CLK, 

5140  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

RFL, 

CLK.  59*5 

FOR 

10 

SFCOnDS, 

31 

8 

2 

FMP 

DSC 

5987 

0 

JOB 

u 

73 

HEOUESTeO 

the 

FMP 

PROCESSOR 

AT 

REL*  CLK, 

5265  SEC. . 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  5995 

FOR 

60 

SECONDS. 

29 

a 

2 

FMP 

DSC 

5997 

0 

29 

8 

2 

DSC 

SPS 

6004 

0 

JOB  n 

28  i 

COMPLETE  AT 

RELATIVE  CLOCK  a 6004 

sec. 

31 

6 

2 

DSC 

SPS 

6004 

1 

JOB 

« 

29 

requested 

THE 

SPSI 

PROCESSOR 

AT 

REL.  CLK, 

6005  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  60»8 

FOR 

60 

SFCrV’OS, 

JOB 

0 

98 

requested 

the 

FMP 

PROCESSOR 

AT 

REL*  CLK. 

5344  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK,  6055 

FOR 

600 

SECONDS, 

73 

8 

6 

FMP 

DSC 

6057 

0 

JOB 

» 

31 

requested 

the 

SPSI 

PROCESSOR 

AT 

REL.  CLK. 

6005  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

RFl  . 

CLK,  606b 

FOR 

60 

SFCmrDS, 

JOB  a 

i 29 

COMPLETE  AT  RELATIVE  CLOCK  • 6066 

SEC. 

JOB 

0 

42 

requested 

the 

SPS2 

PROCESSOR 

AT 

REL.  CLK. 

6078  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  6078 

FOR 

1 

SFrnNOs 

42 

1 

1 

SPS 

DSC 

6080 

0 

42 

1 

1 

DSC 

FMP 

6082 

0 

FILE  TRANSFER  SUMMARY  - PAGE  3D 


JOB  NO. 

FILE  NO, 

NUMBER  OF 
BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  T1MF <5Eri , , . 

DURATION 
OF  TRANSFER 

42 

2 

1 

GPHL 

DSC 

6083 

1 

42 

2 

1 

DSC 

FMP 

6084 

0 

JOS  # 43  REQUESTED  The  SPS2  PROCESSOR  at  REL  . CLK,  60BB  SEC*  * AND  HAS  SEIZED  IT  AT  PEL • CLK,  60***  FOR  1 SECONDS. 


43 

1 

1 

SPS 

DSC 

6090 

0 

43 

1 

1 

DSC 

FMP 

6092 

0 

43 

2 

l 

GPH2 

DSC 

6093 

1 

43 

2 

1 

DSC 

FMP 

6094 

0 

JOB  » 31  COMPLETE  AT  RELATIVE  CLOCK  > 6126  SEC. 

73  6 6 DSC  SPS  6127  1 

JOB  # 36  REQUESTED  THE  SPS1  PROCESSOR  AT  REL  * CLK«  6119  SEC<*  AND  HAS  SEIZEO  IT  AT  RFL.  CLK,  6127  FOP  1 SPCCi'  D*. 

JOB  # 37  HEQUESTEO  THE  SPS1  PROCESSOR  AT  REL.  CLK.  6124  SEC.#  AND  HAS  SEIZED  IT  AT  RFL.  CLK.  6126  FOR  t SEfO'vOS. 


36 

1 

1 

SP5 

DSC 

6129 

0 

1 

37 

1 

1 

SPS 

DSC 

6130 

0 

> 

l 

36 

1 

1 

DSC 

FMP 

6131 

0 

o 

37 

1 

l 

DSC 

FMP 

6132 

0 

VO 

36 

2 

1 

GPH2 

osc 

6132 

1 

37 

2 

1 

GPH1 

DSC 

6133 

1 

36 

2 

l 

DSC 

FMP 

6133 

0 

37 

2 

1 

DSC 

FMP 

6134 

0 

JOB  * 

75 

REQUESTED 

the 

SPSS 

PROCESSOR 

AT 

REL.  CLK,  6146 

SEC.  i 

AND 

HAS  SEIZED 

IT 

AT 

RFL.  CLK,  6148 

FOR 

1 SECONDS 

JOB  ft 

34 

requested 

the 

SPSi 

PROCESSOR 

AT 

REL.  CLK.  6159 

SEC.. 

AND 

HAS  SEIZED 

IT 

AT 

RFL.  CLK,  6159 

FOR 

1 SECONDS 

34 

1 

t 

SPS 

OSC 

6161 

0 

34 

1 

1 

DSC 

FMP 

6163 

0 

34 

2 

l 

GPH2 

DSC 

6164 

1 

-110 


file  transfer  summary  - page  at 


JOB  NO. 

FILE  NO. 

NUMBER  OF 

FROM 

TO 

transfer  completeh  AT 

duration 

BLOCKS 

TRANSFERRED 

RELATIVE  CLOCK  TIME  < SEC) . 

. 

OF  TRANSFER 

(SEC.) 

34 

2 

1 

OSC 

FNP 

6166 

0 

J08  * 

38  HEQVE5TE0 

the  spsi 

PROCESSOR 

AT 

BEL.  CLK, 

6191  SEC.  » 

and  has 

SEIZED  IT 

AT 

RFL, 

CLK  . 

6191 

FOR 

1 

SECONDS. 

JOB 

* 

76  REQUESTED 

THE  SPS2 

PROCESSOR 

AT 

REL.  CLK. 

6215  SEC*. 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK* 

6215 

FOR 

1 

SECONDS. 

JOB 

* 

73  REQUESTED 

the  spsi 

PROCESSOR 

AT 

BEL.  CLK, 

6126  SEC.  « 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK. 

6279 

FOR 

1RO 

SECONDS. 

JOB 

0 

97 

requested 

the  spsi 

PROCESSOR 

AT 

REL.  CLK, 

6280  SEC. t 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK. 

62BU 

FOR 

360 

SECONDS. 

a? 

T 

2 

SP5 

GPH2 

6282 

1 

Job  m a7 

COMPLETE  AT 

RELATIVE  CLOCK  » 6283 

SEC. 

JOB 

0 

40 

requested 

THE  SPSI 

PROCESSOR 

AT 

REL.  CLK , 

6291  SEC.. 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK. 

6291 

FOR 

1 

SECONDS. 

40 

1 

1 

SPS 

DSC 

6294 

0 

40 

l 

1 

* 

DSC  * 

FMP 

6295 

0 

40 

2 

l 

GPH2 

DSC 

6296 

1 

40 

2 

s 

DSC 

FMP 

6297 

0 

JOB 

0 

44 

requested 

the  sps2 

PROCESSOR 

AT 

BEL.  CLK. 

6357  SEC. t 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK. 

6357 

FOR 

1 

SECONOS. 

44 

1 

1 

SPS 

DSC 

6359 

0 

44 

1 

i 

DSC 

FMP 

6361 

a 

44 

2 

l 

GPH1 

DSC 

6362 

1 

44 

2 

l 

.OSC 

FMP 

6363 

0 

73 

7 

4 

SPS 

GPHI 

6462 

2 

JOB  4 73  COMPLETE  AT 

RELATIVE  CLOCK  « 6463 

SEC. 

JOB 

0 

74  REQUESTED 

THE  SPSI 

PROCESSOR 

AT 

REL.  CLK. 

6480  SEC*. 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK. 

64Q0 

FOR 

1 

SECONDS. 

74 

1 

2 

SPS 

DSC 

64B2 

0 

74 

X 

2 

DSC 

FMP 

6483 

0 

74 

2 

2 

GPHi 

DSC 

6486 

2 

-Ill 
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JOB  NO* 

FILE  NO* 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

transfer  completed  at 

RELATIVE  CLOCK  TlMEtSEC). 

• * 

DURATION 
OF  TRANSFER 

ISEC*> 

JOB 

* 

77 

requested 

the 

SPS2  PROCESSOR 

AT 

REL*  CLK. 

6486  SEC*  » 

AND 

HAS 

SEIZED  IT 

AT 

REL* 

CLK, 

6486  FOR 

1 

SECONOS 

74 

2 

2 

DSC 

FMP 

6487 

0 

77 

1 

2 

SPS 

DSC 

6489 

0 

77 

i 

2 

DSC 

FMP 

6490 

0 

77 

2 

2 

GPhl 

SPS 

6491 

1 

JOB 

* 

3B 

HEOUESTED 

the 

SPSi  PROCESSOR 

AT 

REL*  CLK* 

6492  SEC  * i 

AND 

HAS 

SEIZED  IT 

AT 

RFL* 

CLK, 

6492  FOR 

1 

SECONDS 

JOB 

H 

77 

requested 

THE 

SPSH  processoh 

AT 

REL*  CLK* 

6492  SEC* i 

AND 

HAS 

SEIZEO  IT 

AT 

REL* 

CLK* 

6492  FOR 

BO 

SECONDS 

74 

3 

19 

SPS 

DSC 

6493 

6 

38 

1 

l 

SPS 

DSC 

6494 

0 

74 

3 

19 

DSC 

FMP 

6495 

0 

38 

l 

i 

DSC 

FMP 

6495 

0 

38 

2 

1 

GPH1 

OSC 

6497 

1 

38 

2 

1 

OSC 

FHP 

6498 

0 

JOB 

n 

70 

HEGUESTeD 

THE 

SPSH  PROCESSOR 

AT 

PEL  • CLK* 

6522  SEC.* 

AND 

MAS 

SEIZEO  IT 

AT 

RFL. 

CLK, 

6522  FOR 

1 

SECONDS 

JOB 

4 

45 

heguested 

THE 

SPS2  PROCESSOH 

AT 

REL.  CLK* 

6530  SEC*. 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK* 

6530  FOR 

1 

SECONDS 

77 

2 

2 

SPS 

D5C 

6574 

0 

77 

2 

2 

DSC 

FMP 

6575 

0 

77 

3 

19 

SPS 

DSC 

6581 

S 

77 

3 

19 

osc 

FMP 

6583 

0 

97 

7 

3 

SPS 

GPH2 

6643 

1 

JOB  tf 

97  COMPLETE  AT 

RELATIVE  CLOCK  « 6644 

SEC. 

JOB 

* 

35 

REQUESTED 

THE 

fhp  processor 

AT 

REL*  CLK, 

5376  SEC** 

AND 

HAS 

SEIZED  IT 

AT 

RFL* 

CLK* 

6655  FOR 

10 

SECONDS 

98 

8 

a 

FMP 

DSC 

6657 

0 

98 

8 

8 

DSC 

SPS 

6660' 

2 

-112 
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= J£4?1QN 

Tfe^SFER  (SEC#)? 


fesf^OR  360  SECONDS. 


S =&65  FDR  10  SECONDS. 


98  KEi.'UEiTEO  1 HE  SP  12  ^R'CESSOH  t T l£L,  CuK,  6u61  SEC.i  Ai  JD  HAS  SI  IZ'D  IT  AT  RE  -#  Cfc-= 
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l i » J , \ I ‘ i f 1,1  , i t 1 ; . \ " , > 

U WE<  'UE  >TE  3 THE  FHP  PR<  CE  iSO  i /T  ^EL  , ClK,C  5087  SEC#.  A1 1[>  HA*  SlJ'IZiD  IT  AT  RE  _•  C==  ;= 
‘ * ; \ \ > } • t \ i i 1 i ■ f ' • 1 * l • 


£=»*  f DR  60  SECONDS* 

=>&?&  FOR  10  SECONDS* 


FOR  10  SECONDS. 


r.1  *2  5 

FOR  10  SECONDS. 


1 * < e'  < * ■ ' -2  4 ! r F DSC  * Vi  ' f ' > 1 '>lto  ' • r * * . 

„ }■  '3  \ \ 1 - > C s?l 
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ST-^1  FOR  60  SECONDS* 


^5  FOR  10  SECONDS. 


11  * f‘  !,7(]‘7  • 


t - »f't  FOR  60  SECONDS. 


6 * 2 ' D >C  1 ’ SP 5 " ‘S709 

c i * *'  i i * ^ , i \ • , .*  s > : : i ,*s  i 
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38  HEI'UEjTE^  1 HE  F‘HP  PR<  CE-lSO^  i T ilEL  , ClK,(  5;a6  SIC#.  Am  HA<  SfVlZiD  IT  AT  R€-#  Ct  r 
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?I5  FOR  60  SECONDS. 
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* 1 ‘J  t 
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> [ !i7/o  1 

t \ \ a r 


fOR  6 0 SECONDS. 


32  REhUEiTEO  1 HE  SP^l  PRi'CEvSO^  n I^ELi  ClK,E  ^^l  SIC*-  A HD  HA!  SfW-D  IT  AT  R6-«  ti:  = s? 

I \ ; A \ \ \ t ) \ f . i ' ' * « ’I  . ^ D.Ki  -??= 


*T5  lRElW*TE^  The' SP>2  ^ROce’iSt/n  /t  l’EL*i  CLK,J  6/49;S£C#f  a'hd  HA!^  sr^izfto  'it  r AT-  Rr.4  •C*/,s 
1 \ * « ' 

(39  WlUe^TE^  iHE^SPil  Wce’iSl/^  h liEL'i  cu,1  6’*5<rSfC#1  A(HD  HA!'  Sr^lzftD^IT^rRri.# 

‘if,  t 1 t i » / J i ' v t *.  1 t ^ * 

J(B  l<  31}  C0MI,Le;E  AT  RELATIVE  cfoca  * C76!'  S-C.  . ' * , , 4 

* 1 f 1 } * I 1 1 l ' t > I ’ ' 1 » • I 


^ FOR  1 SECONOS. 


ap,  FOR  60  SECONDS. 


\ l 
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I 

> 


uo 


JOB  NO. 


FILE  NO, 

NUMBER  OF 

FROM 

TO 

Transfer  completed  at 

DURATION 

BLOCKS  TRANSFERRED 

RELATIVE  CLOCK  TIME (SEC). ** 

OF  TRANSFER  (SEC*  > 

30 

9 

90 

OSC  SPS 

6765 

40 

JOB 

* 

30 

requested 

THE 

SPSI  PROCESSOR 

AT 

REL.  CLK,  6766  SEC* * 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK. 

6766 

FOR 

60 

SECONOS 

JOG 

* 

79 

requested 

THE 

SPS2  PROCESSOR 

AT 

REL.  CLK.  6767  SEC.* 

AND 

has 

serzco  IT 

AT 

RFL, 

CLK. 

6767 

FOR 

I 

seconds 

job  u 

41  COMPLETE  AT  RELATIVE  CLOCK  « 6771 

SEC, 

dim 

» 

99 

requested 

the 

FMP  PROCESSOR 

AT 

REL*  CLK,  5950  SEC* • 

AND 

has 

seized  it 

AT 

REL. 

CLK, 

6775 

FOR 

10 

SECONDS 

aa 

9 

220 

FMP  OSC 

6764 

7 

aa 

6 

3 

FMP  OSC 

6785 

0 

JOB 

4 

42 

requested 

the 

FMR  PROCESSOR 

AT 

REL.  CLK,  6065  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL, 

CLK, 

6785 

FOR 

10 

SFCONDS 

aa 

a 

3 

DSC  SPS 

6767 

1 

JOB 

4 

aa 

REQUESTED 

the 

SPSS  PROCESSOR 

AT 

REL.  CLK*  6768  SEC.* 

and 

HAS 

SEIZED  IT 

AT 

PEL* 

CLK, 

6780 

FOR 

300 

SECONDS 

JOB  4 

1 32  COMPLETE  AT  RELATIVE  CLOCK  * 6792 

SEC, 

i 

JOB 

M 

43 

REQUESTED 

the 

FMP  PROCESSOR 

AT 

REL,  CLK,  6095  SEC*# 

AND 

HAS 

SFIZEO  IT 

AT 

REL, 

CLK. 

6795 

FOR 

10 

SECONDS 

42 

6 

2 

FMP  DSC 

6797 

0 

42 

e 

2 

DSC  SPS 

6798 

0 

JOB 

# 

42 

REQUESTED 

THE 

SPS2  PROCESSOR 

AT 

REL,  CLK,  6799  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK, 

6799 

FOR 

60 

SECONDS 

JOB 

4 

36 

requested 

THE 

FMP  PROCESSOR 

AT 

REL*  CLK.  6134  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL, 

CLK, 

6805 

FOR 

10 

SECONDS 

43 

9 

90 

FMP  OSC 

6610 

3 

JOB  M 

' 39  COMPLETE  AT  RELATIVE  CLOCK  » 6fl l 1 

SEC, 

JOB 

n 

37 

requested 

THE 

FMP  PROCESSOR 

AT 

REL.  CLK.  6135  S£C*« 

and 

HAS 

SEIZED  IT 

AT 

REL, 

CLK, 

6815 

FOR 

10 

SECONDS, 

36 

9 

90 

FMP  OSC 

6620 

3 

JOB 

* 

34 

REQUESTED 

the 

FMP  PROCESSOR 

AT 

REL,  CLK,  6166  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK, 

6025 

FOR 

10 

SECONDS 

37 

a 

2 

FMP  DSC 

6027 

0 

JOB  4 

30  COMPLETE  AT  RELATIVE  CLOCK  * 6827 

SEC, 

37 

6 

2 

OSC  SPS 

6629 

1 

JOB 

4 

37 

REQUESTED 

the 

SPSI  PROCESSOR 

AT 

REL.  CLK,  6630  SEC.* 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK, 

6830 

FOR 

60 

SECONDS 

frU- 
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JOB  NO* 

FILE  NO* 

NUMBER  OF 
BLOCKS  TRANSFERRED 

FROM  TO 

TRANSFER  COMPLETED  AT 
RELATIVE  CLOCK  TlMttSECl* 

DURATION 
**  OF  TRANSFER 

(SEC* 1 

JOB 

* 

40 

requested 

THE  FMP  PROCESSOR  AT 

REL*  CLK*  6298  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK,  6835 

FOR 

10 

seen -os., 

34 

a 

2 

FMP  DSC 

6837 

0 

34 

a 

2 

DSC  SPS 

6039 

1 

JOB 

# 

34 

REQUESTED 

The  spsi  processor  at 

REL*  CLK*  6840  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK,  6840 

FDR 

60 

seconds. 

JOB 

H 

44  REQUESTED 

The  FMP  PROCESSOR  AT 

REL*  CLK,  6364  SEC** 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK.  6045 

FOR 

10 

sFrrv  ns. 

36 

9 

90 

DSC  SPS 

6849 

28 

JOB 

* 

36 

requested 

The  SPSI  PROCESSOR  at 

REL*  CLK*  6850  SEC** 

AND  HAS 

SEIZED  IT 

AT 

RFL* 

CLK,  6050 

FOR 

60 

sfconds. 

40 

9 

90 

FMP  DSC 

6050 

4 

JOB 

# 

74 

requested 

The  FMP  PROCESSOR  AT 

REL*  CLK.  6496  SEC** 

AND  HAS 

SEIZED  IT 

AT 

RFL  • 

CLK,  6855 

FOR 

60 

SFC(V W)S, 

Job  4 42  COMPLETE  at  RELATIVE  CLOCK  •*  6860 

SEC. 

44 

9 

90 

FMP  DSC 

6062 

5 

JOB  4 37  COMPLETE  AT, RELATIVE  CLOCK  * 6891 

sec. 

40 

9 

90 

DSC  SPS 

6696  . 

44 

JOB 

40 

requested 

THE  SPSI  PROCESSOR  AT 

REL*  CLK.  6897  SEC** 

AND  HAS 

SEIZED  IT 

AT 

PEL. 

CLK,  6897 

FOR 

60 

SECONDS* 

JOB  4 34  COMPLETE  AT  RELATIVE  CLOCK  * 6901 

SEC* 

JOB  4 36  COMPLETE  AT  RELATIVE  CLOCK  a 69U 

SEC* 

43 

9 

90 

DSC  SPS 

6913 

53 

44 

9 

90 

DSC  SPS 

6915 

52 

JOB 

43 

requested 

THE  SPS2  PROCESSOR  AJ 

REL*  CLK*  6914  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK,  691b 

FOR 

60 

SFT(V  OS, 

JOB 

* 

30 

REQUESTED 

THE  FMP  PROCESSOR  AT 

REL*  CLK*  6499  SEC* * 

AND  HAS 

SEIZEO  IT 

AT 

RFL. 

CLK,  691b 

FOR 

10 

sfconos. 

74 

8 

12 

FMP  DSC 

6917 

0 

74 

8 

12 

DSC  SPS 

6922 

3 

JOB 

* 

74 

KEQUESTEO 

THE  SPSI  PROCESSOR  AT 

REL.  CLK*  6923  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

RFL. 

CLK,  6923 

FOR  360 

SFCO*‘DS , 

JOB 

H 

77 

REQUESTED 

THE  FMP  PROCESSOR  AT 

REL*  CLK*  6584  SEC** 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK,  6925 

FOR 

60 

spends* 

JOB 

* 

46 

requested 

THE  SPSI  PROCESSOR  AT 

REL*  CLK*  6926  SEC.* 

AND  HAS 

SEIZEO  IT 

AT 

RFL* 

CLK*  692b 

FOR 

1 

SECONDS. 
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NUMBER  OF 

SHOCKS  TRANSFERRED 

- 

FROM::* 

TO  | 

TRANSFER  COMPETED  AT 
RELATIVE  CLOC<  TIHF<SEC>*. 

duration 
, OF  TRANSFER 

(SEC . 1 

|'J0^  N*U 

- FLUE  jNO'S  i - ?-  iC  < •? 

§r  ~ % f - ; 

FMP 

OSC 

£ 692S 

0 

i i i 

DSC 

SPS 

6924= 

0 

38 

8 

; THE  ?PS1  PROCESSOR 

AT 

REL«  CLK,  6929  S£C»# 

AND  has 

SEIZED  ST 

AT 

REL, 

CLK.  6929 

FOR 

60 

SECOND 9. 

38 

B „ 

5e-  M 4C  COMPLETE  AT 

RELATIVE 

CLOCK  p 6958 

SEC. 

JOE 

* 

39  mi,ESrE0;T ?h  3PS-2  PROCESSOR 

AT 

REL»  CLKa  6916  SEC** 

‘and  has 

SEIZED  tJ 

AT 

REL. 

CLK.  6975 

FOR 

60 

SECONDS. 

JCU  - - ^ § : 

ice  # 43  COMPLETE  at 

RELATIVE 

CLOCK  s 6976 

SEC* 

JOE 

* 

4t  REGlIES  TgC  ns  S £ £ * K 

: =HE  FMP  PROCESSOR 

AT 

REL.  CLK » 6786  SEC* i 

AND  HAS 

SEIZED  IT 

AT 

RFl. 

CLK.  6985 

FOR 

600 

SECONDS. 

JGt  2 = € I " 

6 

~ FMP 

DSC 

698T 

0 

* 

JOE' 

* 

9»  REQUESTED  Tt  = * r H .=  e 

! , 1 JCfc  # 38  COMPLETE  AT 

RELATIVE 

CLOCK  a “~699  0 

SEC* 

“ * r - 

77 

8 

: :ME  5PS2  PROCESSOR 

AT 

REL.  Cl 

■K*  6616  SEC*  * 

AND  HAS 

SEIZED  IT 

AT 

REL, 

CLK.  7021 

FOR 

1 

SECONDS. 

: 

I 

1 

i JOI  : ■“  -3  s 

5 

DSC 

" SPS 

* ’ 

7023 

2 

JOH 

# 

76  *EQfl£SrEC  T?s  -?  £ J :f  1 

SPS 

* DSC~ 

5 ' 

702* 

0 

77 

1 

1 i I8  1 L THE  5PS2  PROCESSOR 

AT 

REL.  CL 

.K,  T 022  SEC  * * 

AND  HAS 

SEIZED  IT 

AT 

REL. 

CLK.  7024 

FOR 

360 

SFCO^DS. 

76 

1 

DSC 

FMP 

f02§ 

0 

JOtl 

m 

) 

9 8 h'EQIJE&TEO  --  § *5  :I  S 

1 * l I i s 

GPHl 

DSC  * 

* 

TO  23 

2 

76 

l 

3 

DSC 

FMP 

7^02? 

* 

0 

76 

--a;,  . ' & s 

i 1 i i-3§  #4%  COMPLETE  AT  RELATIVE 

CLOCK  • 7036 

SEC. 

= 

76 

19 

SPS 

DSC 

f04: 

5 

- 1 ijc:  * ? „ = ’ 

19 

5 

DSC 

FMP 

? c 

^04* 

0 

76 

3 J t fr’E  SP§2  PROCESSOR 

AT 

PEL*  CLK*  7024  SEC.t 

AND  MAS 

SEIZED  IT 

AT 

REL. 

CLK,  7088 

FOR 

180 

SECONDS. 

76 

1 

3 = The  sp§i  processor 

AT 

REL*  CLK,  7089  SEC.t 

AND  MAS 

SEIZED  IT 

AT 

RFL. 

CLK.  7089 

FOR 

1 

SECONDS. 

JOfl 

< 

#. 

7 7 flEQUESTEfi  T=  = £-  ? ’’  } = ; 

2 

? 

SPS 

GPHl 

- * i' 

f 09l 

1 

JOIl 

u 

l 

V I/eQ,JES;TEl}  Jo§  # 8?  COMPLETE  AT  RELATIVE 

CLOCK  • 7092 

SEC*  ’ 

- : : 

86 

7 = 

1 

SPS 

DSC 

?092 

0 

f 1 >JC-£  * _ 0 * 

i 

DSC 

FMP 

7093 

0 

47 

l 

* 

Z 

47 

1 

- 

: : 

1 1-A-1 16 
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JOB  NO* 

FILE  NO* 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIMEtSEO...  OF  TRANSFER 

<SFC*> 

47 

2 

l 

GPMI 

DSC 

7094 

1 

47 

2 

I 

DSC 

FMP 

7095 

0 

JOB 

* 

45 

REQUESTED 

the 

SPS2 

PROCESSOR 

AT 

REL*  CLK * 

7131  SEC*  9 

AND  HAS 

SEIZED  XT 

AT 

REL*  CLK* 

7131  FOR 

l 

SECONDS. 

45 

1 

1 

SPS 

DSC 

7133 

0 

45 

1 

l 

DSC 

FMP 

7134 

0 

45 

2 

1 

GPH1 

DSC 

7136 

1 

45 

2 

1 

DSC 

FMP 

7137 

0 

JOB 

» 

46 

requested 

the 

SPS) 

PROCESSOR 

AT 

REL*  CLK „ 

7148  SEC*. 

AND  HAS 

SEIZED  IT 

AT 

REL*  CLK. 

7J48  FOR 

1 

SECONDS*. 

JOB 

« 

75 

requested 

the 

SPS2 

PROCESSOR 

AT 

REL*  CLK* 

7050  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

RFI  * CLK* 

7268  FOR 

l 

SECONDS. 

JOB 

* 

78 

requested 

the 

SPS2 

PROCESSOR 

AT 

REL.  CLK. 

7123  SEC** 

AND  HAS 

SEIZED  IT 

AT 

REL.  CLK* 

7269  FOR 

1 

seenNos. 

75 

1 

2 

SPS 

DSC 

7271 

0 

77 

7 

4 

SPS 

GPH1 

7272 

2 

75 

1 

2 

DSC 

FMP 

7273 

0 

, 

JOB  tt  77 

complete  ai 

RELATIVE  CLOCK  ■ 7273 

SEC. 

75 

2 

2 

QPH1 

DSC 

7275 

2 

75 

2 

2 

DSC 

FMP 

7276 

0 

75 

3 

19 

SPS 

OSC 

7282 

s 

75 

3 

19 

DSC 

FMP 

7283 

0 

74 

7 

8 

SPS 

GPH1 

7289 

4 

JOB  4 

¥ 74 

COMPLETE  AT  RELATIVE  CLOCK  » 7290 

SEC* 

JOB 

80 

REQUESTED 

the 

SPSl 

PROCESSOR 

AT 

REL*  CLK0 

7302  SEC.* 

AND  HAS 

SEIZED  IT 

AT 

REL*  CLK, 

7302  FOR 

t 

seconos. 

JOB 

ft 

49 

REQUESTED 

THE 

SPSI 

processor 

AT 

REL*  CLK. 

7347  SEC.* 

AND  HAS 

SEIZED  XT 

AT 

REL*  CLK, 

7347  FOR 

X 

SECONDS. 

FILE  TRANSFER  SUMMARY  - PAGE  38 


JOB  NO* 

FILE  NO. 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

TO 

transfer  completer  at  duration 

RELATIVE  CLOCK  TIMF(SEC)...  OF  TRANSFER 

(SFr.) 

JOB 

* 

50 

requested 

THE 

SPS1  PROCESSOR 

AT 

REL.  CLK. 

7354  SEC.* 

AND 

HAS 

SEIZED  IT  AT 

PEL.  CLK.  7354  FOR 

1 

SECONDS. 

JOB 

* 

89 

requested 

THE 

SPSl  PROCESSOR 

AT 

REL.  CLK. 

7357  SEC.* 

AND 

HAS 

SEIZED  IT  AT 

PFl;  CLK.  7357  FOR 

3 

seen* os. 

joa 

n 

si 

requested 

THE 

SPS2  PROCESSOR 

AT 

REL.  CLK • 

7358  SEC*. 

AND 

HAS 

SEIZED  IT  AT 

BFL.  CLK.  7358  FO« 

1 

SECONDS. 

SI 

I 

1 

SPS 

OSC 

7360 

0 

SI 

I 

\ 

OSC 

FMP 

7361 

0 

51 

2 

1 

GPHl 

DSC 

7363 

1 

89 

1 

4 

SPS 

DSC 

7363 

1 

SI 

2 

l 

DSC 

FMP 

7364 

0 

89 

I 

4 

DSC 

FMP 

7364 

0 

89 

2 

4 

SPS 

DSC 

7366 

1 

89 

2 

4 

DSC 

FMP 

7367 

0 

• 

JOB 

* 

79 

KEQUESTED 

The 

SPS2  PROCESSOR 

AT 

REL.  CLK. 

7360  SEC.* 

AND 

has 

SEIZED  IT  AT 

REL.  CLK.  736«  FOR 

1 

SECONDS. 

1 

79 

1 

2 

SPS 

DSC 

7371 

0 

1 

1 

79 

1 

2 

DSC 

FMP 

7372 

0 

79 

2 

2 

GPHl 

DSC 

7375 

2 

-3 

79 

2 

2 

DSC 

FMP 

7376 

0 

79 

3 

19 

SPS 

DSC 

7382 

5 

79 

3 

19 

DSC 

FMP 

7303 

0 

98 

7 

3 

SPS 

GPH2 

7307 

1 

JOB 

H 98  COMPLETE  at  RELATIVE  CLOCK  • 7308 

SEC< 

i 

JOB 

H 

46 

REQUESTED 

THE 

SPSl  PROCESSOR 

AT 

REL.  CLK. 

7527  SEC.. 

ANf) 

HAS 

SEI7ED  IT  AT 

RFL.  CLK.  7527  FOR 

1 

SFCONOS. 

JOB 

* 

52 

HEUUESTED 

THE 

SPSl  PROCESSOR 

AT 

REL.  CLK. 

7535  SEC.. 

AND 

HAS 

SEIZED  IT  AT 

RFL.  CLK.  753b  FOR 

1 

SECONDS. 

52 

1 

1 

SPS 

DSC 

7537 

0 

81 1- 
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I 


JO0  NO, 

FILE  NO , 

NUMBER  OF 

BLOCKS  TRANSFERRED 

FROM 

52 

1 

i 

DSC 

52 

2 

i 

GPHl 

52 

2 

) 

DSC 

JOB 

* 

78 

requested 

the 

SPS2  PROCESSOR 

AT 

REL.  CLK . 

78 

I 

2 

SPS 

78 

1 

2 

DSC 

78 

2 

2 

GPHl 

76 

2 

2 

OSC 

78 

3 

19 

SPS 

JOB 

0 

76 

REQUESTED 

the 

FHP  PROCESSOR 

AT 

REL • CLK. 

78 

3 

19 

OSC 

99 

8 

a 

FHP 

99 

6 

8 

DSC* 

JOB 

0 

99 

REQUESTED 

The 

SPS2  PROCESSOR 

AT 

REL*  CLK. 

JOB 

0 

81 

requested 

the 

spsi  processor 

AT 

REL.  CLK. 

JOB 

# 

47 

REQUESTED 

the 

FHP  PROCESSOR 

AT 

RFL.  CLK. 

76 

9 

125 

FHP 

JOB 

# 

43 

REQUESTED 

the 

FHP  PROCESSOR 

AT 

REL*  CLK. 

*7 

a 

2 

FMP 

76 

9 

123 

FMP 

47 

8 

2 

DSC 

JOB 

H 

47 

REQUESTED 

the 

SPSI  PROCESSOR 

AT 

REL.  CLK. 

JOB 

H 

75 

requested 

the 

FHP  PROCESSOR 

AT 

REL*  CLK. 

45 

8 

2 

FMP 

45 

8 

2 

OSC 

TO  transfer  completed  at  duration 

RELATIVE  CLOCK  TlHF<SFC>...  OF  TRANSFER  tSEC.) 


FMP 

7538 

0 

DSC 

7540 

1 

FMP 

7541 

0 

7570  SEC*. 

AND 

HAS 

SEIZED  IT 

AT 

REL* 

CLK* 

7570 

FOR 

1 

SECONDS. 

OSC 

7573 

0 

FMP 

7574 

0 

DSC 

7577 

2 

FMP 

7578 

0 

DSC 

7584 

5 

7043  SEC*. 

AND 

HAS 

seized  rr 

AT 

REL* 

CLK. 

7585 

FOR 

60 

SECONDS. 

FMP 

7586 

0 

DSC 

7587 

0 

SPS 

7590 

2 

7591  SEC.# 

and 

HAS 

SEIZED  IT 

AT 

REL* 

CLK. 

7591 

FOR 

360 

SECONOS. 

7595  SEC*# 

AND 

HAS 

SEIZED  IT 

AT 

REL* 

CLK. 

7595 

FOR 

1 

SECONDS. 

7096  SEC*. 

AND 

HAS 

SEI2ED  IT 

AT 

REL. 

CLK. 

7645 

FOR 

10 

SECONDS. 

DSC 

7661 

4 

7138  SEC*  & 

AND 

HAS 

setzeo  rr 

AT 

«FL* 

CLK. 

7655 

FOR 

to 

SECONDS. 

DSC 

7657 

0 

DSC 

7656 

6 

SPS 

7659 

0 

7660  SEC*. 

AND 

HAS 

SEIZED  IT 

AT 

RFL* 

CLK* 

7660 

FOR 

60 

SECONOS. 

7284  SEC.# 

AND 

HAS 

SEIZED  IT 

AT 

REL. 

CLK, 

7665 

FOR 

60 

SFCDNOS. 

DSC 

7667 

0 

SPS 

7670 

2 

61 1“ 


file  transfer  summarv  - page  ao 


JOB  NO* 


FILE  NO.  NUMBER  OF  PROM  TO 

BLOCKS  TRANSFERRED 


TRANSFER  COMPLETED  AT  DURATION 

RELATIVE  CLOCK  TIMF(SEC)..#  OF  TRANSFER  <SFC.) 


JOS  # 45  REQUESTED  THE  SPSS  PROCESSOR  AT  REL#  CLK.  7671  SEC#*  ANO  HAS  SEIZED  IT  AT  RFL*  CLK.  7671  FOR  60  SECONDS. 


I 

> 
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SIMULATION  COMPLETE.  SUMMARY  STATISTICS 


THE  FOLLOWING 
< THE  time 


STATISTICS  SUMMARISE  THE  UTILIZATION  OF  THE  PROPOSED  NASF  MARDWAkE. 
UNIT  IS  1 0 -MICROSECONDS  UNLESS  OTHERWISE  NOTED  U 


QUEUING  STATISTICS  FOR  THE 


FMP  AND  SP$»S 


I 

> 


QUEUE 

MAXIMUM  AVERAGE 

TOTAL 

ZERO 

CONTENTS  CONTENTS 

ENTRIES 

ENTRIES 

FMPQ 

18 

5*265 

86 

13 

SPSIQ 

2 . 

0,067 

123 

113 

SPS2Q 

3 

0,154 

95 

7Q 

UTILIZATION  OF  THE 

FMP 

• 

facility 

average* 

NUMBER 

AVERAGE 

UTILIZATION 

ENTRIES 

TIME/TRAN 

0 . 95? 

Fmp 

. '*«*SS* 

81 

^-0i-2ST82T- 

PERCENT  AVERAGE  *AVf RAGE 

ZEROS  TTMe/THAN  TIME/TRAN 

15.1  4 7 169699 * 837  56341585.917 

91.9  t 417593.496  5136400,000 

82.1  1246734,474  696*7045,588 


UTILIZATION  OF  THE  SpS  AND  GRF  DEVICES 


( CONTENTS  ARE 

PERCENTAGES  ) 

STORAGE 

AVERAGE 

ENTRIES 

AVERAGE 

CURRENT 

MAXIMUM 

/ 

UTILIZATION 

TIME/TRAN 

CONTENTS 

CONTENTS 

SPSl  1 

0,469 

3508 

10294041,105 

32 

100 

SPS2 

0,454 

3049 

11472069.764 

82 

100 

GRF  l 

0.054 

1535 

2726690,160 

5 

35 

GRF2 

0.053 

1295 

3173179,564 

5 

35 

AnUfcN  HILLS  CYBER  17S  GPSS  V/600C 
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350 


UTILIZATION  Of  THE  Bit  SERIAL  DATA  THUNKS 


FACILITY 

AVERAGE 

NUMBER 

average 

UTILIZATION 

ENTRIES 

TIME/TKAN 

1 

9,021 

2907 

5593.985 

2 

0.021 

2901 

5580.226 

J , 

0.021 

2930 

5530.615 

4 

0.021 

2929 

5573.453 

5 

0.006 

797 

5929,868 

6 

0.093 

5633 

12701.175 

r 

0,069 

4149 

12752.913 

MESSAGE 

TURNAROUND 

STATISTICS 

FOR  EACH  TRUNK 

UUEUE 

MAXIMUM 

average 

total 

AVERAGE 

CONTENTS 

CONTENTS 

ENTRIES 

TIME/THAN 

1 

2 

0.026 

2650 

7591,124 

2 

2 

0.026 

2630 

7619.799 

3 

2 

0.026 

2660 

7447*933 

4 

2 

0.027 

2666 

7682.457 

5 

2 

0,006 

750 

6321,996 

6 

3 

0,130 

5152 

19513,780 

7 

4 

6,106 

3781 

21659,509 

221“ 


AKOEN  HILLS  CYBER  175  GRSS  V/6000 


UTILIZATION  OF  THE  PDC  UNITS 


STORAGE 

AVERAGE 

average 

CONTENTS 

UTILIZATION 

1 

0,000 

0.000 

4 

0*021 

0.021 

5 

0*021 

0,021 

6 

0.021 

0.021 

7 

0.021 

0.021 

13 

0*003 

0.003 

lv 

0,089 

0,069 

IT 

0,003 

0.003 

ia 

0.062 

0,06? 

22 

0,021 

0.021 

23 

0.041 

0,041 

24 

0,021 

0,021 

25 

0,040 

0.040 

26 

0*021 

0.021 

27 

0*04 1 

0.041 

28 

0.021 

0.021 

29 

0,040 

0.040 

37 

0,010 

0.010 

38 

0,006 

0.006 

CRH  GPSS  V/6000  VgR*  1*2  PSR  453 
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ENTRIES 

AVERAGE 

TIME/TftAN 

286 

1.934 

2907 

5593.985 

2901 

5580*226 

2930 

6530.615 

2929 

5573.453 

409 

5801,625 

5348 

12782*166 

386 

6064*778 

3753 

12771.041 

2907 

5593,925 

2447 

12753.395 

2901 

5580,226 

2432 

12818.866 

2930 

5530.6J5 

2469 

12739,771 

2929 

5573,453 

2482 

12518,375 

656 

11249,959 

542 

11005,589 

ahoen  hills  cy&er  its  orbs  v/60qq 
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HISTOGRAM  OF  DISC  ACCESS  TIMES 


I 


I 


ro 

uo 


25  « 


20  * 

tt 


PERCENTAGE  * 

15  * 

OF  THE  * 

* 

tablets  total  * 

•» 

ENTRIES  10  ** 

*•  « 


5 «***ftft«ft* 


• •ft******  ft  •#«»  ft  • » 

0 *»ftftftftftftft«ft«*#ftftft«0«#ftftftft«ftft#««ft#.<f  ftftc»ftttft»ftftfti>ftftftftft 

• ♦ * I I t 

0 30  60  90  12  150 


ACCESS  TIME  IN  MILLESECONOS 


1 1-A-124 


AHOEN  HILLS  CYBER  175  SPSS  V/6000 


CRM  I3PSS  V/6000  VER*  1,2  PSP  453 


03/17/79  1 5*  03*53* 


IS  « 


HISTOGRAM  OF  BLOCK  TRANSFER  TIMES 


10 


PERCENTAGE 

OF  THE 

table  * s total 

ENTRIES 


5 


•« 

»» 

*# 

<** 

««* 


0 


«««  «» 

«•«  «« 

«*ft«  «•« 

««•»  *»« 

###*»  «*««« 

««»*»  •«<»«» 

*##*#  *«»*«» 

*«*«»  »««••<» 


( < f ( I I f f 

• 02  *1  «2  »3  *4  ,5  • 6 ,7 


TRANSFER  TIME  IN  SECONDS 


NOrEl  ABOUT  50  PERCENT  OF  THIS  TABLE'S  ENTRIES  AR£  CONTAINED  In  THE  FIRST  BJN  <.LT,  .02  SEO* 
THEY  ARE  THE  SHORT  MESSAGE  REQUESTS  AND  RESPONSES  AND  ARE  THEREFORE  LEFT  OFF  THIS  GRAPH. 
CONSEQUENTLY,,  THE  *Y«-AXIS  SHOULD  BE  READ  AS  TWICE  THE  NOTEO  VALUE. 


PAGE  3Ki; 


OVERFLOW 
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AHDEN  HILLS  CYBER  175  GPSS  V/6000 


100  * 

* 


SO 


» 


PERCENTAGE 
OF  THE 

TABLE'S  TOTAL 
ENTRIES 


60 


AO 


0 


0 


•** 

'»* 
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HISTOGRAM  OF  TRANSFER  TIMES  FOR  SMALL 
FILES  f LESS  THAN  10  BLOCKS  ) 
BETWEEN  THE  FMP  ANO  DSC 


1 t » t I I • I I 0 I 

2 4 6 8 10  12 


TRANSFER  TIME  IN  SECONDS 


VER*  1.2  PSR  453 


03/17/79  15*03.53 


PAGE 


ANDEN  HILLS  CYBER  175  SPSS  V/6000 
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HISTOGRAM  OF  TRANSFER  TIMES  FOR  INTERMEDIATE 
SUE  FILES  (MORE  THAN  9 flLOCKS,  LESS  THAN  100> 

between  the  fmp  arc  dsc 


—4 

PERCENTAGE 

l 

OF  THE 

1 

TABLE’S  TOTAL 

DO 

ENTRIES 

CT> 

100  * 

60  * 
ft 

60  * 


* 

AO  * 

• ft 

• ft 

• • 

ft  • » 

20  * * * 

ft  ft  # 

ft  ft  ft 

«4»ft  • 


0 **♦** *ftft**#*«*ft#*#ft»»#ft*ft*ftft»ft**Hnift«j « ft#* ftftftft*ttft«ft*ft 

• o ♦ t i 0 

o S 10  15  20  25 


TRANSFER  TIME  IN  SECONDS 


1 1-A-127 


AKUEN  HILLS  CYbEH  ITS  GPSS  V/60Q0 


CRM  GPSS  V/6000  V£H.  1,2  PSR  453 


03/17/79  15*03.53*  PAGE 


3*>A 


HISTOGHAM  Of  TRANSFER  TIMES  FOR  ALL  FILES 
BETWEEN  THE  FMP  AND  DSC 


PERCENTAGE 
OF  THE 

TABLED  TOTAL 
ENTRIES 


100  * 

« 

« 

« 

«■* 
eo  ** 
»# 
«* 
« « 
** 

60  ** 
«« 
• « 
#* 
«• 
40  •* 
«» 

«4V 

20  ** 
• « 


#0 

#*  «»« 


* # 

0 10 


20 


* » « 
30  40  50 


transfer  ttme  in  seconds 


NOTE*  THIS  GRAPH  IS  THE  APPROPRIATE  SUM  OF  TABLES  “FMPA«*  "FMPB",  AND  nfMPC" 
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HISTOGRAM  OF  TRANSFER  TIMES  FOR  SMALL 
FILES  ( LESS  THAN  10  BLOCKS  ) 
BETWEEN  THE  SPS  AND  DSC 


100  * 
« 
« 

80  * 


percentage 

• 

■ 

60  • 

— w 

OF  THE 

• 

\ 

ft 

> 

TABLE'S  TOTAL 

ft 

1 

ft 

— * 

ENTRIES 

40  * 

ro 

« 

CO 

• ** 

«*ft 

• ft* 

so  ***** 

• ft** 
##e* 


0 a************************************************** 
0 5 10  15  2fl  25 


357 


TRANSFER  TIME  IN  SECONDS 


1 t-A-129 


AKOE H HILLS  CYBER  175  GPsS  V/6000 


100 

80 

PERCENTAGE 

60 

-OF  THE 
TALE'S  TOTAL 
ENTRIES  40 

20 

0 


0 


CRM  GPSS  V/6000  VEH.  i,2  PSR  453 


01/17/79  15*03,54 


PAGE 


ISA 


HISTOGRAM  Of  TRANSFER  TIMES  FOR  INTERMEDIATE 
sue  FILES  (MORE  THAN  9 BLOCKS,  LESS  THAN  inO> 
BETWEEN  the  SPS  AND  HSC 


» ft  * # 

* « ft  ft  • *#*  ft*  ft  # tt« 


# # # » t 

10  20  30  40  50 


TRANSFER  TIME  IN  SECONDS 


130 


AhL)En  HILLS  CYbtR  175  GPb$  V/6000 


CHH  GPSS  V/6000  VER,  1,2  PSR  453 


03/17/79  15,03,54*  PAGE 


njaiwu^An  ur  IHANSrtM  TiMti 

BETWEEN  THE  SPS  AND  DSC 


»"V,W 


loo 


80  * 


I 

> 

I 


PERCENTAGE 
OF  THE 

T ABLE 1 i>  TOTAL 
ENTRIES 


60 


ft* 

• ft 

• • 
• ft 


*• 

• • 

• ft 

40  ** 

• • 

• ft 
*• 

• ft 

20  **» 

»« 

• ft 

«ft  ft 

• ••• 

0 ft#*** 


I 

20 


40 


i 

60 


00 


9 

100 


TRANSFER  TIME  IN  SECONDS 


NOTE*  THIS  GRAPH  IS  THE  APPROPRIATE  SUM  OF  TABLES*  "SP$A"e  “SPSB"*  AND  "SPSC”, 


35* 
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AUDEN  HILLS  CYBER  175 

GPSS  V/6000 

CRM  GPSS  V/6000 

VER.  1.?  PSR 

453  03/17/79  15.03.54.  PAGE 

UPPER 

OBSERVED 

PER  CENT 

CUMULATIVE 

CUMULAIIVF 

MIJLTTPLF 

DEVIATION 

LIMIT 

FREQUENCY 

OF  TOTAL 

PERCENTAGE 

REMAINDER 

OF  MEAN 

FRnM  MEAN 

820 

15 

0.06 

99,77 

0,23 

6.230 

4.339 

B30 

3 

0.02 

99.79 

0.?1 

6.306 

4,402 

84  0 

1 

0*01 

90.79 

0*?1 

6.382 

4,465 

BbO 

40 

0,21 

100.00 

0,00 

6.458 

4,526 

TABLE  DISC 

entries  IN  table 

MEAN 

ARGUMENT 

STANDARD  deviation 

SUM  OF  ARGUMENTS l 

9773 

27*442 

29,074 

268191 

.0001 

UPPER 

observed 

P£H  CENT 

CUMULATIVE 

CUMULATIVE 

MULTIPLE 

DEVIATION 

LIMIT 

FREQUENCY 

OF  TOTAL 

PERCENTAGE 

remainder 

OF  MEAN 

Ffc^M  MEAN 

3 

1094 

11,19 

11.19 

88  , fl  1 

0.109 

-0,040 

6 

856 

8,76 

19.95 

80.05 

0.219 

•0,737 

9 

875 

8,95 

26.91 

71^09 

0.328 

-0,633 

12 

B31 

8,50 

37.41 

62.59 

0.437 

-0,530 

is 

848 

8,66 

46.09 

53,91 

0.547 

-0,427 

IS 

671 

8,91 

55.00 

45.00 

0,656 

•0,324 

21 

834 

8,53 

63,53 

36,47 

0,765 

-0,221 

24 

921 

9,42 

72,96 

27,04 

0.875 

-0,117 

27 

68 

0.70 

73.65 

26,35 

0.984 

•0,014 

30 

75 

0*77 

74.42 

26.58 

1.093 

0,088 

33 

101 

1.03 

75.45 

24.55 

1.203 

0,191 

36 

93 

0.95 

76.40 

23,60 

1.312 

0,294 

39 

63 

0.85 

77.25 

22,75 

1,421 

0.398 

4 Z 

92 

0,94 

78.20 

21.80 

1.530 

0,501 

45 

102 

'1,04 

79,24 

20.76  . 

1,640 

0,604 

48 

1 04 

1.06 

80,30 

19.70 

1.749 

0,707 

51 

108 

1,11 

01,41 

18,59 

1.850 

0,610 

S4 

91 

0.93 

82.34 

17.66 

1.968 

0,913 

57 

95 

0.97 

83.31 

16.69 

2.077 

1,017 

60 

86 

0,88 

64.19 

15,81 

2.186 

1,120 

63 

90 

0.92 

85.11 

14.69 

2.296 

1.223 

66 

81 

0,83 

85.94 

14,06 

2.405 

1,326 

69 

06 

0.88 

86.82 

13.18 

2.514 

1,429 

72 

99 

1.01 

87.83 

12.17 

2.624 

1.533 

75 

91 

0*93 

86.76 

11*26 

2,733 

1,636 

78 

78 

0*80 

89.56 

10,44 

2,642 

1,739 

81 

91 

0.93 

90.49 

9,51 

2.952 

1,642 

64 

102 

1.04 

91.54 

8,46 

3.061 

1,945 

87 

93 

0*95 

92,49 

7,51 

3.170 

2.049 

90 

6S 

0.90 

93.39 

6.61 

3,280 

2.152 

93 

99 

1*01 

94.40 

5.60 

3*309 

2.255 

96 

90 

0*92 

95.32 

4,68 

3,498 

2,356 

99 

03 

0,85 

96.17 

3.83 

3.606 

2.461 

102 

79 

O.Bl 

96.96 

3,02 

3.717 

2,564 

105 

67 

0,69 

97.67 

2.33 

3.826 

2*668 

108 

70 

0,72 

96.38 

1,62 

3,936 

2.771 

111 

61 

0,62 

99.01 

0,99 

4.045 

2.674 

114 

33 

0,34 

99  • 35 

0 . 65 

4*154 

2.977 

117 

33 

0.34 

99.68 

0,32 

4.264 

3.080 

120 

24 

0.25 

99,93 

0,07 

4.373 

3.184 

123 

7 

0.07 

100,00 

0.00 

4.462 

3,287 

TABLE  OP HA 
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ANQ£N  HILLS  CYBER  175  GPSS  V/6000 


TURNAROUND  statistics  for  messages  and  FILES 
TABLE  WGP 

ENTRIES  IN  TABLE  MEAN  ARGUMENT 


1107  130*061 


UPPER 

observed 

PER  CENT 

LIMIT 

FKEOUENCV 

OF  TOTAL 

100 

520 

*6  o 97 

2PD 

256 

23*13 

300 

286 

25.8* 

*00 

26 

2.35 

500 

2 

0,18 

600 

13 

1.17 

700 

1 

0,09 

BOO 

l 

0,09 

900 

2 

0.16 

TABLE  TOTAL 
ENTRIES  IN  TABLE 

MEAN 

ARGUMENT 

19109 

131,626 

UPPER 

OBSERVED 

PER  CENT 

LIMIT 

FREQUENCY 

OF  TOTAL 

10 

8237 

*2.93 

20 

13 

0.07 

30 

20 

o.io 

*0 

17 

0.09 

60 

n 

0.06 

60 

1* 

0,07 

70 

9 

0,05 

ao 

16 

0.08 

90 

1* 

0.07 

100 

119 

0.62 

no 

1 1 1 v 

5.83 

120 

1345 

7.01 

uo 

16*5 

8.57 

1*0 

577 

3.01 

150 

389 

2.03 

160 

ISO 

0.83 

170 

58 

0,30 

180 

*1 

0,21 

190 

31 

0.16 

200 

19 

0.10 

210 

18 

0,09 

220 

17 

0,09 

230 

19 

0.10 

2*0 

17 

0.09 

260 

5 

0.03 

CHM  GPSS  V/6000  VE«»  1.2  PSR  4S3 


03/17/70  15.03.5* 


PAGE 


STANDARD  DEVIATION  SUM  OF  ARGUMENTS  I 


122»197  1*3977.0001 


CUMULATIVE 

CUMULATIVE 

MULTIPLE 

dfviation 

PERCENTAGE 

REMAINDER 

OF  MEAN 

FROM  MEAN 

46.97 

53.03 

0.769 

•0.2*5 

70.10 

29,90 

1,538 

0.572 

95.93 

4.07 

2,307 

1,391 

98.26 

1,72 

3,075 

2.209 

98  ■ *6 

1,5* 

3,844 

3.027 

99.64 

0.36 

4,613 

3,846 

99.73 

0.27 

5,382 

4.664 

99.82 

0,18 

6.15J 

5.462 

100.00 

0.00 

6.920 

6.301 

STANDARD 

DEVIATION 

SUM  OF  ARGUMENTS  I 

158,653 

2525771 

.0001 

CUMULATIVE 

CUMULATIVE 

multiple 

deviation 

percentage 

REMAINDER 

OF  MEAN 

FROM  MEAN 

*2.93 

57,07 

0,076 

•0,766 

*2,99 

57,01 

0.152 

•0,703 

*3.10 

56,90 

0,228 

•0,640 

43.19 

56,81 

0.30* 

•0,577 

*3.2* 

56.76 

0.380 

•0.513 

*3,32 

56.68 

0.456 

-0.450 

*3.36 

56,6* 

0,532 

•0,387 

43.45 

56.55 

0.608 

•0.32* 

43,52 

56.48 

0,684 

-0.261 

A*.l* 

55,86 

0.760 

•0,198 

49.97 

50.03 

0,836 

•0,135 

56,98 

43,02 

0,912 

•0.072 

65,55 

34,45 

0,988 

•0.009 

68,56 

31.4* 

1.064 

0.053 

70,59 

29,41 

1.1*0 

0,116 

71.42 

28,58 

1.216 

0.179 

71.72 

PS. 28 

1.292 

0.2*2 

71.93 

28.07 

1.368 

0.305 

72.09 

27.91 

1.443 

0,368 

72,19 

27.81 

1.519 

0.431 

72,29 

27,71 

1.595 

0**94 

72,37 

27,63 

1.671 

0.557 

72, *7 

27.53 

1,747 

0.620 

72,56 

27,44 

1.823 

0,663 

72.59 

27.41 

1 .899 

0.746 

I 

i 


uo 

uo 


AKUEn  HILLS  CYHEH  175 

GP5S  V/6000 

CUM  GPS$  V/6000 

VEH.  1.2  PSR 

453  03/17/79 

15.03,54. 

PAGE 

UPPER 

UtiSEHVED 

PEH  CENT 

CUMULATIVE 

CUMULATIVE 

MULTIPLE 

DEVIATION 

LIMIT 

fheuuency 

OF  TOTAL 

PERCENTAGE 

REMAINDER 

OF  MEAN 

FROM  MEAN 

20  0 

432 

2*25 

74.84 

25.16 

1.975 

0,809 

270 

867 

4.52 

79.36 

20.64 

2,051 

0.872 

280 

1015 

5.29 

84,65 

15. 3S 

2.127 

0*935 

290 

764 

3.98 

88.63 

11.37 

2.203 

0.998 

300 

450 

2.35 

90,97 

9.03 

2.279 

1.061 

310 

243 

l.?7 

92,24 

7.76 

2.355 

1.124 

J20 

103 

0,54 

92.78 

7,22 

2.431 

1.187 

- 330 

65 

0.34 

93.12 

6.80 

2.507 

1.250 

340 

43 

0.22 

93,34 

6,66 

2.583 

1.313 

350 

25 

0.13 

93,47 

6.53 

2.659 

1,376 

3b0 

22 

0.11 

93,58 

6.42 

2.735 

1,439 

370 

27 

0.14 

93,73 

6.27 

2.8U 

1.502 

380 

10 

0.09 

93,82 

6.18 

2.887 

1,566 

390 

8 

0,04 

93,86 

6.14 

2.963 

1.629 

400 

5 

0.03 

93,89 

6.11 

3.039 

1.692 

410 

4 

0.02 

93,91 

6,09 

3.115 

1.755 

420 

2 

0.01 

93,92 

6.08 

3.191 

1.818 

430 

3 

0.02 

93.93 

6,07 

3.267 

1,881 

440 

3 

0.02 

93,95 

6.05 

3.343 

1.944 

450 

6 

0,03 

93.98 

6.02 

3.419 

2.007 

460 

13 

0.07 

94,05 

5.95 

3.495 

2.070 

470 

14 

O.OT 

94,12 

5.88 

3,571 

2.133 

480 

26 

0.14 

94.26 

5.74 

3,647 

2.196 

490 

23 

0.12 

94,38 

5.62 

3,723 

2.259 

500 

24 

0,13 

94.50 

5,50 

3.799 

2,322 

510 

41 

0.21 

94.72 

5.2A 

3,875 

2.385 

520 

51 

0.27 

94,98 

5,02 

3,951 

2.440 

530 

75 

0,39 

95.37 

4.63 

4.027 

2.511 

540 

103 

0.54 

95.91 

4.09 

4.103 

2.574 

550 

129 

0,67 

96.58 

3.4? 

4,179 

2.637 

560 

142 

0.74 

97.32 

2.68 

4.254 

2. 700 

570 

128 

0.67 

97.99 

2,01 

4.330 

2.763 

bttO 

106 

0.56 

98,55 

1.45 

4,406 

2.826 

590 

72 

0.38 

98,93 

1.07 

4.482 

2.089 

600 

34 

0.18 

99,10 

0,90 

4.558 

2.952 

610 

26 

0.15 

99.25 

0.75 

4.634 

3.015 

620 

15 

0.08 

99.33 

0,67 

4.710 

3.070 

630 

A 

0.04 

99.37 

0.63 

4,766 

3.141 

640 

6 

0,03 

99,40 

0.60 

4,662 

3.204 

650 

7 

0.04 

99,44  ' 

f 0,56 

4.938 

3.267 

660 

3 

0.02 

99,45 

0,55 

5,014 

3.330 

670 

S 

0.03 

99,48 

0.52 

5.090 

3.393 

680 

3 

0.02 

99,49 

0.51 

5,166 

3.456 

690 

3 

0.02 

99,51 

0.49 

5.242 

3.519 

700 

l 

0.01 

99,52 

0,48 

5.310 

3. 502 

710 

1 

0.01 

99,52 

0.48 

5.394 

3.646 

720 

3 

0.02 

99,54 

0.46 

5.470 

3.709 

730 

1 

0,01 

99,54 

0.46 

5,546 

3.772 

740 

1 

0.01 

99,55 

0.45 

5.622 

3.835 

750 

4 

0,02 

99,57 

0.43 

5,690 

3.896 

760 

1 

0.01 

99.57 

0.43 

5,774 

3.961 

770 

3 

0,02 

99.59 

0,41 

5.850 

4.024 

780 

5 

0,03 

99.61 

0.39 

5,926 

4,087 

790 

6 

0,03 

99.65 

0.35 

6.002 

4.150 

600 

5 

0,03 

99.67 

0.33 

6.078 

4.213 

810 

4 

0.02 

99.69 

0.31 

6.154 

4.276 

3M 
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AKOEN  HILLS  CYBER  175  OPSS  V/6000 

ENTRIES  IN  table  mean  argument 


63  1.460 


UPPER 

observed 

PER  CENT 

LIMIT 

FREQUENCY 

OF  TOTAL 

1 

44 

69.64 

2 

13 

20.63 

a 

4 

6,35 

4 

1 

1.59 

5 

0 

0.00 

6 

1 

1.59 

TABLE  FILE3 

ENTRIES  IN  TABLE 

MEAN 

ARGUMENT 

63 

1.460 

UPPER 

observed 

PER  CENT 

LIMIT 

frequency 

OF  TOTAL 

5 

62 

98.41 

10 

l 

1.59 

TABLE  fmpa 

entries  in  table 

mean 

ARGUMENT 

205 

280.756 

UPPER 

OBSERVED 

PER  CENT 

LIMIT 

FREQUENCY 

OF  TOTAL 

250 

144 

70.24 

500 

33 

16.10 

750 

27 

13. IT 

1000 

I 

0.49 

table  fmpb 

entries  in  table 

MEAN 

ARGUMENT 

46 

2334.174 

UPPER 

OBSERVED 

PER  CENT 

LIMIT 

FREQUENCY 

OF  TOTAL 

500 

3 

6.52 

1000 

IT 

36,96 

1500 

2 

4,35 

2000 

2 

4.35 

2500 

2 

4,35 

3000 

0 

0,00 

3500 

11 

23.91 

4000 

1 

2.17 

4500 

2 

4,35 

5000 

I 

2.17 

5500 

1 

2.17 

6000 

1 

2.17 

6500 

2 

4.35 

7000 

1 

2.17 

TABLE  FMPC 


cumulative 

CUMULATIVE 

MULTIPLE 

DP VI A 7 ION 

PERCENTAGE 

REMAINDER 

OF  MEAN 

FROM  MEAN 

6.52 

93,48 

0,214 

-1.005 

43.48 

56.52 

0.428 

-0,731 

47.83 

52.17 

0.643 

-0.456 

52,17 

47.87 

0.857 

-0,102 

56.52 

43.48 

1.071 

0.091 

56.52 

43.40 

1.285 

0.365 

80.43 

19.57 

1.499 

0,639 

62.61 

17.39 

1,714 

0.913 

66.96 

13,04 

1,920 

1,188 

89,13 

K.87 

2.142 

1,462 

91.30 

8.70 

2.356 

1.736 

93.48 

6,52 

2.571 

2.010 

97.83 

2.17 

2.785 

2,284 

100,00 

0,00 

2.999 

2,558 

AUDEN  HILLS  CYBtR  175 

GPSS  V/60OQ 

ENTRIES  IN  TABLE 

MEAN 

argument 

16 

6*637 

UPPER 

OBSERVED 

PER  CENT 

LIMIT 

frequency 

OF  TOTAL 

5 

a 

50.00 

10 

6 

37.50 

15 

2 

12.50 

TABLE  FILE! 

ENTRIES  IN  TABLE 

MEAN 

ARGUMENT 

267 

0.715 

UPPER 

observed 

PER  CENT 

LIMIT 

frequency 

OF  TOTAL 

1 

229 

85.77 

2 

2 

0,75 

3 

12 

4.49 

4 

7 

2.62 

5 

6 

2.25 

6 

5 

1.87 

7 

2 

0.75 

a 

0 

0.00 

9 

1 

0.37 

10 

1 

0.37 

a 

0 

0.00 

12 

l 

0.37 

13 

0 

0,00 

14 

l 

0,37 

TABLE  5PSA 

ENTRIES  IN  TABLE 

mean 

ARGUMENT 

142 

989.993 

UPPER 

OBSERVED 

PER  CENT 

LIMIT 

FREQUENCY 

OF  TOTAL 

SCO 

40 

33.80 

IOOO 

43 

30.28 

1500 

26 

18.31 

2000 

9 

6.34 

2500 

10 

7.04 

3000 

3 

2.11 

3500 

1 

0.70 

4000 

0 

0,00 

4500 

2 

1.41 

TABLE  SPSB 

ENTRIES  IN  TABLE 

mean 

ARGUMENT 

46 

18.913  ' 

UPPER 

OBSERVED 

PER  CENT 

LIMIT 

FREQUENCY 

OF  TOTAL 

1 

z 


0 

c 


0.00 

0*00 


page 


364 


CRM  GRSS  V/6Q00  vert,  1.2  PSP  451  03/1T/79  15*03*54. 

STANDARD  DEVIATION  sum  of  ARGUMENTS | 


3*049  107.000! 


CUMULATIVE 

CUMULATIVE 

MULTIPLE 

DFVIATION 

PERCENTAGE 

REMAINDER 

OF  MEAN 

FROM  MEAN 

50.00 

50,00 

0*748 

-0.552 

07. 50 

12.50 

1.495 

1,086 

100.00 

0,00 

2.243 

, 2*726 

STANDARD 

deviation 

SUM  OF  ARGUMENTS  1 

1.981 

191 

*0001 

CUMULATIVE 

CUMULATIVE 

MULTIPLE 

DEVIATION 

PERCENTAGE 

REMAINDER 

OF  MEAN 

FROM  MEAN 

65,77 

14.23 

1.398 

0.144 

66,52 

13.48 

2.796 

0.640 

, 91.01 

8.99 

4*194 

1.153 

93.63 

6.37 

5*592 

t .658 

95.88 

4.12 

6*990 

2.162 

97.75 

2.25 

8,307 

2.667 

98.50 

1*50 

9. 705 

3*172 

90,50 

1*50 

11*103 

3.676 

98.80 

1*12 

12*501 

4.162 

99.25 

0,75 

13,979 

4*686 

99.25 

0,75 

15*377 

5,190 

99.63 

0.37 

16.775 

5.695 

99.63 

0.37 

18.173 

6.200 

100.00 

0.00 

19.571 

6.704 

STANDARD  DEVIATION  SUM  OF  ARGUMENTS | 

767*390  140437.0001 


CUMULATIVE 

CUMULATIVE 

MULTIPLE 

DEVIATION 

PERCENTAGE 

REMAINDER 

OF  MEAN 

FROM  MEAN 

33.80 

66.20 

0.506 

-0.636 

64.00 

35.92 

1.01! 

0.GI4 

82.39 

17,61 

1.517 

0.666 

68.73 

11.27 

2.022 

1.317 

95.77 

4.23 

2,528 

1.969 

97.89 

2.11 

3.033 

2.621 

98.59 

1.41 

3,539 

3.272 

98.59 

1.41 

4.045 

3.924 

100.00 

0.00 

4.550 

4.575 

STANDARD 

deviation 

SUM  OF  ARGUMENTS  1 

15.629 

870 

• 000! 

cumulative 

CUMULATIVE 

MULTIPLE 

DEVIATION 

PERCENTAGE 

remainder 

OF  MEAN 

FROM  MEAN 

0.00 

100.00 

0,053 

-1.131 

0.00 

ioo;oo 

0,106 

-1.067 

I 

> 

I 

— k 


U) 
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ARDEN  HILLS  CYBER  175 

GPSS  V/6000 

CRH  GPSS  V/6000 

VER,  1.2  PSR 

453  03/17/79 

< 15,03.54.  PAGE 

UPPER 

OBSERVED 

PER  CENT 

CUMULATIVE 

CUMULATIVE 

MULTIPLE 

OFV1ATION 

LIMIT 

FREQUENCY 

OF  TOTAL 

PERCENTAGE 

remainder 

OF  MEAN 

FRriM  MEAN 

3 

2 

4*35 

4.35 

95,65 

0.159 

-1.004 

4 

0 

0,00 

4.35 

95,65 

0.211 

-0,941 

5 

16 

34*78 

39.13 

60.07 

0.264 

-0.878 

6 

2 

4*35 

43.48 

56,52 

0.317 

-0,815 

7 

0 

0,00 

43.48 

56.52 

0.370 

-0.752 

8 

1 

2.17 

45.65 

54,35 

0,423 

-0.688 

9 

0 

0,00 

45.65 

54.35 

0.476 

-0,625 

10 

0 

0.00 

45.65 

54,35 

0.529 

-0,562 

a 

1 

2.17 

47.83 

52,17 

0.582 

-0.499 

12 

0 

0,00 

47,83 

52.17 

0.634 

-0.436 

13 

0 

0,00 

47.83 

52,17 

0,687 

-0.373 

14 

3 

6,52 

54.35 

45,65 

0.740 

-0,309 

IS 

0 

0.00 

54,35 

45.65 

0,793 

-0.246 

16 

0 

0.00 

54,35 

45,65 

0.846 

-0.103 

17 

0 

0.00 

54,35 

45,65 

0,899 

-0,120 

ie 

0 

0.00 

54.35 

45.65 

0,95? 

-0.057 

19 

0 

0,00 

54.35 

45,65 

1.005 

0.005 

20 

0 

0.0G 

54.35 

45,65 

1,057 

0.069 

21 

1 

2.17 

56.52 

43.48 

1.110 

0.132 

22 

0 

0,00 

56.52 

43.48 

1.163 

0.195 

23 

0 

0*00 

56,52 

43.49 

1,2 16 

0,260 

24 

0 

0,00 

56.52 

43,48 

1.269 

0,321 

25 

0 

0,00 

56,52 

43,48 

1.322 

0.385 

26 

6 

13.04 

69.57 

30.43 

1.375 

0.448 

27 

2 

4,35 

73.91 

?6. 09 

1,420 

0,511 

28 

3 

6.52 

80,43 

19.57 

1.480 

0,574 

29 

0 

0.00 

80.43 

19.57 

1.533 

0.637 

30 

1 

2.17 

82.61 

17,39 

1.586 

0,700 

31 

1 

2.17 

84,78 

15.2? 

1.639 

0.764 

32 

0 

0,00 

84.78 

15,22 

1.692 

0,827 

33 

0 

0.00 

04,78 

15.22 

1.746 

0.890 

34 

0 

0.00 

04,78 

15,2? 

1.798 

0.953 

35 

0 

0,00 

84,78 

15,22 

1.851 

1.016 

36 

0 

0,00 

84.76 

15, ?2 

1.903 

1,079 

37 

0 

0.00 

84,78 

15. ?2 

1.956 

1.143 

38 

0 

0.00 

04.-78 

15,2? 

2.009 

1.206 

39 

0 

0,00 

84.78 

15,22 

2.062 

1.269 

40 

2 

4,35 

89.13 

10,87 

2,115 

1.332 

41 

0 

0.00 

89,13 

10,87 

2.168 

1.395 

42 

0 

0,00 

89.13 

10.87 

2.221 

1.458 

43 

0 

0.00 

89,13 

10.07 

2,274 

1.522 

44 

l 

2,17 

91.30 

8.70 

2,326 

1.585 

45 

0 

0*00 

91.30 

8,70 

2.379 

1.648 

46 

0 

0,00 

91.30 

8,70 

2.432 

1.711 

47 

0 

0,00 

91.30 

8,70 

2.485 

1.774 

48 

0 

0,00 

91.30 

8,70 

2,538 

1.838 

49 

1 

2.17 

93.48 

6,52 

2.591 

1.901 

50 

3 

6,52 

100,00 

o.no 

2.644 

1.964 
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FULLWQRO 


NUMBER  .... 

....  CONTENTS 

17 

63 

24 

7671 

CYLOV 

4500 

RUTMX 

2501 

spsht 

273 

BLOK  0 

27000 

OSCN 

1 

LAST 

2 

IOPGR 

30 

6LK3A 

27000 

GRHSZ 

16 

SAVEVALUES 


NUMBER  .... 

....  CONTENTS 

1* 

7 

25 

60 

ROTMN 

1 

trkrt 

65 

0FSPS 

3 

D0LKO 

1500 

DRIVE 

1 

GLOK2 

42000 

GPHRT 

1638 

DBK2A 

2500 

COPYS 

4 

NUMBER  .... 
COMNT 

....  CONTENTS 
9 

26 

2 

ROTAV 

1251 

CLOCK 

40943742 

DSCRT 

156 

0BLK1 

1500 

PRIOR 

62 

BLOK3 

100000 

GPHWT 

5000 

OBK3A 

2500 

BSIZE 

64 

number  .... 

«...  CONTENTS 

22 

45 

CYLMN 

1000 

ROTDV 

1250 

FMPRT 

65 

BFOSC 

3 

COUNT 

1 

SLOP 

200 

DBLK2 

10000 

DWAIT 

500 

ILSPS 

20 

number  .... 

23 

7671 

CYLAV 

5600 

11600 

BF^MP 

3 

ENO 

loooooooon 

CARO 

125! 

IOPEC 

10 

0BU3 

10000 

0LK2A 

10500 

ILGPH 

6 

THROUGHPUTS  BY  JOB  SIZE. 


FOR  JOBS  WITH  FMP  TIME  LESS  THAN  OR  EGUAL  TO  120  SEC 
THROUGHPUT  IS  2^.44  PER  HOUR 


FOH  JOBS  WITH  FMP  TIm£  BETWEEN  120  SEC  AND  20  M I N 
THROUGHPUT  IS  3.27  PER  HOUR 


FOH  JOBS  WITH  FMP  TIME  BETWEEN  20  MIN  AND  ONE  HOUR 
THROUGHPUT  IS  0.00  PER  HOUR 


FOH  JOBS  WITH  FMP  TIME  MORE  THAN  ONE  HOUR 
THROUGHPUT  IS  0.00  PER  HOUR 
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